* ldlex.l: now parses comment correctly, added ~ to acceptable
chars in filenames * ldexp.c (exp_unop): pass down abs_output_section - now can have unary -ve constants. * ldlang.c (lang_finish): warn when an entry symbol supplied on the command line can't be found.
This commit is contained in:
Steve Chamberlain
parent
4e8ea7a6e8
commit
6bf2e3a762
3 changed files with 188 additions and 148 deletions
11
ld/ChangeLog
11
ld/ChangeLog
|
|
@ -1,3 +1,14 @@
|
|||
Thu Aug 13 11:49:34 1992 Steve Chamberlain (sac@thepub.cygnus.com)
|
||||
|
||||
* ldlex.l: now parses comment correctly, added ~ to acceptable
|
||||
chars in filenames
|
||||
|
||||
* ldexp.c (exp_unop): pass down abs_output_section - now can have
|
||||
unary -ve constants.
|
||||
|
||||
* ldlang.c (lang_finish): warn when an entry symbol supplied on
|
||||
the command line can't be found.
|
||||
|
||||
Fri Aug 7 12:31:10 1992 Steve Chamberlain (sac@thepub.cygnus.com)
|
||||
|
||||
* ldlang.h: add new field "loadable" to output_section_statement.
|
||||
|
|
|
|||
58
ld/ldlex.l
58
ld/ldlex.l
|
|
@ -43,6 +43,37 @@ char *buystring();
|
|||
unsigned int lineno = 1;
|
||||
int old;
|
||||
|
||||
comment()
|
||||
{
|
||||
int c;
|
||||
while (1)
|
||||
{
|
||||
c = input();
|
||||
while (c !='*' && c != EOF)
|
||||
{
|
||||
if (c == '\n') lineno++;
|
||||
c = input();
|
||||
}
|
||||
|
||||
|
||||
if (c == '*')
|
||||
{
|
||||
c = input();
|
||||
while ( c == '*')
|
||||
c = input();
|
||||
if ( c == '/' )
|
||||
break; /* found the end */
|
||||
}
|
||||
|
||||
if ( c == EOF )
|
||||
{
|
||||
einfo( "%F%P :EOF in comment");
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
#undef YY_INPUT
|
||||
#define YY_INPUT(buf,result,max_size) yy_input(buf, &result, max_size)
|
||||
#undef YY_FATAL_ERROR
|
||||
|
|
@ -66,11 +97,11 @@ unsigned int include_stack_ptr = 0;
|
|||
%a 4000
|
||||
%o 5000
|
||||
|
||||
CMDFILENAMECHAR [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>\-]
|
||||
CMDFILENAMECHAR1 [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>]
|
||||
FILENAMECHAR1 [_a-zA-Z\/\.\\]
|
||||
CMDFILENAMECHAR [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>\-\~]
|
||||
CMDFILENAMECHAR1 [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>\~]
|
||||
FILENAMECHAR1 [_a-zA-Z\/\.\\\$\_\~]
|
||||
SYMBOLCHARN [_a-zA-Z\/\.\\0-9]
|
||||
FILENAMECHAR [_a-zA-Z0-9\/\.\-\_\+\=\$\:\[\]\\]
|
||||
FILENAMECHAR [_a-zA-Z0-9\/\.\-\_\+\=\$\:\[\]\\\,\~]
|
||||
FILENAME {FILENAMECHAR}+
|
||||
WHITE [ \t\n]+
|
||||
|
||||
|
|
@ -83,6 +114,10 @@ WHITE [ \t\n]+
|
|||
%s MRI
|
||||
%%
|
||||
|
||||
|
||||
<BOTH,SCRIPT,EXPRESSION,COMMAND>"/*" { comment(); }
|
||||
|
||||
|
||||
<DEFSYMEXP>"-" { RTOKEN('-');}
|
||||
<DEFSYMEXP>"+" { RTOKEN('+');}
|
||||
<DEFSYMEXP>{FILENAMECHAR1}{SYMBOLCHARN}* { yylval.name = buystring(yytext); return NAME; }
|
||||
|
|
@ -300,7 +335,7 @@ WHITE [ \t\n]+
|
|||
<MRI>"FORMAT" { RTOKEN(FORMAT); }
|
||||
<MRI>"LIST".* { RTOKEN(LIST); /* LIST and ignore to end of line */ }
|
||||
<MRI>"SECT" { RTOKEN(SECT); }
|
||||
<MRI>"ABSOLUTE" { RTOKEN(ABSOLUTE); }
|
||||
<EXPRESSION,BOTH,SCRIPT,MRI>"ABSOLUTE" { RTOKEN(ABSOLUTE); }
|
||||
<MRI>"end" { RTOKEN(ENDWORD); }
|
||||
<MRI>"chip" { RTOKEN(CHIP); }
|
||||
<MRI>"load" { RTOKEN(LOAD); }
|
||||
|
|
@ -309,7 +344,7 @@ WHITE [ \t\n]+
|
|||
<MRI>"format" { RTOKEN(FORMAT); }
|
||||
<MRI>"list".* { RTOKEN(LIST); /* LIST and ignore to end of line */ }
|
||||
<MRI>"sect" { RTOKEN(SECT); }
|
||||
<MRI>"absolute" { RTOKEN(ABSOLUTE); }
|
||||
<EXPRESSION,BOTH,SCRIPT,MRI>"absolute" { RTOKEN(ABSOLUTE); }
|
||||
|
||||
<COMMAND>{CMDFILENAMECHAR1}{CMDFILENAMECHAR}* {
|
||||
yylval.name = buystring(yytext);
|
||||
|
|
@ -335,16 +370,6 @@ WHITE [ \t\n]+
|
|||
<BOTH,SCRIPT,EXPRESSION>"\n" { lineno++;}
|
||||
<MRI,COMMAND,BOTH,SCRIPT,EXPRESSION>[ \t]
|
||||
|
||||
"/*" { old = INITIAL; BEGIN(COMMENT); }
|
||||
<COMMAND>"/*" { old = COMMAND; BEGIN(COMMENT); }
|
||||
<BOTH>"/*" { old =BOTH; BEGIN(COMMENT); }
|
||||
<SCRIPT>"/*" { old = EXPRESSION; BEGIN(COMMENT); }
|
||||
<EXPRESSION>"/*" { old = SCRIPT; BEGIN(COMMENT); }
|
||||
"/*" { old = INITIAL; BEGIN(COMMENT); }
|
||||
<COMMENT>[^*\\n]*
|
||||
<COMMENT>"*"+[^*/\\n]*
|
||||
<COMMENT>\\n { ++lineno;}
|
||||
<COMMENT>"*"+"/" { BEGIN(old); }
|
||||
<<EOF>> {
|
||||
include_stack_ptr--;
|
||||
|
||||
|
|
@ -501,3 +526,4 @@ int max_size;
|
|||
YY_FATAL_ERROR( "read() in flex scanner failed" );
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
|||
33
ld/ldmisc.c
33
ld/ldmisc.c
|
|
@ -19,12 +19,6 @@ You should have received a copy of the GNU General Public License
|
|||
along with GLD; see the file COPYING. If not, write to
|
||||
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
||||
|
||||
/*
|
||||
$Id$
|
||||
|
||||
|
||||
*/
|
||||
|
||||
#include "bfd.h"
|
||||
#include "sysdep.h"
|
||||
#include <varargs.h>
|
||||
|
|
@ -41,12 +35,6 @@ extern FILE *ldlex_input_stack;
|
|||
extern char *ldfile_input_filename;
|
||||
extern ld_config_type config;
|
||||
|
||||
void
|
||||
yyerror(arg)
|
||||
char *arg;
|
||||
{
|
||||
einfo("%P%F: %S %s\n",arg);
|
||||
}
|
||||
|
||||
extern int errno;
|
||||
extern int sys_nerr;
|
||||
|
|
@ -257,10 +245,19 @@ vfinfo(fp, fmt, arg)
|
|||
}
|
||||
}
|
||||
}
|
||||
if (fatal == true) {
|
||||
if (fatal == true)
|
||||
{
|
||||
extern char *output_filename;
|
||||
if (output_filename)
|
||||
unlink(output_filename);
|
||||
{
|
||||
char *new = malloc(strlen(output_filename)+2);
|
||||
extern bfd *output_bfd;
|
||||
|
||||
strcpy(new, output_filename);
|
||||
if (output_bfd && output_bfd->iostream)
|
||||
fclose((FILE *)(output_bfd->iostream));
|
||||
unlink(new);
|
||||
}
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
|
|
@ -325,7 +322,6 @@ DEFUN(concat, (s1, s2, s3),
|
|||
}
|
||||
|
||||
|
||||
|
||||
PTR
|
||||
DEFUN(ldmalloc, (size),
|
||||
bfd_size_type size)
|
||||
|
|
@ -338,6 +334,13 @@ bfd_size_type size)
|
|||
return result;
|
||||
}
|
||||
|
||||
PTR
|
||||
DEFUN(xmalloc,(size),
|
||||
int size)
|
||||
{
|
||||
return ldmalloc(size);
|
||||
}
|
||||
|
||||
|
||||
PTR
|
||||
DEFUN(ldrealloc, (ptr, size),
|
||||
|
|
|
|||
Loading…
Reference in a new issue