/* A YACC grammar to parse a superset of the AT&T linker scripting language.
- Copyright (C) 1991-2017 Free Software Foundation, Inc.
+ Copyright (C) 1991-2020 Free Software Foundation, Inc.
Written by Steve Chamberlain of Cygnus Support (steve@cygnus.com).
This file is part of the GNU Binutils.
#include "sysdep.h"
#include "bfd.h"
#include "bfdlink.h"
+#include "ctf-api.h"
#include "ld.h"
#include "ldexp.h"
#include "ldver.h"
mri_script_lines:
mri_script_lines mri_script_command NEWLINE
- |
+ |
;
mri_script_command:
CHIP exp
| CHIP exp ',' exp
- | NAME {
- einfo(_("%P%F: unrecognised keyword in MRI style script '%s'\n"),$1);
+ | NAME {
+ einfo(_("%F%P: unrecognised keyword in MRI style script '%s'\n"),$1);
}
- | LIST {
+ | LIST {
config.map_filename = "-";
}
- | ORDER ordernamelist
- | ENDWORD
- | PUBLIC NAME '=' exp
- { mri_public($2, $4); }
- | PUBLIC NAME ',' exp
- { mri_public($2, $4); }
- | PUBLIC NAME exp
- { mri_public($2, $3); }
- | FORMAT NAME
+ | ORDER ordernamelist
+ | ENDWORD
+ | PUBLIC NAME '=' exp
+ { mri_public($2, $4); }
+ | PUBLIC NAME ',' exp
+ { mri_public($2, $4); }
+ | PUBLIC NAME exp
+ { mri_public($2, $3); }
+ | FORMAT NAME
{ mri_format($2); }
| SECT NAME ',' exp
{ mri_output_section($2, $4);}
{ mri_alignmod($2,$4); }
| ABSOLUTE mri_abs_name_list
| LOAD mri_load_name_list
- | NAMEWORD NAME
+ | NAMEWORD NAME
{ mri_name($2); }
| ALIAS NAME ',' NAME
{ mri_alias($2,$4,0);}
| ALIAS NAME ',' INT
{ mri_alias ($2, 0, (int) $4.integer); }
- | BASE exp
+ | BASE exp
{ mri_base($2); }
| TRUNCATE INT
{ mri_truncate ((unsigned int) $2.integer); }
{ ldlex_popstate (); }
| START NAME
{ lang_add_entry ($2, FALSE); }
- |
+ |
;
ordernamelist:
- ordernamelist ',' NAME { mri_order($3); }
- | ordernamelist NAME { mri_order($2); }
- |
+ ordernamelist ',' NAME { mri_order($3); }
+ | ordernamelist NAME { mri_order($2); }
+ |
;
mri_load_name_list:
;
mri_abs_name_list:
- NAME
- { mri_only_load($1); }
+ NAME
+ { mri_only_load($1); }
| mri_abs_name_list ',' NAME
- { mri_only_load($3); }
+ { mri_only_load($3); }
;
casesymlist:
{ ldlex_both(); }
ifile_list
{ ldlex_popstate(); }
- ;
+ ;
ifile_list:
ifile_list ifile_p1
- |
+ |
;
| floating_point_support
| statement_anywhere
| version
- | ';'
+ | ';'
| TARGET_K '(' NAME ')'
{ lang_add_target($3); }
| SEARCH_DIR '(' filename ')'
{ ldfile_add_library_path ($3, FALSE); }
| OUTPUT '(' filename ')'
{ lang_add_output($3, 1); }
- | OUTPUT_FORMAT '(' NAME ')'
+ | OUTPUT_FORMAT '(' NAME ')'
{ lang_add_output_format ($3, (char *) NULL,
(char *) NULL, 1); }
| OUTPUT_FORMAT '(' NAME ',' NAME ',' NAME ')'
{ lang_add_output_format ($3, $5, $7, 1); }
- | OUTPUT_ARCH '(' NAME ')'
+ | OUTPUT_ARCH '(' NAME ')'
{ ldfile_set_output_arch ($3, bfd_arch_unknown); }
| FORCE_COMMON_ALLOCATION
{ command_line.force_common_definition = TRUE ; }
{ lang_enter_group (); }
'(' input_list ')'
{ lang_leave_group (); }
- | MAP '(' filename ')'
+ | MAP '(' filename ')'
{ lang_add_map($3); }
| INCLUDE filename
{ ldlex_script (); ldfile_open_command_file($2); }
$$.exclude_name_list = NULL;
$$.section_flag_list = NULL;
}
- | EXCLUDE_FILE '(' exclude_name_list ')' wildcard_name
+ | EXCLUDE_FILE '(' exclude_name_list ')' wildcard_name
{
$$.name = $5;
$$.sorted = none;
tmp.section_flag_list = $1;
lang_add_wild (&tmp, NULL, ldgram_had_keep);
}
- | '[' section_name_list ']'
+ | '[' section_name_list ']'
{
lang_add_wild (NULL, $2, ldgram_had_keep);
}
- | sect_flags '[' section_name_list ']'
+ | sect_flags '[' section_name_list ']'
{
struct wildcard_spec tmp;
tmp.name = NULL;
;
statement:
- assignment end
+ assignment end
| CREATE_OBJECT_SYMBOLS
{
- lang_add_attribute(lang_object_symbols_statement_enum);
- }
- | ';'
- | CONSTRUCTORS
+ lang_add_attribute(lang_object_symbols_statement_enum);
+ }
+ | ';'
+ | CONSTRUCTORS
{
lang_add_attribute(lang_constructors_statement_enum);
lang_add_attribute (lang_constructors_statement_enum);
}
| input_section_spec
- | length '(' mustbe_exp ')'
- {
- lang_add_data ((int) $1, $3);
- }
+ | length '(' mustbe_exp ')'
+ {
+ lang_add_data ((int) $1, $3);
+ }
| FILL '(' fill_exp ')'
- {
- lang_add_fill ($3);
- }
+ {
+ lang_add_fill ($3);
+ }
| ASSERT_K {ldlex_expression ();} '(' exp ',' NAME ')' end
{ ldlex_popstate ();
lang_add_assignment (exp_assert ($4, $6)); }
statement_list:
statement_list statement
- | statement
+ | statement
;
statement_list_opt:
{ $$ = $1; }
| LONG
{ $$ = $1; }
- | SHORT
+ | SHORT
{ $$ = $1; }
| BYTE
{ $$ = $1; }
fill_opt:
'=' fill_exp
{ $$ = $2; }
- | { $$ = (fill_type *) 0; }
+ | { $$ = (fill_type *) 0; }
;
assign_op:
{ $$ = '+'; }
| MINUSEQ
{ $$ = '-'; }
- | MULTEQ
+ | MULTEQ
{ $$ = '*'; }
- | DIVEQ
+ | DIVEQ
{ $$ = '/'; }
- | LSHIFTEQ
+ | LSHIFTEQ
{ $$ = LSHIFT; }
- | RSHIFTEQ
+ | RSHIFTEQ
{ $$ = RSHIFT; }
- | ANDEQ
+ | ANDEQ
{ $$ = '&'; }
- | OREQ
+ | OREQ
{ $$ = '|'; }
;
;
-memory_spec: NAME
+memory_spec: NAME
{ region = lang_memory_region_lookup ($1, TRUE); }
attributes_opt ':'
origin_spec opt_comma length_spec
ORIGIN '=' mustbe_exp
{
region->origin_exp = $3;
- region->current = region->origin;
}
;
length_spec:
- LENGTH '=' mustbe_exp
+ LENGTH '=' mustbe_exp
{
region->length_exp = $3;
}
{ $$ = exp_binop (NE , $1, $3); }
| exp LE exp
{ $$ = exp_binop (LE , $1, $3); }
- | exp GE exp
+ | exp GE exp
{ $$ = exp_binop (GE , $1, $3); }
| exp '<' exp
{ $$ = exp_binop ('<' , $1, $3); }
{ $$ = exp_nameop (DEFINED, $3); }
| INT
{ $$ = exp_bigintop ($1.integer, $1.str); }
- | SIZEOF_HEADERS
+ | SIZEOF_HEADERS
{ $$ = exp_nameop (SIZEOF_HEADERS,0); }
| ALIGNOF '(' NAME ')'
{ $$ = exp_binop (DATA_SEGMENT_RELRO_END, $5, $3); }
| DATA_SEGMENT_END '(' exp ')'
{ $$ = exp_unop (DATA_SEGMENT_END, $3); }
- | SEGMENT_START '(' NAME ',' exp ')'
- { /* The operands to the expression node are
+ | SEGMENT_START '(' NAME ',' exp ')'
+ { /* The operands to the expression node are
placed in the opposite order from the way
in which they appear in the script as
that allows us to reuse more code in
memspec_at_opt:
- AT '>' NAME { $$ = $3; }
- | { $$ = 0; }
- ;
+ AT '>' NAME { $$ = $3; }
+ | { $$ = 0; }
+ ;
opt_at:
AT '(' exp ')' { $$ = $3; }
| { $$ = 0; }
;
-section: NAME { ldlex_expression(); }
+section: NAME { ldlex_expression(); }
opt_exp_with_type
opt_at
opt_align
$5, $7, $4, $9, $6);
}
statement_list_opt
- '}' { ldlex_popstate (); ldlex_expression (); }
+ '}' { ldlex_popstate (); ldlex_expression (); }
memspec_opt memspec_at_opt phdr_opt fill_opt
{
ldlex_popstate ();
;
atype:
- '(' type ')'
- | /* EMPTY */ { sectype = normal_section; }
- | '(' ')' { sectype = normal_section; }
+ '(' type ')'
+ | /* EMPTY */ { sectype = normal_section; }
+ | '(' ')' { sectype = normal_section; }
;
opt_exp_with_type:
else
{
einfo (_("\
-%X%P:%S: unknown phdr type `%s' (try integer literal)\n"),
+%X%P:%pS: unknown phdr type `%s' (try integer literal)\n"),
NULL, s);
$$ = exp_intop (0);
}
else if (strcmp ($1, "FLAGS") == 0 && $2 != NULL)
$$.flags = $2;
else
- einfo (_("%X%P:%S: PHDRS syntax error at `%s'\n"),
+ einfo (_("%X%P:%pS: PHDRS syntax error at `%s'\n"),
NULL, $1);
}
| AT '(' exp ')' phdr_qualifiers
{
$$ = lang_new_vers_pattern (NULL, $1, ldgram_vers_current_lang, FALSE);
}
- | NAME
+ | NAME
{
$$ = lang_new_vers_pattern (NULL, $1, ldgram_vers_current_lang, TRUE);
}
einfo (_("%P:%s: file format not recognized; treating as linker script\n"),
ldlex_filename ());
if (error_index > 0 && error_index < ERROR_NAME_MAX)
- einfo ("%P%F:%S: %s in %s\n", NULL, arg, error_names[error_index - 1]);
+ einfo ("%F%P:%pS: %s in %s\n", NULL, arg, error_names[error_index - 1]);
else
- einfo ("%P%F:%S: %s\n", NULL, arg);
+ einfo ("%F%P:%pS: %s\n", NULL, arg);
}
projects / deliverable / binutils-gdb.git / blobdiff