2017-01-04 17:05:22 +01:00
|
|
|
|
%option nounput noyywrap
|
2009-11-19 06:06:35 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
%{
|
|
|
|
|
|
2018-01-03 06:17:27 +01:00
|
|
|
|
/* Copyright (C) 1991-2018 Free Software Foundation, Inc.
|
2007-07-06 16:09:45 +02:00
|
|
|
|
Written by Steve Chamberlain of Cygnus Support.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2007-07-06 16:09:45 +02:00
|
|
|
|
This file is part of the GNU Binutils.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2007-07-06 16:09:45 +02:00
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
2004-11-19 10:31:55 +01:00
|
|
|
|
it under the terms of the GNU General Public License as published by
|
2007-07-06 16:09:45 +02:00
|
|
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
|
|
|
(at your option) any later version.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2007-07-06 16:09:45 +02:00
|
|
|
|
This program is distributed in the hope that it will be useful,
|
2004-11-19 10:31:55 +01:00
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2004-11-19 10:31:55 +01:00
|
|
|
|
You should have received a copy of the GNU General Public License
|
2007-07-06 16:09:45 +02:00
|
|
|
|
along with this program; if not, write to the Free Software
|
|
|
|
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
|
|
|
|
|
MA 02110-1301, USA. */
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2007-04-26 16:47:00 +02:00
|
|
|
|
#include "bfd.h"
|
2001-09-19 07:33:36 +02:00
|
|
|
|
#include "safe-ctype.h"
|
2002-07-01 10:07:31 +02:00
|
|
|
|
#include "bfdlink.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#include "ld.h"
|
|
|
|
|
#include "ldmisc.h"
|
|
|
|
|
#include "ldexp.h"
|
|
|
|
|
#include "ldlang.h"
|
2002-10-30 04:57:39 +01:00
|
|
|
|
#include <ldgram.h>
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#include "ldfile.h"
|
|
|
|
|
#include "ldlex.h"
|
|
|
|
|
#include "ldmain.h"
|
2001-05-02 18:42:55 +02:00
|
|
|
|
#include "libiberty.h"
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* The type of top-level parser input.
|
|
|
|
|
yylex and yyparse (indirectly) both check this. */
|
|
|
|
|
input_type parser_input;
|
|
|
|
|
|
2016-07-05 11:36:08 +02:00
|
|
|
|
/* Line number in the current input file. */
|
|
|
|
|
unsigned int lineno;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
/* The string we are currently lexing, or NULL if we are reading a
|
|
|
|
|
file. */
|
|
|
|
|
const char *lex_string = NULL;
|
|
|
|
|
|
|
|
|
|
/* Support for flex reading from more than one input file (stream).
|
|
|
|
|
`include_stack' is flex's input state for each open file;
|
|
|
|
|
`file_name_stack' is the file names. `lineno_stack' is the current
|
|
|
|
|
line numbers.
|
|
|
|
|
|
|
|
|
|
If `include_stack_ptr' is 0, we haven't started reading anything yet.
|
|
|
|
|
Otherwise, stack elements 0 through `include_stack_ptr - 1' are valid. */
|
|
|
|
|
|
|
|
|
|
#undef YY_INPUT
|
2009-10-14 12:54:27 +02:00
|
|
|
|
#define YY_INPUT(buf,result,max_size) result = yy_input (buf, max_size)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2011-03-28 13:18:27 +02:00
|
|
|
|
#ifndef YY_NO_UNPUT
|
2005-02-15 15:36:19 +01:00
|
|
|
|
#define YY_NO_UNPUT
|
2011-03-28 13:18:27 +02:00
|
|
|
|
#endif
|
2005-02-15 15:36:19 +01:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
#define MAX_INCLUDE_DEPTH 10
|
|
|
|
|
static YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH];
|
|
|
|
|
static const char *file_name_stack[MAX_INCLUDE_DEPTH];
|
|
|
|
|
static unsigned int lineno_stack[MAX_INCLUDE_DEPTH];
|
2012-03-08 06:29:33 +01:00
|
|
|
|
static unsigned int sysrooted_stack[MAX_INCLUDE_DEPTH];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
static unsigned int include_stack_ptr = 0;
|
|
|
|
|
static int vers_node_nesting = 0;
|
|
|
|
|
|
2009-10-14 12:54:27 +02:00
|
|
|
|
static int yy_input (char *, int);
|
2003-06-28 07:28:54 +02:00
|
|
|
|
static void comment (void);
|
|
|
|
|
static void lex_warn_invalid (char *where, char *what);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2003-06-28 07:28:54 +02:00
|
|
|
|
/* STATES
|
1999-05-03 09:29:11 +02:00
|
|
|
|
EXPRESSION definitely in an expression
|
|
|
|
|
SCRIPT definitely in a script
|
Allow unquoted = as the first character in ldscript input_list names
* ldlex.l (INPUTLIST): New start condition.
(comment pattern, ",", "(", ")", "AS_NEEDED")
({FILENAMECHAR1}{FILENAMECHAR}*, "-l"{FILENAMECHAR}+)
(quoted string pattern, whitespace pattern): Add INPUTLIST to
valid start conditions.
(<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}*): New NAME rule.
(ldlex_inputlist): New start-condition-setter function.
* ldgram.y (input_list1): Rename from input_list. All recursive
use changed.
(input_list): New wrapper rule for input_list1, setting
INPUTLIST lexer state for the duration of parsing input_list1.
All this to say INPUT(=/path/to/file) and not be forced to use
INPUT("=/path/to/file") whenever there's a need to force a sysroot-
prefix. Still, IMHO it seems better to make use of a previously
invalid syntax and not only change the meaning of quoted =-prefixed
paths (though arguably that's not very useful before this patchset).
This got a little bit hairier than I'd expected: I had to add a new
lexer state (aka. start condition) to avoid a first "=" being lexed as
the token "=", despite that not making sense in constructs expecting
file-names in the first place. (The grammar doesn't allow for
expressions in any part of those lists.) I guess I *could* have made
it work using that token anyway, but I didn't like the idea that you
would be able to separate the "=" from the rest of the file-name with
whitespace.
2014-10-15 03:10:25 +02:00
|
|
|
|
INPUTLIST definitely in a script, a filename-list
|
1999-05-03 09:29:11 +02:00
|
|
|
|
BOTH either EXPRESSION or SCRIPT
|
|
|
|
|
DEFSYMEXP in an argument to -defsym
|
2017-10-12 12:58:30 +02:00
|
|
|
|
MRI in an MRI script
|
1999-05-03 09:29:11 +02:00
|
|
|
|
VERS_START starting a Sun style mapfile
|
|
|
|
|
VERS_SCRIPT a Sun style mapfile
|
|
|
|
|
VERS_NODE a node within a Sun style mapfile
|
|
|
|
|
*/
|
|
|
|
|
#define RTOKEN(x) { yylval.token = x; return x; }
|
|
|
|
|
|
|
|
|
|
%}
|
|
|
|
|
|
|
|
|
|
%a 4000
|
|
|
|
|
%o 5000
|
|
|
|
|
|
|
|
|
|
CMDFILENAMECHAR [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>\-\~]
|
|
|
|
|
CMDFILENAMECHAR1 [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>\~]
|
|
|
|
|
FILENAMECHAR1 [_a-zA-Z\/\.\\\$\_\~]
|
2017-10-09 13:17:10 +02:00
|
|
|
|
SYMBOLNAMECHAR1 [_a-zA-Z\/\.\\\$\_]
|
1999-05-03 09:29:11 +02:00
|
|
|
|
SYMBOLCHARN [_a-zA-Z\/\.\\\$\_\~0-9]
|
|
|
|
|
FILENAMECHAR [_a-zA-Z0-9\/\.\-\_\+\=\$\:\[\]\\\,\~]
|
2010-08-31 18:08:24 +02:00
|
|
|
|
WILDCHAR [_a-zA-Z0-9\/\.\-\_\+\=\$\:\[\]\\\,\~\?\*\^\!]
|
2003-06-28 07:28:54 +02:00
|
|
|
|
WHITE [ \t\n\r]+
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
NOCFILENAMECHAR [_a-zA-Z0-9\/\.\-\_\+\$\:\[\]\\\~]
|
|
|
|
|
|
|
|
|
|
V_TAG [.$_a-zA-Z][._a-zA-Z0-9]*
|
2003-10-24 16:55:14 +02:00
|
|
|
|
V_IDENTIFIER [*?.$_a-zA-Z\[\]\-\!\^\\]([*?.$_a-zA-Z0-9\[\]\-\!\^\\]|::)*
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
%s SCRIPT
|
Allow unquoted = as the first character in ldscript input_list names
* ldlex.l (INPUTLIST): New start condition.
(comment pattern, ",", "(", ")", "AS_NEEDED")
({FILENAMECHAR1}{FILENAMECHAR}*, "-l"{FILENAMECHAR}+)
(quoted string pattern, whitespace pattern): Add INPUTLIST to
valid start conditions.
(<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}*): New NAME rule.
(ldlex_inputlist): New start-condition-setter function.
* ldgram.y (input_list1): Rename from input_list. All recursive
use changed.
(input_list): New wrapper rule for input_list1, setting
INPUTLIST lexer state for the duration of parsing input_list1.
All this to say INPUT(=/path/to/file) and not be forced to use
INPUT("=/path/to/file") whenever there's a need to force a sysroot-
prefix. Still, IMHO it seems better to make use of a previously
invalid syntax and not only change the meaning of quoted =-prefixed
paths (though arguably that's not very useful before this patchset).
This got a little bit hairier than I'd expected: I had to add a new
lexer state (aka. start condition) to avoid a first "=" being lexed as
the token "=", despite that not making sense in constructs expecting
file-names in the first place. (The grammar doesn't allow for
expressions in any part of those lists.) I guess I *could* have made
it work using that token anyway, but I didn't like the idea that you
would be able to separate the "=" from the rest of the file-name with
whitespace.
2014-10-15 03:10:25 +02:00
|
|
|
|
%s INPUTLIST
|
1999-05-03 09:29:11 +02:00
|
|
|
|
%s EXPRESSION
|
|
|
|
|
%s BOTH
|
|
|
|
|
%s DEFSYMEXP
|
|
|
|
|
%s MRI
|
|
|
|
|
%s VERS_START
|
|
|
|
|
%s VERS_SCRIPT
|
|
|
|
|
%s VERS_NODE
|
|
|
|
|
%%
|
|
|
|
|
|
|
|
|
|
if (parser_input != input_selected)
|
|
|
|
|
{
|
|
|
|
|
/* The first token of the input determines the initial parser state. */
|
|
|
|
|
input_type t = parser_input;
|
|
|
|
|
parser_input = input_selected;
|
|
|
|
|
switch (t)
|
|
|
|
|
{
|
|
|
|
|
case input_script: return INPUT_SCRIPT; break;
|
|
|
|
|
case input_mri_script: return INPUT_MRI_SCRIPT; break;
|
|
|
|
|
case input_version_script: return INPUT_VERSION_SCRIPT; break;
|
2006-09-07 19:16:34 +02:00
|
|
|
|
case input_dynamic_list: return INPUT_DYNAMIC_LIST; break;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case input_defsym: return INPUT_DEFSYM; break;
|
|
|
|
|
default: abort ();
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
Allow unquoted = as the first character in ldscript input_list names
* ldlex.l (INPUTLIST): New start condition.
(comment pattern, ",", "(", ")", "AS_NEEDED")
({FILENAMECHAR1}{FILENAMECHAR}*, "-l"{FILENAMECHAR}+)
(quoted string pattern, whitespace pattern): Add INPUTLIST to
valid start conditions.
(<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}*): New NAME rule.
(ldlex_inputlist): New start-condition-setter function.
* ldgram.y (input_list1): Rename from input_list. All recursive
use changed.
(input_list): New wrapper rule for input_list1, setting
INPUTLIST lexer state for the duration of parsing input_list1.
All this to say INPUT(=/path/to/file) and not be forced to use
INPUT("=/path/to/file") whenever there's a need to force a sysroot-
prefix. Still, IMHO it seems better to make use of a previously
invalid syntax and not only change the meaning of quoted =-prefixed
paths (though arguably that's not very useful before this patchset).
This got a little bit hairier than I'd expected: I had to add a new
lexer state (aka. start condition) to avoid a first "=" being lexed as
the token "=", despite that not making sense in constructs expecting
file-names in the first place. (The grammar doesn't allow for
expressions in any part of those lists.) I guess I *could* have made
it work using that token anyway, but I didn't like the idea that you
would be able to separate the "=" from the rest of the file-name with
whitespace.
2014-10-15 03:10:25 +02:00
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,VERS_START,VERS_NODE,VERS_SCRIPT,INPUTLIST>"/*" { comment (); }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
|
2017-10-12 12:58:30 +02:00
|
|
|
|
<DEFSYMEXP>"-" { RTOKEN('-');}
|
|
|
|
|
<DEFSYMEXP>"+" { RTOKEN('+');}
|
2017-10-09 13:17:10 +02:00
|
|
|
|
<DEFSYMEXP>{SYMBOLNAMECHAR1}{SYMBOLCHARN}* { yylval.name = xstrdup (yytext); return NAME; }
|
2017-10-12 12:58:30 +02:00
|
|
|
|
<DEFSYMEXP>"=" { RTOKEN('='); }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
<MRI,EXPRESSION>"$"([0-9A-Fa-f])+ {
|
2017-10-12 12:58:30 +02:00
|
|
|
|
yylval.integer = bfd_scan_vma (yytext + 1, 0, 16);
|
2003-06-28 07:28:54 +02:00
|
|
|
|
yylval.bigint.str = NULL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return INT;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
<MRI,EXPRESSION>([0-9A-Fa-f])+(H|h|X|x|B|b|O|o|D|d) {
|
|
|
|
|
int ibase ;
|
2003-06-28 07:28:54 +02:00
|
|
|
|
switch (yytext[yyleng - 1]) {
|
|
|
|
|
case 'X':
|
1999-05-03 09:29:11 +02:00
|
|
|
|
case 'x':
|
|
|
|
|
case 'H':
|
|
|
|
|
case 'h':
|
|
|
|
|
ibase = 16;
|
|
|
|
|
break;
|
|
|
|
|
case 'O':
|
|
|
|
|
case 'o':
|
|
|
|
|
ibase = 8;
|
|
|
|
|
break;
|
|
|
|
|
case 'B':
|
|
|
|
|
case 'b':
|
|
|
|
|
ibase = 2;
|
|
|
|
|
break;
|
|
|
|
|
default:
|
|
|
|
|
ibase = 10;
|
|
|
|
|
}
|
|
|
|
|
yylval.integer = bfd_scan_vma (yytext, 0,
|
|
|
|
|
ibase);
|
2003-06-28 07:28:54 +02:00
|
|
|
|
yylval.bigint.str = NULL;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return INT;
|
|
|
|
|
}
|
2002-02-15 03:11:05 +01:00
|
|
|
|
<SCRIPT,DEFSYMEXP,MRI,BOTH,EXPRESSION>((("$"|0[xX])([0-9A-Fa-f])+)|(([0-9])+))(M|K|m|k)? {
|
1999-05-03 09:29:11 +02:00
|
|
|
|
char *s = yytext;
|
2002-02-15 03:11:05 +01:00
|
|
|
|
int ibase = 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
if (*s == '$')
|
2002-02-15 03:11:05 +01:00
|
|
|
|
{
|
|
|
|
|
++s;
|
|
|
|
|
ibase = 16;
|
|
|
|
|
}
|
|
|
|
|
yylval.integer = bfd_scan_vma (s, 0, ibase);
|
2003-06-28 07:28:54 +02:00
|
|
|
|
yylval.bigint.str = NULL;
|
|
|
|
|
if (yytext[yyleng - 1] == 'M'
|
|
|
|
|
|| yytext[yyleng - 1] == 'm')
|
2002-02-15 03:11:05 +01:00
|
|
|
|
{
|
|
|
|
|
yylval.integer *= 1024 * 1024;
|
|
|
|
|
}
|
2003-06-28 07:28:54 +02:00
|
|
|
|
else if (yytext[yyleng - 1] == 'K'
|
|
|
|
|
|| yytext[yyleng - 1]=='k')
|
2002-02-15 03:11:05 +01:00
|
|
|
|
{
|
|
|
|
|
yylval.integer *= 1024;
|
|
|
|
|
}
|
|
|
|
|
else if (yytext[0] == '0'
|
|
|
|
|
&& (yytext[1] == 'x'
|
|
|
|
|
|| yytext[1] == 'X'))
|
|
|
|
|
{
|
|
|
|
|
yylval.bigint.str = xstrdup (yytext + 2);
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return INT;
|
|
|
|
|
}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"]" { RTOKEN(']');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"[" { RTOKEN('[');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"<<=" { RTOKEN(LSHIFTEQ);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>">>=" { RTOKEN(RSHIFTEQ);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"||" { RTOKEN(OROR);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"==" { RTOKEN(EQ);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"!=" { RTOKEN(NE);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>">=" { RTOKEN(GE);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"<=" { RTOKEN(LE);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"<<" { RTOKEN(LSHIFT);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>">>" { RTOKEN(RSHIFT);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"+=" { RTOKEN(PLUSEQ);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"-=" { RTOKEN(MINUSEQ);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"*=" { RTOKEN(MULTEQ);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"/=" { RTOKEN(DIVEQ);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"&=" { RTOKEN(ANDEQ);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"|=" { RTOKEN(OREQ);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"&&" { RTOKEN(ANDAND);}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>">" { RTOKEN('>');}
|
Allow unquoted = as the first character in ldscript input_list names
* ldlex.l (INPUTLIST): New start condition.
(comment pattern, ",", "(", ")", "AS_NEEDED")
({FILENAMECHAR1}{FILENAMECHAR}*, "-l"{FILENAMECHAR}+)
(quoted string pattern, whitespace pattern): Add INPUTLIST to
valid start conditions.
(<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}*): New NAME rule.
(ldlex_inputlist): New start-condition-setter function.
* ldgram.y (input_list1): Rename from input_list. All recursive
use changed.
(input_list): New wrapper rule for input_list1, setting
INPUTLIST lexer state for the duration of parsing input_list1.
All this to say INPUT(=/path/to/file) and not be forced to use
INPUT("=/path/to/file") whenever there's a need to force a sysroot-
prefix. Still, IMHO it seems better to make use of a previously
invalid syntax and not only change the meaning of quoted =-prefixed
paths (though arguably that's not very useful before this patchset).
This got a little bit hairier than I'd expected: I had to add a new
lexer state (aka. start condition) to avoid a first "=" being lexed as
the token "=", despite that not making sense in constructs expecting
file-names in the first place. (The grammar doesn't allow for
expressions in any part of those lists.) I guess I *could* have made
it work using that token anyway, but I didn't like the idea that you
would be able to separate the "=" from the rest of the file-name with
whitespace.
2014-10-15 03:10:25 +02:00
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI,INPUTLIST>"," { RTOKEN(',');}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"&" { RTOKEN('&');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"|" { RTOKEN('|');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"~" { RTOKEN('~');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"!" { RTOKEN('!');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"?" { RTOKEN('?');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"*" { RTOKEN('*');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"+" { RTOKEN('+');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"-" { RTOKEN('-');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"/" { RTOKEN('/');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"%" { RTOKEN('%');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"<" { RTOKEN('<');}
|
2017-10-12 12:58:30 +02:00
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"=" { RTOKEN('=');}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"}" { RTOKEN('}') ; }
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>"{" { RTOKEN('{'); }
|
Allow unquoted = as the first character in ldscript input_list names
* ldlex.l (INPUTLIST): New start condition.
(comment pattern, ",", "(", ")", "AS_NEEDED")
({FILENAMECHAR1}{FILENAMECHAR}*, "-l"{FILENAMECHAR}+)
(quoted string pattern, whitespace pattern): Add INPUTLIST to
valid start conditions.
(<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}*): New NAME rule.
(ldlex_inputlist): New start-condition-setter function.
* ldgram.y (input_list1): Rename from input_list. All recursive
use changed.
(input_list): New wrapper rule for input_list1, setting
INPUTLIST lexer state for the duration of parsing input_list1.
All this to say INPUT(=/path/to/file) and not be forced to use
INPUT("=/path/to/file") whenever there's a need to force a sysroot-
prefix. Still, IMHO it seems better to make use of a previously
invalid syntax and not only change the meaning of quoted =-prefixed
paths (though arguably that's not very useful before this patchset).
This got a little bit hairier than I'd expected: I had to add a new
lexer state (aka. start condition) to avoid a first "=" being lexed as
the token "=", despite that not making sense in constructs expecting
file-names in the first place. (The grammar doesn't allow for
expressions in any part of those lists.) I guess I *could* have made
it work using that token anyway, but I didn't like the idea that you
would be able to separate the "=" from the rest of the file-name with
whitespace.
2014-10-15 03:10:25 +02:00
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI,INPUTLIST>")" { RTOKEN(')');}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI,INPUTLIST>"(" { RTOKEN('(');}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>":" { RTOKEN(':'); }
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION,MRI>";" { RTOKEN(';');}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<BOTH,SCRIPT>"MEMORY" { RTOKEN(MEMORY);}
|
2009-03-02 18:27:36 +01:00
|
|
|
|
<BOTH,SCRIPT>"REGION_ALIAS" { RTOKEN(REGION_ALIAS);}
|
2011-01-13 14:29:55 +01:00
|
|
|
|
<BOTH,SCRIPT>"LD_FEATURE" { RTOKEN(LD_FEATURE);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<BOTH,SCRIPT,EXPRESSION>"ORIGIN" { RTOKEN(ORIGIN);}
|
|
|
|
|
<BOTH,SCRIPT>"VERSION" { RTOKEN(VERSIONK);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"BLOCK" { RTOKEN(BLOCK);}
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"BIND" { RTOKEN(BIND);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<BOTH,SCRIPT,EXPRESSION>"LENGTH" { RTOKEN(LENGTH);}
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"ALIGN" { RTOKEN(ALIGN_K);}
|
2002-02-12 15:50:08 +01:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"DATA_SEGMENT_ALIGN" { RTOKEN(DATA_SEGMENT_ALIGN);}
|
2004-05-11 19:08:38 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"DATA_SEGMENT_RELRO_END" { RTOKEN(DATA_SEGMENT_RELRO_END);}
|
2002-02-12 15:50:08 +01:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"DATA_SEGMENT_END" { RTOKEN(DATA_SEGMENT_END);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"ADDR" { RTOKEN(ADDR);}
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"LOADADDR" { RTOKEN(LOADADDR);}
|
2007-06-18 14:38:22 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"ALIGNOF" { RTOKEN(ALIGNOF); }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<EXPRESSION,BOTH>"MAX" { RTOKEN(MAX_K); }
|
|
|
|
|
<EXPRESSION,BOTH>"MIN" { RTOKEN(MIN_K); }
|
2013-08-15 09:30:15 +02:00
|
|
|
|
<EXPRESSION,BOTH>"LOG2CEIL" { RTOKEN(LOG2CEIL); }
|
2007-05-24 11:24:09 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"ASSERT" { RTOKEN(ASSERT_K); }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT>"ENTRY" { RTOKEN(ENTRY);}
|
|
|
|
|
<BOTH,SCRIPT,MRI>"EXTERN" { RTOKEN(EXTERN);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"NEXT" { RTOKEN(NEXT);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"sizeof_headers" { RTOKEN(SIZEOF_HEADERS);}
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"SIZEOF_HEADERS" { RTOKEN(SIZEOF_HEADERS);}
|
2004-10-26 20:41:52 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"SEGMENT_START" { RTOKEN(SEGMENT_START);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT>"MAP" { RTOKEN(MAP);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"SIZEOF" { RTOKEN(SIZEOF);}
|
|
|
|
|
<BOTH,SCRIPT>"TARGET" { RTOKEN(TARGET_K);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT>"SEARCH_DIR" { RTOKEN(SEARCH_DIR);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<BOTH,SCRIPT>"OUTPUT" { RTOKEN(OUTPUT);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT>"INPUT" { RTOKEN(INPUT);}
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"GROUP" { RTOKEN(GROUP);}
|
Allow unquoted = as the first character in ldscript input_list names
* ldlex.l (INPUTLIST): New start condition.
(comment pattern, ",", "(", ")", "AS_NEEDED")
({FILENAMECHAR1}{FILENAMECHAR}*, "-l"{FILENAMECHAR}+)
(quoted string pattern, whitespace pattern): Add INPUTLIST to
valid start conditions.
(<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}*): New NAME rule.
(ldlex_inputlist): New start-condition-setter function.
* ldgram.y (input_list1): Rename from input_list. All recursive
use changed.
(input_list): New wrapper rule for input_list1, setting
INPUTLIST lexer state for the duration of parsing input_list1.
All this to say INPUT(=/path/to/file) and not be forced to use
INPUT("=/path/to/file") whenever there's a need to force a sysroot-
prefix. Still, IMHO it seems better to make use of a previously
invalid syntax and not only change the meaning of quoted =-prefixed
paths (though arguably that's not very useful before this patchset).
This got a little bit hairier than I'd expected: I had to add a new
lexer state (aka. start condition) to avoid a first "=" being lexed as
the token "=", despite that not making sense in constructs expecting
file-names in the first place. (The grammar doesn't allow for
expressions in any part of those lists.) I guess I *could* have made
it work using that token anyway, but I didn't like the idea that you
would be able to separate the "=" from the rest of the file-name with
whitespace.
2014-10-15 03:10:25 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT,INPUTLIST>"AS_NEEDED" { RTOKEN(AS_NEEDED);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"DEFINED" { RTOKEN(DEFINED);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT>"CREATE_OBJECT_SYMBOLS" { RTOKEN(CREATE_OBJECT_SYMBOLS);}
|
|
|
|
|
<BOTH,SCRIPT>"CONSTRUCTORS" { RTOKEN( CONSTRUCTORS);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<BOTH,SCRIPT>"FORCE_COMMON_ALLOCATION" { RTOKEN(FORCE_COMMON_ALLOCATION);}
|
ld: Allow section groups to be resolved as part of a relocatable link
This commit adds a new linker feature: the ability to resolve section
groups as part of a relocatable link.
Currently section groups are automatically resolved when performing a
final link, and are carried through when performing a relocatable link.
By carried through this means that one copy of each section group (from
all the copies that might be found in all the input files) is placed
into the output file. Sections that are part of a section group will
not match input section specifiers within a linker script and are
forcibly kept as separate sections.
There is a slight resemblance between section groups and common
section. Like section groups, common sections are carried through when
performing a relocatable link, and resolved (allocated actual space)
only at final link time.
However, with common sections there is an ability to force the linker to
allocate space for the common sections when performing a relocatable
link, there's currently no such ability for section groups.
This commit adds such a mechanism. This new facility can be accessed in
two ways, first there's a command line switch --force-group-allocation,
second, there's a new linker script command FORCE_GROUP_ALLOCATION. If
one of these is used when performing a relocatable link then the linker
will resolve the section groups as though it were performing a final
link, the section group will be deleted, and the members of the group
will be placed like normal input sections. If there are multiple copies
of the group (from multiple input files) then only one copy of the group
members will be placed, the duplicate copies will be discarded.
Unlike common sections that have the --no-define-common command line
flag, and INHIBIT_COMMON_ALLOCATION linker script command there is no
way to prevent group resolution during a final link, this is because the
ELF gABI specifically prohibits the presence of SHT_GROUP sections in a
fully linked executable. However, the code as written should make
adding such a feature trivial, setting the new resolve_section_groups
flag to false during a final link should work as you'd expect.
bfd/ChangeLog:
* elf.c (_bfd_elf_make_section_from_shdr): Don't initially mark
SEC_GROUP sections as SEC_EXCLUDE.
(bfd_elf_set_group_contents): Replace use of abort with an assert.
(assign_section_numbers): Use resolve_section_groups flag instead
of relocatable link type.
(_bfd_elf_init_private_section_data): Use resolve_section_groups
flag instead of checking the final_link flag for part of the
checks in here. Fix white space as a result.
* elflink.c (elf_link_input_bfd): Use resolve_section_groups flag
instead of relocatable link type.
(bfd_elf_final_link): Likewise.
include/ChangeLog:
* bfdlink.h (struct bfd_link_info): Add new resolve_section_groups
flag.
ld/ChangeLog:
* ld.h (struct args_type): Add force_group_allocation field.
* ldgram.y: Add support for FORCE_GROUP_ALLOCATION.
* ldlex.h: Likewise.
* ldlex.l: Likewise.
* lexsup.c: Likewise.
* ldlang.c (unique_section_p): Check resolve_section_groups flag
not the relaxable link flag.
(lang_add_section): Discard section groups when we're resolving
groups. Clear the SEC_LINK_ONCE flag if we're resolving section
groups.
* ldmain.c (main): Initialise resolve_section_groups flag in
link_info based on command line flags.
* testsuite/ld-elf/group11.d: New file.
* testsuite/ld-elf/group12.d: New file.
* testsuite/ld-elf/group12.ld: New file.
* NEWS: Mention new features.
* ld.texinfo (Options): Document --force-group-allocation.
(Miscellaneous Commands): Document FORCE_GROUP_ALLOCATION.
2017-03-22 18:27:49 +01:00
|
|
|
|
<BOTH,SCRIPT>"FORCE_GROUP_ALLOCATION" { RTOKEN(FORCE_GROUP_ALLOCATION);}
|
2001-09-29 14:57:54 +02:00
|
|
|
|
<BOTH,SCRIPT>"INHIBIT_COMMON_ALLOCATION" { RTOKEN(INHIBIT_COMMON_ALLOCATION);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<BOTH,SCRIPT>"SECTIONS" { RTOKEN(SECTIONS);}
|
ld/
* ld.texinfo (INSERT): Describe.
* ldgram.y (ldgram_in_script, ldgram_had_equals): Delete.
(INSERT_K, AFTER, BEFORE): Add as tokens.
(ifile_p1): Handle INSERT statements.
(saved_script_handle, force_make_executable): Move to..
* ldmain.c: ..here.
(previous_script_handle): New global var.
* ldmain.h (saved_script_handle, force_make_executable): Declare.
(previous_script_handle): Likewise.
* ldlex.l (INSERT_K, AFTER, BEFORE): Add tokens.
* lexsup.c (parge_args <-T>): Set previous_script_handle.
* ldlang.c (lang_for_each_statement_worker): Handle insert statement.
(map_input_to_output_sections, print_statement): Likewise.
(lang_size_sections_1, lang_do_assignments_1): Likewise.
(insert_os_after): New function, extracted from..
(lang_insert_orphan): ..here.
(process_insert_statements): New function.
(lang_process): Call it.
(lang_add_insert): New function.
* ldlang.h (lang_insert_statement_enum): New.
(lang_insert_statement_type): New.
(lang_statement_union_type): Add insert_statement.
(lang_add_insert): Declare.
ld/testsuite/
* ld-spu/ovl.lnk: Delete overlay.
* ld-spu/ovl1.lnk: New file.
* ld-spu/ovl2.lnk: New file.
* ld-spu/ovl.d: Update.
* ld-spu/ovl2.d: Update.
2008-01-25 13:03:37 +01:00
|
|
|
|
<BOTH,SCRIPT>"INSERT" { RTOKEN(INSERT_K);}
|
|
|
|
|
<BOTH,SCRIPT>"AFTER" { RTOKEN(AFTER);}
|
|
|
|
|
<BOTH,SCRIPT>"BEFORE" { RTOKEN(BEFORE);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT>"FILL" { RTOKEN(FILL);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<BOTH,SCRIPT>"STARTUP" { RTOKEN(STARTUP);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT>"OUTPUT_FORMAT" { RTOKEN(OUTPUT_FORMAT);}
|
|
|
|
|
<BOTH,SCRIPT>"OUTPUT_ARCH" { RTOKEN( OUTPUT_ARCH);}
|
|
|
|
|
<BOTH,SCRIPT>"HLL" { RTOKEN(HLL);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<BOTH,SCRIPT>"SYSLIB" { RTOKEN(SYSLIB);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT>"FLOAT" { RTOKEN(FLOAT);}
|
|
|
|
|
<BOTH,SCRIPT>"QUAD" { RTOKEN( QUAD);}
|
|
|
|
|
<BOTH,SCRIPT>"SQUAD" { RTOKEN( SQUAD);}
|
|
|
|
|
<BOTH,SCRIPT>"LONG" { RTOKEN( LONG);}
|
|
|
|
|
<BOTH,SCRIPT>"SHORT" { RTOKEN( SHORT);}
|
|
|
|
|
<BOTH,SCRIPT>"BYTE" { RTOKEN( BYTE);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<BOTH,SCRIPT>"NOFLOAT" { RTOKEN(NOFLOAT);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"NOCROSSREFS" { RTOKEN(NOCROSSREFS);}
|
2016-04-14 12:49:53 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"NOCROSSREFS_TO" { RTOKEN(NOCROSSREFS_TO);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT>"OVERLAY" { RTOKEN(OVERLAY); }
|
2004-10-04 18:45:51 +02:00
|
|
|
|
<BOTH,SCRIPT>"SORT_BY_NAME" { RTOKEN(SORT_BY_NAME); }
|
|
|
|
|
<BOTH,SCRIPT>"SORT_BY_ALIGNMENT" { RTOKEN(SORT_BY_ALIGNMENT); }
|
|
|
|
|
<BOTH,SCRIPT>"SORT" { RTOKEN(SORT_BY_NAME); }
|
2010-12-15 15:56:40 +01:00
|
|
|
|
<BOTH,SCRIPT>"SORT_BY_INIT_PRIORITY" { RTOKEN(SORT_BY_INIT_PRIORITY); }
|
2012-07-10 08:50:57 +02:00
|
|
|
|
<BOTH,SCRIPT>"SORT_NONE" { RTOKEN(SORT_NONE); }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"NOLOAD" { RTOKEN(NOLOAD);}
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"DSECT" { RTOKEN(DSECT);}
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"COPY" { RTOKEN(COPY);}
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"INFO" { RTOKEN(INFO);}
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"OVERLAY" { RTOKEN(OVERLAY);}
|
2004-05-19 16:01:14 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"ONLY_IF_RO" { RTOKEN(ONLY_IF_RO); }
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"ONLY_IF_RW" { RTOKEN(ONLY_IF_RW); }
|
2005-05-11 16:10:10 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"SPECIAL" { RTOKEN(SPECIAL); }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT>"o" { RTOKEN(ORIGIN);}
|
|
|
|
|
<BOTH,SCRIPT>"org" { RTOKEN(ORIGIN);}
|
|
|
|
|
<BOTH,SCRIPT>"l" { RTOKEN( LENGTH);}
|
|
|
|
|
<BOTH,SCRIPT>"len" { RTOKEN( LENGTH);}
|
2011-07-11 17:03:09 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"INPUT_SECTION_FLAGS" { RTOKEN(INPUT_SECTION_FLAGS); }
|
2008-07-06 15:38:37 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"INCLUDE" { RTOKEN(INCLUDE);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<BOTH,SCRIPT>"PHDRS" { RTOKEN (PHDRS); }
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"AT" { RTOKEN(AT);}
|
2013-07-19 12:39:51 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"ALIGN_WITH_INPUT" { RTOKEN(ALIGN_WITH_INPUT);}
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"SUBALIGN" { RTOKEN(SUBALIGN);}
|
2012-08-07 00:27:52 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"HIDDEN" { RTOKEN(HIDDEN); }
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"PROVIDE" { RTOKEN(PROVIDE); }
|
2005-08-05 15:52:13 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"PROVIDE_HIDDEN" { RTOKEN(PROVIDE_HIDDEN); }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"KEEP" { RTOKEN(KEEP); }
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"EXCLUDE_FILE" { RTOKEN(EXCLUDE_FILE); }
|
2006-05-30 18:45:32 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT>"CONSTANT" { RTOKEN(CONSTANT);}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<MRI>"#".*\n? { ++ lineno; }
|
2017-10-12 12:58:30 +02:00
|
|
|
|
<MRI>"\n" { ++ lineno; RTOKEN(NEWLINE); }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<MRI>"*".* { /* Mri comment line */ }
|
|
|
|
|
<MRI>";".* { /* Mri comment line */ }
|
2017-10-12 12:58:30 +02:00
|
|
|
|
<MRI>"END" { RTOKEN(ENDWORD); }
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<MRI>"ALIGNMOD" { RTOKEN(ALIGNMOD);}
|
|
|
|
|
<MRI>"ALIGN" { RTOKEN(ALIGN_K);}
|
2017-10-12 12:58:30 +02:00
|
|
|
|
<MRI>"CHIP" { RTOKEN(CHIP); }
|
|
|
|
|
<MRI>"BASE" { RTOKEN(BASE); }
|
|
|
|
|
<MRI>"ALIAS" { RTOKEN(ALIAS); }
|
|
|
|
|
<MRI>"TRUNCATE" { RTOKEN(TRUNCATE); }
|
|
|
|
|
<MRI>"LOAD" { RTOKEN(LOAD); }
|
|
|
|
|
<MRI>"PUBLIC" { RTOKEN(PUBLIC); }
|
|
|
|
|
<MRI>"ORDER" { RTOKEN(ORDER); }
|
|
|
|
|
<MRI>"NAME" { RTOKEN(NAMEWORD); }
|
|
|
|
|
<MRI>"FORMAT" { RTOKEN(FORMAT); }
|
|
|
|
|
<MRI>"CASE" { RTOKEN(CASE); }
|
|
|
|
|
<MRI>"START" { RTOKEN(START); }
|
|
|
|
|
<MRI>"LIST".* { RTOKEN(LIST); /* LIST and ignore to end of line */ }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<MRI>"SECT" { RTOKEN(SECT); }
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT,MRI>"ABSOLUTE" { RTOKEN(ABSOLUTE); }
|
2017-10-12 12:58:30 +02:00
|
|
|
|
<MRI>"end" { RTOKEN(ENDWORD); }
|
2004-11-19 10:31:55 +01:00
|
|
|
|
<MRI>"alignmod" { RTOKEN(ALIGNMOD);}
|
|
|
|
|
<MRI>"align" { RTOKEN(ALIGN_K);}
|
2017-10-12 12:58:30 +02:00
|
|
|
|
<MRI>"chip" { RTOKEN(CHIP); }
|
|
|
|
|
<MRI>"base" { RTOKEN(BASE); }
|
|
|
|
|
<MRI>"alias" { RTOKEN(ALIAS); }
|
|
|
|
|
<MRI>"truncate" { RTOKEN(TRUNCATE); }
|
|
|
|
|
<MRI>"load" { RTOKEN(LOAD); }
|
|
|
|
|
<MRI>"public" { RTOKEN(PUBLIC); }
|
|
|
|
|
<MRI>"order" { RTOKEN(ORDER); }
|
|
|
|
|
<MRI>"name" { RTOKEN(NAMEWORD); }
|
|
|
|
|
<MRI>"format" { RTOKEN(FORMAT); }
|
|
|
|
|
<MRI>"case" { RTOKEN(CASE); }
|
|
|
|
|
<MRI>"extern" { RTOKEN(EXTERN); }
|
|
|
|
|
<MRI>"start" { RTOKEN(START); }
|
|
|
|
|
<MRI>"list".* { RTOKEN(LIST); /* LIST and ignore to end of line */ }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
<MRI>"sect" { RTOKEN(SECT); }
|
|
|
|
|
<EXPRESSION,BOTH,SCRIPT,MRI>"absolute" { RTOKEN(ABSOLUTE); }
|
|
|
|
|
|
|
|
|
|
<MRI>{FILENAMECHAR1}{NOCFILENAMECHAR}* {
|
|
|
|
|
/* Filename without commas, needed to parse mri stuff */
|
2003-06-28 07:28:54 +02:00
|
|
|
|
yylval.name = xstrdup (yytext);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return NAME;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
Allow unquoted = as the first character in ldscript input_list names
* ldlex.l (INPUTLIST): New start condition.
(comment pattern, ",", "(", ")", "AS_NEEDED")
({FILENAMECHAR1}{FILENAMECHAR}*, "-l"{FILENAMECHAR}+)
(quoted string pattern, whitespace pattern): Add INPUTLIST to
valid start conditions.
(<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}*): New NAME rule.
(ldlex_inputlist): New start-condition-setter function.
* ldgram.y (input_list1): Rename from input_list. All recursive
use changed.
(input_list): New wrapper rule for input_list1, setting
INPUTLIST lexer state for the duration of parsing input_list1.
All this to say INPUT(=/path/to/file) and not be forced to use
INPUT("=/path/to/file") whenever there's a need to force a sysroot-
prefix. Still, IMHO it seems better to make use of a previously
invalid syntax and not only change the meaning of quoted =-prefixed
paths (though arguably that's not very useful before this patchset).
This got a little bit hairier than I'd expected: I had to add a new
lexer state (aka. start condition) to avoid a first "=" being lexed as
the token "=", despite that not making sense in constructs expecting
file-names in the first place. (The grammar doesn't allow for
expressions in any part of those lists.) I guess I *could* have made
it work using that token anyway, but I didn't like the idea that you
would be able to separate the "=" from the rest of the file-name with
whitespace.
2014-10-15 03:10:25 +02:00
|
|
|
|
<BOTH,INPUTLIST>{FILENAMECHAR1}{FILENAMECHAR}* {
|
2003-06-28 07:28:54 +02:00
|
|
|
|
yylval.name = xstrdup (yytext);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return NAME;
|
|
|
|
|
}
|
Allow unquoted = as the first character in ldscript input_list names
* ldlex.l (INPUTLIST): New start condition.
(comment pattern, ",", "(", ")", "AS_NEEDED")
({FILENAMECHAR1}{FILENAMECHAR}*, "-l"{FILENAMECHAR}+)
(quoted string pattern, whitespace pattern): Add INPUTLIST to
valid start conditions.
(<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}*): New NAME rule.
(ldlex_inputlist): New start-condition-setter function.
* ldgram.y (input_list1): Rename from input_list. All recursive
use changed.
(input_list): New wrapper rule for input_list1, setting
INPUTLIST lexer state for the duration of parsing input_list1.
All this to say INPUT(=/path/to/file) and not be forced to use
INPUT("=/path/to/file") whenever there's a need to force a sysroot-
prefix. Still, IMHO it seems better to make use of a previously
invalid syntax and not only change the meaning of quoted =-prefixed
paths (though arguably that's not very useful before this patchset).
This got a little bit hairier than I'd expected: I had to add a new
lexer state (aka. start condition) to avoid a first "=" being lexed as
the token "=", despite that not making sense in constructs expecting
file-names in the first place. (The grammar doesn't allow for
expressions in any part of those lists.) I guess I *could* have made
it work using that token anyway, but I didn't like the idea that you
would be able to separate the "=" from the rest of the file-name with
whitespace.
2014-10-15 03:10:25 +02:00
|
|
|
|
<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}* {
|
2017-05-18 16:07:59 +02:00
|
|
|
|
/* Filename to be prefixed by --sysroot or when non-sysrooted, nothing. */
|
|
|
|
|
yylval.name = xstrdup (yytext);
|
|
|
|
|
return NAME;
|
|
|
|
|
}
|
|
|
|
|
<INPUTLIST>"$SYSROOT"{FILENAMECHAR1}{FILENAMECHAR}* {
|
Allow unquoted = as the first character in ldscript input_list names
* ldlex.l (INPUTLIST): New start condition.
(comment pattern, ",", "(", ")", "AS_NEEDED")
({FILENAMECHAR1}{FILENAMECHAR}*, "-l"{FILENAMECHAR}+)
(quoted string pattern, whitespace pattern): Add INPUTLIST to
valid start conditions.
(<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}*): New NAME rule.
(ldlex_inputlist): New start-condition-setter function.
* ldgram.y (input_list1): Rename from input_list. All recursive
use changed.
(input_list): New wrapper rule for input_list1, setting
INPUTLIST lexer state for the duration of parsing input_list1.
All this to say INPUT(=/path/to/file) and not be forced to use
INPUT("=/path/to/file") whenever there's a need to force a sysroot-
prefix. Still, IMHO it seems better to make use of a previously
invalid syntax and not only change the meaning of quoted =-prefixed
paths (though arguably that's not very useful before this patchset).
This got a little bit hairier than I'd expected: I had to add a new
lexer state (aka. start condition) to avoid a first "=" being lexed as
the token "=", despite that not making sense in constructs expecting
file-names in the first place. (The grammar doesn't allow for
expressions in any part of those lists.) I guess I *could* have made
it work using that token anyway, but I didn't like the idea that you
would be able to separate the "=" from the rest of the file-name with
whitespace.
2014-10-15 03:10:25 +02:00
|
|
|
|
/* Filename to be prefixed by --sysroot or when non-sysrooted, nothing. */
|
|
|
|
|
yylval.name = xstrdup (yytext);
|
|
|
|
|
return NAME;
|
|
|
|
|
}
|
|
|
|
|
<BOTH,INPUTLIST>"-l"{FILENAMECHAR}+ {
|
2007-05-24 11:24:09 +02:00
|
|
|
|
yylval.name = xstrdup (yytext + 2);
|
|
|
|
|
return LNAME;
|
|
|
|
|
}
|
2017-10-09 13:17:10 +02:00
|
|
|
|
<EXPRESSION>{SYMBOLNAMECHAR1}{NOCFILENAMECHAR}* {
|
2007-05-24 11:24:09 +02:00
|
|
|
|
yylval.name = xstrdup (yytext);
|
|
|
|
|
return NAME;
|
|
|
|
|
}
|
|
|
|
|
<EXPRESSION>"-l"{NOCFILENAMECHAR}+ {
|
2001-05-02 18:42:55 +02:00
|
|
|
|
yylval.name = xstrdup (yytext + 2);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return LNAME;
|
|
|
|
|
}
|
|
|
|
|
<SCRIPT>{WILDCHAR}* {
|
|
|
|
|
/* Annoyingly, this pattern can match comments, and we have
|
|
|
|
|
longest match issues to consider. So if the first two
|
|
|
|
|
characters are a comment opening, put the input back and
|
|
|
|
|
try again. */
|
|
|
|
|
if (yytext[0] == '/' && yytext[1] == '*')
|
|
|
|
|
{
|
2003-06-28 07:28:54 +02:00
|
|
|
|
yyless (2);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
comment ();
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
2003-06-28 07:28:54 +02:00
|
|
|
|
yylval.name = xstrdup (yytext);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return NAME;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
Allow unquoted = as the first character in ldscript input_list names
* ldlex.l (INPUTLIST): New start condition.
(comment pattern, ",", "(", ")", "AS_NEEDED")
({FILENAMECHAR1}{FILENAMECHAR}*, "-l"{FILENAMECHAR}+)
(quoted string pattern, whitespace pattern): Add INPUTLIST to
valid start conditions.
(<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}*): New NAME rule.
(ldlex_inputlist): New start-condition-setter function.
* ldgram.y (input_list1): Rename from input_list. All recursive
use changed.
(input_list): New wrapper rule for input_list1, setting
INPUTLIST lexer state for the duration of parsing input_list1.
All this to say INPUT(=/path/to/file) and not be forced to use
INPUT("=/path/to/file") whenever there's a need to force a sysroot-
prefix. Still, IMHO it seems better to make use of a previously
invalid syntax and not only change the meaning of quoted =-prefixed
paths (though arguably that's not very useful before this patchset).
This got a little bit hairier than I'd expected: I had to add a new
lexer state (aka. start condition) to avoid a first "=" being lexed as
the token "=", despite that not making sense in constructs expecting
file-names in the first place. (The grammar doesn't allow for
expressions in any part of those lists.) I guess I *could* have made
it work using that token anyway, but I didn't like the idea that you
would be able to separate the "=" from the rest of the file-name with
whitespace.
2014-10-15 03:10:25 +02:00
|
|
|
|
<EXPRESSION,BOTH,SCRIPT,VERS_NODE,INPUTLIST>"\""[^\"]*"\"" {
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* No matter the state, quotes
|
2016-12-05 17:00:43 +01:00
|
|
|
|
give what's inside. */
|
|
|
|
|
bfd_size_type len;
|
2003-06-28 07:28:54 +02:00
|
|
|
|
yylval.name = xstrdup (yytext + 1);
|
2016-12-05 17:00:43 +01:00
|
|
|
|
/* PR ld/20906. A corrupt input file
|
|
|
|
|
can contain bogus strings. */
|
|
|
|
|
len = strlen (yylval.name);
|
|
|
|
|
if (len > yyleng - 2)
|
|
|
|
|
len = yyleng - 2;
|
|
|
|
|
yylval.name[len] = 0;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return NAME;
|
|
|
|
|
}
|
|
|
|
|
<BOTH,SCRIPT,EXPRESSION>"\n" { lineno++;}
|
|
|
|
|
<MRI,BOTH,SCRIPT,EXPRESSION>[ \t\r]+ { }
|
|
|
|
|
|
|
|
|
|
<VERS_NODE,VERS_SCRIPT>[:,;] { return *yytext; }
|
|
|
|
|
|
|
|
|
|
<VERS_NODE>global { RTOKEN(GLOBAL); }
|
|
|
|
|
|
|
|
|
|
<VERS_NODE>local { RTOKEN(LOCAL); }
|
|
|
|
|
|
|
|
|
|
<VERS_NODE>extern { RTOKEN(EXTERN); }
|
|
|
|
|
|
2001-05-02 18:42:55 +02:00
|
|
|
|
<VERS_NODE>{V_IDENTIFIER} { yylval.name = xstrdup (yytext);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return VERS_IDENTIFIER; }
|
|
|
|
|
|
2001-05-02 18:42:55 +02:00
|
|
|
|
<VERS_SCRIPT>{V_TAG} { yylval.name = xstrdup (yytext);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
return VERS_TAG; }
|
|
|
|
|
|
|
|
|
|
<VERS_START>"{" { BEGIN(VERS_SCRIPT); return *yytext; }
|
|
|
|
|
|
2003-06-28 07:28:54 +02:00
|
|
|
|
<VERS_SCRIPT>"{" { BEGIN(VERS_NODE);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
vers_node_nesting = 0;
|
|
|
|
|
return *yytext;
|
|
|
|
|
}
|
|
|
|
|
<VERS_SCRIPT>"}" { return *yytext; }
|
|
|
|
|
<VERS_NODE>"{" { vers_node_nesting++; return *yytext; }
|
|
|
|
|
<VERS_NODE>"}" { if (--vers_node_nesting < 0)
|
|
|
|
|
BEGIN(VERS_SCRIPT);
|
|
|
|
|
return *yytext;
|
|
|
|
|
}
|
|
|
|
|
|
2015-04-28 20:32:06 +02:00
|
|
|
|
<VERS_START,VERS_NODE,VERS_SCRIPT,INPUTLIST>[\n] { lineno++; }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
<VERS_START,VERS_NODE,VERS_SCRIPT>#.* { /* Eat up comments */ }
|
|
|
|
|
|
2017-10-12 12:58:30 +02:00
|
|
|
|
<VERS_START,VERS_NODE,VERS_SCRIPT,INPUTLIST>[ \t\r]+ { /* Eat up whitespace */ }
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
<<EOF>> {
|
|
|
|
|
include_stack_ptr--;
|
2003-06-28 07:28:54 +02:00
|
|
|
|
if (include_stack_ptr == 0)
|
2016-07-05 11:36:08 +02:00
|
|
|
|
{
|
|
|
|
|
lineno = 0;
|
|
|
|
|
yyterminate ();
|
|
|
|
|
}
|
2003-06-28 07:28:54 +02:00
|
|
|
|
else
|
|
|
|
|
yy_switch_to_buffer (include_stack[include_stack_ptr]);
|
2001-10-20 15:49:00 +02:00
|
|
|
|
|
|
|
|
|
lineno = lineno_stack[include_stack_ptr];
|
2012-03-08 06:29:33 +01:00
|
|
|
|
input_flags.sysrooted = sysrooted_stack[include_stack_ptr];
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
return END;
|
|
|
|
|
}
|
|
|
|
|
|
2003-06-28 07:28:54 +02:00
|
|
|
|
<SCRIPT,MRI,VERS_START,VERS_SCRIPT,VERS_NODE>. lex_warn_invalid (" in script", yytext);
|
|
|
|
|
<EXPRESSION,DEFSYMEXP,BOTH>. lex_warn_invalid (" in expression", yytext);
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
%%
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Switch flex to reading script file NAME, open on FILE,
|
|
|
|
|
saving the current input info on the include stack. */
|
|
|
|
|
|
|
|
|
|
void
|
2012-03-08 06:29:33 +01:00
|
|
|
|
lex_push_file (FILE *file, const char *name, unsigned int sysrooted)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2003-06-28 07:28:54 +02:00
|
|
|
|
if (include_stack_ptr >= MAX_INCLUDE_DEPTH)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2017-10-11 06:18:45 +02:00
|
|
|
|
einfo (_("%F:includes nested too deeply\n"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
file_name_stack[include_stack_ptr] = name;
|
2001-10-20 15:49:00 +02:00
|
|
|
|
lineno_stack[include_stack_ptr] = lineno;
|
2012-03-08 06:29:33 +01:00
|
|
|
|
sysrooted_stack[include_stack_ptr] = input_flags.sysrooted;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
include_stack[include_stack_ptr] = YY_CURRENT_BUFFER;
|
|
|
|
|
|
|
|
|
|
include_stack_ptr++;
|
2001-10-20 15:49:00 +02:00
|
|
|
|
lineno = 1;
|
2012-03-08 06:29:33 +01:00
|
|
|
|
input_flags.sysrooted = sysrooted;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
yyin = file;
|
2003-06-28 07:28:54 +02:00
|
|
|
|
yy_switch_to_buffer (yy_create_buffer (yyin, YY_BUF_SIZE));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Return a newly created flex input buffer containing STRING,
|
|
|
|
|
which is SIZE bytes long. */
|
|
|
|
|
|
2003-06-28 07:28:54 +02:00
|
|
|
|
static YY_BUFFER_STATE
|
|
|
|
|
yy_create_string_buffer (const char *string, size_t size)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
YY_BUFFER_STATE b;
|
|
|
|
|
|
|
|
|
|
/* Calls to m-alloc get turned by sed into xm-alloc. */
|
2003-06-28 07:28:54 +02:00
|
|
|
|
b = malloc (sizeof (struct yy_buffer_state));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
b->yy_input_file = 0;
|
|
|
|
|
b->yy_buf_size = size;
|
|
|
|
|
|
|
|
|
|
/* yy_ch_buf has to be 2 characters longer than the size given because
|
|
|
|
|
we need to put in 2 end-of-buffer characters. */
|
2003-06-28 07:28:54 +02:00
|
|
|
|
b->yy_ch_buf = malloc ((unsigned) (b->yy_buf_size + 3));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
b->yy_ch_buf[0] = '\n';
|
|
|
|
|
strcpy (b->yy_ch_buf+1, string);
|
|
|
|
|
b->yy_ch_buf[size+1] = YY_END_OF_BUFFER_CHAR;
|
|
|
|
|
b->yy_ch_buf[size+2] = YY_END_OF_BUFFER_CHAR;
|
|
|
|
|
b->yy_n_chars = size+1;
|
|
|
|
|
b->yy_buf_pos = &b->yy_ch_buf[1];
|
|
|
|
|
|
2000-11-05 07:27:15 +01:00
|
|
|
|
b->yy_is_our_buffer = 1;
|
|
|
|
|
b->yy_is_interactive = 0;
|
|
|
|
|
b->yy_at_bol = 1;
|
|
|
|
|
b->yy_fill_buffer = 0;
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
/* flex 2.4.7 changed the interface. FIXME: We should not be using
|
|
|
|
|
a flex internal interface in the first place! */
|
|
|
|
|
#ifdef YY_BUFFER_NEW
|
|
|
|
|
b->yy_buffer_status = YY_BUFFER_NEW;
|
|
|
|
|
#else
|
|
|
|
|
b->yy_eof_status = EOF_NOT_SEEN;
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
return b;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Switch flex to reading from STRING, saving the current input info
|
|
|
|
|
on the include stack. */
|
|
|
|
|
|
|
|
|
|
void
|
PR ld/13343
* ld.h (parsing_defsym): Delete.
* ldexp.c (exp_intop, exp_bigintop, exp_relop): Set type.filename.
(fold_binary, fold_name, exp_fold_tree_1, exp_get_vma, exp_get_fill,
exp_get_abs_int): Add tree arg for %S in error messages. Don't
fudge lineno.
(exp_binop, exp_unop, exp_nameop, exp_assop, exp_assert): Copy
type.filename from sub-tree.
(exp_trinop): Likewise, and use "cond" rather than "lhs".
* ldexp.h (node_type): Add filename field to struct.
* ldfile.c (ldfile_input_filename): Delete. Remove all refs.
* ldfile.h (ldfile_input_filename): Delete.
* ldgram.y (phdr_type, phdr_qualifiers, yyerror): Add NULL arg for
%S in error messages.
* ldemul.c (syslib_default, hll_default): Likewise.
* ldlang.c (lang_memory_region_lookup, lang_memory_region_alias,
lang_get_regions, lang_new_phdr): Likewise.
(lang_size_sections_1): Pass addr_tree for %S.
* ldlex.h (lex_redirect): Update prototype.
(ldlex_filename): Declare.
* ldlex.l (<EOF>): Don't set ldfile_input_filename.
(lex_redirect): Add fake_filename and count params. Push
fake_filename to file_name_stack and init lineno from count.
(ldlex_filename): New function.
(lex_warn_invalid): Use above.
* ldmain.c (main): Update lex_redirect call.
* ldmisc.c (vfinfo <%S>): Take file name and line number from
etree_type arg, or use current if arg is NULL.
* lexsup.c (parsing_defsym): Delete.
(parse_args <OPTION_DEFSYM>): Update lex_redirect call.
2012-02-17 15:09:57 +01:00
|
|
|
|
lex_redirect (const char *string, const char *fake_filename, unsigned int count)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
YY_BUFFER_STATE tmp;
|
|
|
|
|
|
|
|
|
|
yy_init = 0;
|
2003-06-28 07:28:54 +02:00
|
|
|
|
if (include_stack_ptr >= MAX_INCLUDE_DEPTH)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2017-10-11 06:18:45 +02:00
|
|
|
|
einfo (_("%F: macros nested too deeply\n"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
PR ld/13343
* ld.h (parsing_defsym): Delete.
* ldexp.c (exp_intop, exp_bigintop, exp_relop): Set type.filename.
(fold_binary, fold_name, exp_fold_tree_1, exp_get_vma, exp_get_fill,
exp_get_abs_int): Add tree arg for %S in error messages. Don't
fudge lineno.
(exp_binop, exp_unop, exp_nameop, exp_assop, exp_assert): Copy
type.filename from sub-tree.
(exp_trinop): Likewise, and use "cond" rather than "lhs".
* ldexp.h (node_type): Add filename field to struct.
* ldfile.c (ldfile_input_filename): Delete. Remove all refs.
* ldfile.h (ldfile_input_filename): Delete.
* ldgram.y (phdr_type, phdr_qualifiers, yyerror): Add NULL arg for
%S in error messages.
* ldemul.c (syslib_default, hll_default): Likewise.
* ldlang.c (lang_memory_region_lookup, lang_memory_region_alias,
lang_get_regions, lang_new_phdr): Likewise.
(lang_size_sections_1): Pass addr_tree for %S.
* ldlex.h (lex_redirect): Update prototype.
(ldlex_filename): Declare.
* ldlex.l (<EOF>): Don't set ldfile_input_filename.
(lex_redirect): Add fake_filename and count params. Push
fake_filename to file_name_stack and init lineno from count.
(ldlex_filename): New function.
(lex_warn_invalid): Use above.
* ldmain.c (main): Update lex_redirect call.
* ldmisc.c (vfinfo <%S>): Take file name and line number from
etree_type arg, or use current if arg is NULL.
* lexsup.c (parsing_defsym): Delete.
(parse_args <OPTION_DEFSYM>): Update lex_redirect call.
2012-02-17 15:09:57 +01:00
|
|
|
|
file_name_stack[include_stack_ptr] = fake_filename;
|
2001-10-20 15:49:00 +02:00
|
|
|
|
lineno_stack[include_stack_ptr] = lineno;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
include_stack[include_stack_ptr] = YY_CURRENT_BUFFER;
|
|
|
|
|
include_stack_ptr++;
|
PR ld/13343
* ld.h (parsing_defsym): Delete.
* ldexp.c (exp_intop, exp_bigintop, exp_relop): Set type.filename.
(fold_binary, fold_name, exp_fold_tree_1, exp_get_vma, exp_get_fill,
exp_get_abs_int): Add tree arg for %S in error messages. Don't
fudge lineno.
(exp_binop, exp_unop, exp_nameop, exp_assop, exp_assert): Copy
type.filename from sub-tree.
(exp_trinop): Likewise, and use "cond" rather than "lhs".
* ldexp.h (node_type): Add filename field to struct.
* ldfile.c (ldfile_input_filename): Delete. Remove all refs.
* ldfile.h (ldfile_input_filename): Delete.
* ldgram.y (phdr_type, phdr_qualifiers, yyerror): Add NULL arg for
%S in error messages.
* ldemul.c (syslib_default, hll_default): Likewise.
* ldlang.c (lang_memory_region_lookup, lang_memory_region_alias,
lang_get_regions, lang_new_phdr): Likewise.
(lang_size_sections_1): Pass addr_tree for %S.
* ldlex.h (lex_redirect): Update prototype.
(ldlex_filename): Declare.
* ldlex.l (<EOF>): Don't set ldfile_input_filename.
(lex_redirect): Add fake_filename and count params. Push
fake_filename to file_name_stack and init lineno from count.
(ldlex_filename): New function.
(lex_warn_invalid): Use above.
* ldmain.c (main): Update lex_redirect call.
* ldmisc.c (vfinfo <%S>): Take file name and line number from
etree_type arg, or use current if arg is NULL.
* lexsup.c (parsing_defsym): Delete.
(parse_args <OPTION_DEFSYM>): Update lex_redirect call.
2012-02-17 15:09:57 +01:00
|
|
|
|
lineno = count;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
tmp = yy_create_string_buffer (string, strlen (string));
|
|
|
|
|
yy_switch_to_buffer (tmp);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Functions to switch to a different flex start condition,
|
|
|
|
|
saving the current start condition on `state_stack'. */
|
|
|
|
|
|
|
|
|
|
static int state_stack[MAX_INCLUDE_DEPTH * 2];
|
|
|
|
|
static int *state_stack_p = state_stack;
|
|
|
|
|
|
|
|
|
|
void
|
2003-06-28 07:28:54 +02:00
|
|
|
|
ldlex_script (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
*(state_stack_p)++ = yy_start;
|
|
|
|
|
BEGIN (SCRIPT);
|
|
|
|
|
}
|
|
|
|
|
|
Allow unquoted = as the first character in ldscript input_list names
* ldlex.l (INPUTLIST): New start condition.
(comment pattern, ",", "(", ")", "AS_NEEDED")
({FILENAMECHAR1}{FILENAMECHAR}*, "-l"{FILENAMECHAR}+)
(quoted string pattern, whitespace pattern): Add INPUTLIST to
valid start conditions.
(<INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}*): New NAME rule.
(ldlex_inputlist): New start-condition-setter function.
* ldgram.y (input_list1): Rename from input_list. All recursive
use changed.
(input_list): New wrapper rule for input_list1, setting
INPUTLIST lexer state for the duration of parsing input_list1.
All this to say INPUT(=/path/to/file) and not be forced to use
INPUT("=/path/to/file") whenever there's a need to force a sysroot-
prefix. Still, IMHO it seems better to make use of a previously
invalid syntax and not only change the meaning of quoted =-prefixed
paths (though arguably that's not very useful before this patchset).
This got a little bit hairier than I'd expected: I had to add a new
lexer state (aka. start condition) to avoid a first "=" being lexed as
the token "=", despite that not making sense in constructs expecting
file-names in the first place. (The grammar doesn't allow for
expressions in any part of those lists.) I guess I *could* have made
it work using that token anyway, but I didn't like the idea that you
would be able to separate the "=" from the rest of the file-name with
whitespace.
2014-10-15 03:10:25 +02:00
|
|
|
|
void
|
|
|
|
|
ldlex_inputlist (void)
|
|
|
|
|
{
|
|
|
|
|
*(state_stack_p)++ = yy_start;
|
|
|
|
|
BEGIN (INPUTLIST);
|
|
|
|
|
}
|
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
void
|
2003-06-28 07:28:54 +02:00
|
|
|
|
ldlex_mri_script (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
*(state_stack_p)++ = yy_start;
|
|
|
|
|
BEGIN (MRI);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2003-06-28 07:28:54 +02:00
|
|
|
|
ldlex_version_script (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
*(state_stack_p)++ = yy_start;
|
|
|
|
|
BEGIN (VERS_START);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2003-06-28 07:28:54 +02:00
|
|
|
|
ldlex_version_file (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
*(state_stack_p)++ = yy_start;
|
|
|
|
|
BEGIN (VERS_SCRIPT);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2003-06-28 07:28:54 +02:00
|
|
|
|
ldlex_defsym (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
*(state_stack_p)++ = yy_start;
|
|
|
|
|
BEGIN (DEFSYMEXP);
|
|
|
|
|
}
|
2003-06-28 07:28:54 +02:00
|
|
|
|
|
1999-05-03 09:29:11 +02:00
|
|
|
|
void
|
2003-06-28 07:28:54 +02:00
|
|
|
|
ldlex_expression (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
*(state_stack_p)++ = yy_start;
|
|
|
|
|
BEGIN (EXPRESSION);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2003-06-28 07:28:54 +02:00
|
|
|
|
ldlex_both (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
*(state_stack_p)++ = yy_start;
|
|
|
|
|
BEGIN (BOTH);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
void
|
2003-06-28 07:28:54 +02:00
|
|
|
|
ldlex_popstate (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
yy_start = *(--state_stack_p);
|
|
|
|
|
}
|
PR ld/13343
* ld.h (parsing_defsym): Delete.
* ldexp.c (exp_intop, exp_bigintop, exp_relop): Set type.filename.
(fold_binary, fold_name, exp_fold_tree_1, exp_get_vma, exp_get_fill,
exp_get_abs_int): Add tree arg for %S in error messages. Don't
fudge lineno.
(exp_binop, exp_unop, exp_nameop, exp_assop, exp_assert): Copy
type.filename from sub-tree.
(exp_trinop): Likewise, and use "cond" rather than "lhs".
* ldexp.h (node_type): Add filename field to struct.
* ldfile.c (ldfile_input_filename): Delete. Remove all refs.
* ldfile.h (ldfile_input_filename): Delete.
* ldgram.y (phdr_type, phdr_qualifiers, yyerror): Add NULL arg for
%S in error messages.
* ldemul.c (syslib_default, hll_default): Likewise.
* ldlang.c (lang_memory_region_lookup, lang_memory_region_alias,
lang_get_regions, lang_new_phdr): Likewise.
(lang_size_sections_1): Pass addr_tree for %S.
* ldlex.h (lex_redirect): Update prototype.
(ldlex_filename): Declare.
* ldlex.l (<EOF>): Don't set ldfile_input_filename.
(lex_redirect): Add fake_filename and count params. Push
fake_filename to file_name_stack and init lineno from count.
(ldlex_filename): New function.
(lex_warn_invalid): Use above.
* ldmain.c (main): Update lex_redirect call.
* ldmisc.c (vfinfo <%S>): Take file name and line number from
etree_type arg, or use current if arg is NULL.
* lexsup.c (parsing_defsym): Delete.
(parse_args <OPTION_DEFSYM>): Update lex_redirect call.
2012-02-17 15:09:57 +01:00
|
|
|
|
|
|
|
|
|
/* Return the current file name, or the previous file if no file is
|
|
|
|
|
current. */
|
|
|
|
|
|
|
|
|
|
const char*
|
|
|
|
|
ldlex_filename (void)
|
|
|
|
|
{
|
|
|
|
|
return file_name_stack[include_stack_ptr - (include_stack_ptr != 0)];
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
|
|
|
|
|
2009-10-14 12:54:27 +02:00
|
|
|
|
/* Place up to MAX_SIZE characters in BUF and return
|
1999-05-03 09:29:11 +02:00
|
|
|
|
either the number of characters read, or 0 to indicate EOF. */
|
|
|
|
|
|
2009-10-14 12:54:27 +02:00
|
|
|
|
static int
|
|
|
|
|
yy_input (char *buf, int max_size)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2009-10-14 12:54:27 +02:00
|
|
|
|
int result = 0;
|
2003-04-15 16:50:29 +02:00
|
|
|
|
if (YY_CURRENT_BUFFER->yy_input_file)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
if (yyin)
|
|
|
|
|
{
|
2009-10-14 12:54:27 +02:00
|
|
|
|
result = fread (buf, 1, max_size, yyin);
|
|
|
|
|
if (result < max_size && ferror (yyin))
|
2017-10-11 06:18:45 +02:00
|
|
|
|
einfo (_("%F%P: read in flex scanner failed\n"));
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
2009-10-14 12:54:27 +02:00
|
|
|
|
return result;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Eat the rest of a C-style comment. */
|
|
|
|
|
|
|
|
|
|
static void
|
2003-06-28 07:28:54 +02:00
|
|
|
|
comment (void)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
int c;
|
|
|
|
|
|
|
|
|
|
while (1)
|
|
|
|
|
{
|
|
|
|
|
c = input();
|
2017-10-11 06:18:45 +02:00
|
|
|
|
while (c != '*' && c != EOF)
|
|
|
|
|
{
|
|
|
|
|
if (c == '\n')
|
|
|
|
|
lineno++;
|
|
|
|
|
c = input();
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2017-10-11 06:18:45 +02:00
|
|
|
|
if (c == '*')
|
|
|
|
|
{
|
|
|
|
|
c = input();
|
|
|
|
|
while (c == '*')
|
|
|
|
|
c = input();
|
|
|
|
|
if (c == '/')
|
|
|
|
|
break; /* found the end */
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2017-10-11 06:18:45 +02:00
|
|
|
|
if (c == '\n')
|
|
|
|
|
lineno++;
|
1999-05-03 09:29:11 +02:00
|
|
|
|
|
2017-10-11 06:18:45 +02:00
|
|
|
|
if (c == EOF)
|
|
|
|
|
{
|
|
|
|
|
einfo (_("%F%P: EOF in comment\n"));
|
|
|
|
|
break;
|
|
|
|
|
}
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Warn the user about a garbage character WHAT in the input
|
|
|
|
|
in context WHERE. */
|
|
|
|
|
|
|
|
|
|
static void
|
2003-06-28 07:28:54 +02:00
|
|
|
|
lex_warn_invalid (char *where, char *what)
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
|
|
|
|
char buf[5];
|
|
|
|
|
|
|
|
|
|
/* If we have found an input file whose format we do not recognize,
|
|
|
|
|
and we are therefore treating it as a linker script, and we find
|
|
|
|
|
an invalid character, then most likely this is a real object file
|
|
|
|
|
of some different format. Treat it as such. */
|
|
|
|
|
if (ldfile_assumed_script)
|
|
|
|
|
{
|
|
|
|
|
bfd_set_error (bfd_error_file_not_recognized);
|
2017-10-11 06:18:45 +02:00
|
|
|
|
einfo (_("%F%s: file not recognized: %E\n"), ldlex_filename ());
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|
|
|
|
|
|
2001-09-19 07:33:36 +02:00
|
|
|
|
if (! ISPRINT (*what))
|
1999-05-03 09:29:11 +02:00
|
|
|
|
{
|
2011-03-29 04:52:36 +02:00
|
|
|
|
sprintf (buf, "\\%03o", *(unsigned char *) what);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
what = buf;
|
|
|
|
|
}
|
|
|
|
|
|
Use %pI, %pR, %pS, %pT in place of %I, %R, %S and %T.
bfd/
* elf32-arm.c, * elf32-hppa.c, * elf32-lm32.c, * elf32-m32r.c,
* elf32-metag.c, * elf32-nds32.c, * elf32-or1k.c, * elf32-ppc.c,
* elf32-s390.c, * elf32-sh.c, * elf32-tic6x.c, * elf32-tilepro.c,
* elf64-ppc.c, * elf64-s390.c, * elflink.c, * elfnn-aarch64.c,
* elfnn-riscv.c, * elfxx-sparc.c, * elfxx-tilegx.c, * elfxx-x86.c,
* reloc.c: Replace use of %R and %T in format strings passed to
einfo and friends by %pR and %pT.
ld/
* ldmisc.c (vfinfo) Handle %pI, %pR, %pS and %pT in place of
%I, %R, %S and %T.
* ldcref.c, * ldctor.c, * ldemul.c, * ldexp.c, * ldgram.y,
* ldlang.c, * ldlex.l, * ldmain.c, * ldmisc.c, * pe-dll.c,
* emultempl/sh64elf.em: Replace use of of %I, %R, %S and %T in
format strings passed to einfo and friends by %pI, %pR, %pS and %pT.
2018-02-19 09:00:41 +01:00
|
|
|
|
einfo (_("%P:%pS: ignoring invalid character `%s'%s\n"), NULL, what, where);
|
1999-05-03 09:29:11 +02:00
|
|
|
|
}
|