1 /* A YACC grammar to parse a superset of the AT&T linker scripting language.
2 Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
4 Written by Steve Chamberlain of Cygnus Support (steve@cygnus.com).
6 This file is part of the GNU Binutils.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
21 MA 02110-1301, USA. */
28 #define DONTDECLARE_MALLOC
49 static enum section_type sectype;
50 static lang_memory_region_type *region;
52 bfd_boolean ldgram_had_keep = FALSE;
53 char *ldgram_vers_current_lang = NULL;
55 #define ERROR_NAME_MAX 20
56 static char *error_names[ERROR_NAME_MAX];
57 static int error_index;
58 #define PUSH_ERROR(x) if (error_index < ERROR_NAME_MAX) error_names[error_index] = x; error_index++;
59 #define POP_ERROR() error_index--;
71 struct wildcard_spec wildcard;
72 struct wildcard_list *wildcard_list;
73 struct name_list *name_list;
75 union etree_union *etree;
80 union etree_union *at;
81 union etree_union *flags;
83 struct lang_nocrossref *nocrossref;
84 struct lang_output_section_phdr_list *section_phdr;
85 struct bfd_elf_version_deps *deflist;
86 struct bfd_elf_version_expr *versyms;
87 struct bfd_elf_version_tree *versnode;
90 %type <etree> exp opt_exp_with_type mustbe_exp opt_at phdr_type phdr_val
91 %type <etree> opt_exp_without_type opt_subalign opt_align
92 %type <fill> fill_opt fill_exp
93 %type <name_list> exclude_name_list
94 %type <wildcard_list> file_NAME_list
95 %type <name> memspec_opt casesymlist
96 %type <name> memspec_at_opt
97 %type <cname> wildcard_name
98 %type <wildcard> wildcard_spec
100 %token <name> NAME LNAME
101 %type <integer> length
102 %type <phdr> phdr_qualifiers
103 %type <nocrossref> nocrossref_list
104 %type <section_phdr> phdr_opt
105 %type <integer> opt_nocrossrefs
107 %right <token> PLUSEQ MINUSEQ MULTEQ DIVEQ '=' LSHIFTEQ RSHIFTEQ ANDEQ OREQ
108 %right <token> '?' ':'
115 %left <token> '<' '>' LE GE
116 %left <token> LSHIFT RSHIFT
118 %left <token> '+' '-'
119 %left <token> '*' '/' '%'
124 %token <token> ALIGN_K BLOCK BIND QUAD SQUAD LONG SHORT BYTE
125 %token SECTIONS PHDRS INSERT_K AFTER BEFORE
126 %token DATA_SEGMENT_ALIGN DATA_SEGMENT_RELRO_END DATA_SEGMENT_END
127 %token SORT_BY_NAME SORT_BY_ALIGNMENT
129 %token SIZEOF_HEADERS OUTPUT_FORMAT FORCE_COMMON_ALLOCATION OUTPUT_ARCH
130 %token INHIBIT_COMMON_ALLOCATION
134 %token NOLOAD DSECT COPY INFO OVERLAY
135 %token DEFINED TARGET_K SEARCH_DIR MAP ENTRY
136 %token <integer> NEXT
137 %token SIZEOF ALIGNOF ADDR LOADADDR MAX_K MIN_K
138 %token STARTUP HLL SYSLIB FLOAT NOFLOAT NOCROSSREFS
140 %token LENGTH CREATE_OBJECT_SYMBOLS INPUT GROUP OUTPUT CONSTRUCTORS
141 %token ALIGNMOD AT SUBALIGN PROVIDE PROVIDE_HIDDEN AS_NEEDED
142 %type <token> assign_op atype attributes_opt sect_constraint
143 %type <name> filename
144 %token CHIP LIST SECT ABSOLUTE LOAD NEWLINE ENDWORD ORDER NAMEWORD ASSERT_K
145 %token FORMAT PUBLIC DEFSYMEND BASE ALIAS TRUNCATE REL
146 %token INPUT_SCRIPT INPUT_MRI_SCRIPT INPUT_DEFSYM CASE EXTERN START
147 %token <name> VERS_TAG VERS_IDENTIFIER
148 %token GLOBAL LOCAL VERSIONK INPUT_VERSION_SCRIPT
149 %token KEEP ONLY_IF_RO ONLY_IF_RW SPECIAL
152 %type <versyms> vers_defns
153 %type <versnode> vers_tag
154 %type <deflist> verdep
155 %token INPUT_DYNAMIC_LIST
160 INPUT_SCRIPT script_file
161 | INPUT_MRI_SCRIPT mri_script_file
162 | INPUT_VERSION_SCRIPT version_script_file
163 | INPUT_DYNAMIC_LIST dynamic_list_file
164 | INPUT_DEFSYM defsym_expr
176 lang_add_assignment(exp_assop($3,$2,$4));
180 /* SYNTAX WITHIN AN MRI SCRIPT FILE */
184 PUSH_ERROR (_("MRI style script"));
195 mri_script_lines mri_script_command NEWLINE
203 einfo(_("%P%F: unrecognised keyword in MRI style script '%s'\n"),$1);
206 config.map_filename = "-";
208 | ORDER ordernamelist
210 | PUBLIC NAME '=' exp
211 { mri_public($2, $4); }
212 | PUBLIC NAME ',' exp
213 { mri_public($2, $4); }
215 { mri_public($2, $3); }
219 { mri_output_section($2, $4);}
221 { mri_output_section($2, $3);}
223 { mri_output_section($2, $4);}
224 | ALIGN_K NAME '=' exp
225 { mri_align($2,$4); }
226 | ALIGN_K NAME ',' exp
227 { mri_align($2,$4); }
228 | ALIGNMOD NAME '=' exp
229 { mri_alignmod($2,$4); }
230 | ALIGNMOD NAME ',' exp
231 { mri_alignmod($2,$4); }
232 | ABSOLUTE mri_abs_name_list
233 | LOAD mri_load_name_list
236 | ALIAS NAME ',' NAME
237 { mri_alias($2,$4,0);}
239 { mri_alias ($2, 0, (int) $4.integer); }
243 { mri_truncate ((unsigned int) $2.integer); }
245 | EXTERN extern_name_list
247 { ldlex_script (); ldfile_open_command_file($2); }
249 { ldlex_popstate (); }
251 { lang_add_entry ($2, FALSE); }
256 ordernamelist ',' NAME { mri_order($3); }
257 | ordernamelist NAME { mri_order($2); }
264 | mri_load_name_list ',' NAME { mri_load($3); }
269 { mri_only_load($1); }
270 | mri_abs_name_list ',' NAME
271 { mri_only_load($3); }
275 /* empty */ { $$ = NULL; }
277 | casesymlist ',' NAME
280 /* Parsed as expressions so that commas separate entries */
282 { ldlex_expression (); }
283 extern_name_list_body
284 { ldlex_popstate (); }
286 extern_name_list_body:
288 { ldlang_add_undef ($1); }
289 | extern_name_list_body NAME
290 { ldlang_add_undef ($2); }
291 | extern_name_list_body ',' NAME
292 { ldlang_add_undef ($3); }
298 { ldlex_popstate(); }
314 | floating_point_support
318 | TARGET_K '(' NAME ')'
319 { lang_add_target($3); }
320 | SEARCH_DIR '(' filename ')'
321 { ldfile_add_library_path ($3, FALSE); }
322 | OUTPUT '(' filename ')'
323 { lang_add_output($3, 1); }
324 | OUTPUT_FORMAT '(' NAME ')'
325 { lang_add_output_format ($3, (char *) NULL,
327 | OUTPUT_FORMAT '(' NAME ',' NAME ',' NAME ')'
328 { lang_add_output_format ($3, $5, $7, 1); }
329 | OUTPUT_ARCH '(' NAME ')'
330 { ldfile_set_output_arch ($3, bfd_arch_unknown); }
331 | FORCE_COMMON_ALLOCATION
332 { command_line.force_common_definition = TRUE ; }
333 | INHIBIT_COMMON_ALLOCATION
334 { command_line.inhibit_common_definition = TRUE ; }
335 | INPUT '(' input_list ')'
337 { lang_enter_group (); }
339 { lang_leave_group (); }
340 | MAP '(' filename ')'
341 { lang_add_map($3); }
343 { ldlex_script (); ldfile_open_command_file($2); }
345 { ldlex_popstate (); }
346 | NOCROSSREFS '(' nocrossref_list ')'
348 lang_add_nocrossref ($3);
350 | EXTERN '(' extern_name_list ')'
351 | INSERT_K AFTER NAME
352 { lang_add_insert ($3, 0); }
353 | INSERT_K BEFORE NAME
354 { lang_add_insert ($3, 1); }
359 { lang_add_input_file($1,lang_input_file_is_search_file_enum,
361 | input_list ',' NAME
362 { lang_add_input_file($3,lang_input_file_is_search_file_enum,
365 { lang_add_input_file($2,lang_input_file_is_search_file_enum,
368 { lang_add_input_file($1,lang_input_file_is_l_enum,
370 | input_list ',' LNAME
371 { lang_add_input_file($3,lang_input_file_is_l_enum,
374 { lang_add_input_file($2,lang_input_file_is_l_enum,
377 { $<integer>$ = as_needed; as_needed = TRUE; }
379 { as_needed = $<integer>3; }
380 | input_list ',' AS_NEEDED '('
381 { $<integer>$ = as_needed; as_needed = TRUE; }
383 { as_needed = $<integer>5; }
384 | input_list AS_NEEDED '('
385 { $<integer>$ = as_needed; as_needed = TRUE; }
387 { as_needed = $<integer>4; }
391 SECTIONS '{' sec_or_group_p1 '}'
395 sec_or_group_p1 section
396 | sec_or_group_p1 statement_anywhere
402 { lang_add_entry ($3, FALSE); }
404 | ASSERT_K {ldlex_expression ();} '(' exp ',' NAME ')'
406 lang_add_assignment (exp_assert ($4, $6)); }
409 /* The '*' and '?' cases are there because the lexer returns them as
410 separate tokens rather than as NAME. */
431 $$.exclude_name_list = NULL;
433 | EXCLUDE_FILE '(' exclude_name_list ')' wildcard_name
437 $$.exclude_name_list = $3;
439 | SORT_BY_NAME '(' wildcard_name ')'
443 $$.exclude_name_list = NULL;
445 | SORT_BY_ALIGNMENT '(' wildcard_name ')'
448 $$.sorted = by_alignment;
449 $$.exclude_name_list = NULL;
451 | SORT_BY_NAME '(' SORT_BY_ALIGNMENT '(' wildcard_name ')' ')'
454 $$.sorted = by_name_alignment;
455 $$.exclude_name_list = NULL;
457 | SORT_BY_NAME '(' SORT_BY_NAME '(' wildcard_name ')' ')'
461 $$.exclude_name_list = NULL;
463 | SORT_BY_ALIGNMENT '(' SORT_BY_NAME '(' wildcard_name ')' ')'
466 $$.sorted = by_alignment_name;
467 $$.exclude_name_list = NULL;
469 | SORT_BY_ALIGNMENT '(' SORT_BY_ALIGNMENT '(' wildcard_name ')' ')'
472 $$.sorted = by_alignment;
473 $$.exclude_name_list = NULL;
475 | SORT_BY_NAME '(' EXCLUDE_FILE '(' exclude_name_list ')' wildcard_name ')'
479 $$.exclude_name_list = $5;
484 exclude_name_list wildcard_name
486 struct name_list *tmp;
487 tmp = (struct name_list *) xmalloc (sizeof *tmp);
495 struct name_list *tmp;
496 tmp = (struct name_list *) xmalloc (sizeof *tmp);
504 file_NAME_list opt_comma wildcard_spec
506 struct wildcard_list *tmp;
507 tmp = (struct wildcard_list *) xmalloc (sizeof *tmp);
515 struct wildcard_list *tmp;
516 tmp = (struct wildcard_list *) xmalloc (sizeof *tmp);
523 input_section_spec_no_keep:
526 struct wildcard_spec tmp;
528 tmp.exclude_name_list = NULL;
530 lang_add_wild (&tmp, NULL, ldgram_had_keep);
532 | '[' file_NAME_list ']'
534 lang_add_wild (NULL, $2, ldgram_had_keep);
536 | wildcard_spec '(' file_NAME_list ')'
538 lang_add_wild (&$1, $3, ldgram_had_keep);
543 input_section_spec_no_keep
545 { ldgram_had_keep = TRUE; }
546 input_section_spec_no_keep ')'
547 { ldgram_had_keep = FALSE; }
552 | CREATE_OBJECT_SYMBOLS
554 lang_add_attribute(lang_object_symbols_statement_enum);
560 lang_add_attribute(lang_constructors_statement_enum);
562 | SORT_BY_NAME '(' CONSTRUCTORS ')'
564 constructors_sorted = TRUE;
565 lang_add_attribute (lang_constructors_statement_enum);
568 | length '(' mustbe_exp ')'
570 lang_add_data ((int) $1, $3);
573 | FILL '(' fill_exp ')'
577 | ASSERT_K {ldlex_expression ();} '(' exp ',' NAME ')' end
579 lang_add_assignment (exp_assert ($4, $6)); }
581 { ldlex_script (); ldfile_open_command_file($2); }
582 statement_list_opt END
583 { ldlex_popstate (); }
587 statement_list statement
612 $$ = exp_get_fill ($1, 0, "fill value");
619 | { $$ = (fill_type *) 0; }
649 lang_add_assignment (exp_assop ($2, $1, $3));
651 | NAME assign_op mustbe_exp
653 lang_add_assignment (exp_assop ('=', $1,
659 | PROVIDE '(' NAME '=' mustbe_exp ')'
661 lang_add_assignment (exp_provide ($3, $5, FALSE));
663 | PROVIDE_HIDDEN '(' NAME '=' mustbe_exp ')'
665 lang_add_assignment (exp_provide ($3, $5, TRUE));
675 MEMORY '{' memory_spec_list_opt '}'
678 memory_spec_list_opt: memory_spec_list | ;
681 memory_spec_list opt_comma memory_spec
687 { region = lang_memory_region_lookup ($1, TRUE); }
689 origin_spec opt_comma length_spec
692 { ldlex_script (); ldfile_open_command_file($2); }
693 memory_spec_list_opt END
694 { ldlex_popstate (); }
698 ORIGIN '=' mustbe_exp
700 region->origin = exp_get_vma ($3, 0, "origin");
701 region->current = region->origin;
706 LENGTH '=' mustbe_exp
708 region->length = exp_get_vma ($3, -1, "length");
714 { /* dummy action to avoid bison 1.25 error message */ }
715 | '(' attributes_list ')'
720 | attributes_list attributes_string
725 { lang_set_flags (region, $1, 0); }
727 { lang_set_flags (region, $2, 1); }
731 STARTUP '(' filename ')'
732 { lang_startup($3); }
736 HLL '(' high_level_library_NAME_list ')'
738 { ldemul_hll((char *)NULL); }
741 high_level_library_NAME_list:
742 high_level_library_NAME_list opt_comma filename
750 SYSLIB '(' low_level_library_NAME_list ')'
751 ; low_level_library_NAME_list:
752 low_level_library_NAME_list opt_comma filename
753 { ldemul_syslib($3); }
757 floating_point_support:
759 { lang_float(TRUE); }
761 { lang_float(FALSE); }
769 | NAME nocrossref_list
771 struct lang_nocrossref *n;
773 n = (struct lang_nocrossref *) xmalloc (sizeof *n);
778 | NAME ',' nocrossref_list
780 struct lang_nocrossref *n;
782 n = (struct lang_nocrossref *) xmalloc (sizeof *n);
789 mustbe_exp: { ldlex_expression (); }
791 { ldlex_popstate (); $$=$2;}
796 { $$ = exp_unop ('-', $2); }
799 | NEXT '(' exp ')' %prec UNARY
800 { $$ = exp_unop ((int) $1,$3); }
801 | '!' exp %prec UNARY
802 { $$ = exp_unop ('!', $2); }
803 | '+' exp %prec UNARY
805 | '~' exp %prec UNARY
806 { $$ = exp_unop ('~', $2);}
809 { $$ = exp_binop ('*', $1, $3); }
811 { $$ = exp_binop ('/', $1, $3); }
813 { $$ = exp_binop ('%', $1, $3); }
815 { $$ = exp_binop ('+', $1, $3); }
817 { $$ = exp_binop ('-' , $1, $3); }
819 { $$ = exp_binop (LSHIFT , $1, $3); }
821 { $$ = exp_binop (RSHIFT , $1, $3); }
823 { $$ = exp_binop (EQ , $1, $3); }
825 { $$ = exp_binop (NE , $1, $3); }
827 { $$ = exp_binop (LE , $1, $3); }
829 { $$ = exp_binop (GE , $1, $3); }
831 { $$ = exp_binop ('<' , $1, $3); }
833 { $$ = exp_binop ('>' , $1, $3); }
835 { $$ = exp_binop ('&' , $1, $3); }
837 { $$ = exp_binop ('^' , $1, $3); }
839 { $$ = exp_binop ('|' , $1, $3); }
840 | exp '?' exp ':' exp
841 { $$ = exp_trinop ('?' , $1, $3, $5); }
843 { $$ = exp_binop (ANDAND , $1, $3); }
845 { $$ = exp_binop (OROR , $1, $3); }
846 | DEFINED '(' NAME ')'
847 { $$ = exp_nameop (DEFINED, $3); }
849 { $$ = exp_bigintop ($1.integer, $1.str); }
851 { $$ = exp_nameop (SIZEOF_HEADERS,0); }
853 | ALIGNOF '(' NAME ')'
854 { $$ = exp_nameop (ALIGNOF,$3); }
855 | SIZEOF '(' NAME ')'
856 { $$ = exp_nameop (SIZEOF,$3); }
858 { $$ = exp_nameop (ADDR,$3); }
859 | LOADADDR '(' NAME ')'
860 { $$ = exp_nameop (LOADADDR,$3); }
861 | CONSTANT '(' NAME ')'
862 { $$ = exp_nameop (CONSTANT,$3); }
863 | ABSOLUTE '(' exp ')'
864 { $$ = exp_unop (ABSOLUTE, $3); }
865 | ALIGN_K '(' exp ')'
866 { $$ = exp_unop (ALIGN_K,$3); }
867 | ALIGN_K '(' exp ',' exp ')'
868 { $$ = exp_binop (ALIGN_K,$3,$5); }
869 | DATA_SEGMENT_ALIGN '(' exp ',' exp ')'
870 { $$ = exp_binop (DATA_SEGMENT_ALIGN, $3, $5); }
871 | DATA_SEGMENT_RELRO_END '(' exp ',' exp ')'
872 { $$ = exp_binop (DATA_SEGMENT_RELRO_END, $5, $3); }
873 | DATA_SEGMENT_END '(' exp ')'
874 { $$ = exp_unop (DATA_SEGMENT_END, $3); }
875 | SEGMENT_START '(' NAME ',' exp ')'
876 { /* The operands to the expression node are
877 placed in the opposite order from the way
878 in which they appear in the script as
879 that allows us to reuse more code in
881 $$ = exp_binop (SEGMENT_START,
883 exp_nameop (NAME, $3)); }
885 { $$ = exp_unop (ALIGN_K,$3); }
887 { $$ = exp_nameop (NAME,$1); }
888 | MAX_K '(' exp ',' exp ')'
889 { $$ = exp_binop (MAX_K, $3, $5 ); }
890 | MIN_K '(' exp ',' exp ')'
891 { $$ = exp_binop (MIN_K, $3, $5 ); }
892 | ASSERT_K '(' exp ',' NAME ')'
893 { $$ = exp_assert ($3, $5); }
894 | ORIGIN '(' NAME ')'
895 { $$ = exp_nameop (ORIGIN, $3); }
896 | LENGTH '(' NAME ')'
897 { $$ = exp_nameop (LENGTH, $3); }
902 AT '>' NAME { $$ = $3; }
907 AT '(' exp ')' { $$ = $3; }
912 ALIGN_K '(' exp ')' { $$ = $3; }
917 SUBALIGN '(' exp ')' { $$ = $3; }
922 ONLY_IF_RO { $$ = ONLY_IF_RO; }
923 | ONLY_IF_RW { $$ = ONLY_IF_RW; }
924 | SPECIAL { $$ = SPECIAL; }
928 section: NAME { ldlex_expression(); }
932 opt_subalign { ldlex_popstate (); ldlex_script (); }
936 lang_enter_output_section_statement($1, $3,
941 '}' { ldlex_popstate (); ldlex_expression (); }
942 memspec_opt memspec_at_opt phdr_opt fill_opt
945 lang_leave_output_section_statement ($17, $14, $16, $15);
950 { ldlex_expression (); }
951 opt_exp_without_type opt_nocrossrefs opt_at opt_subalign
952 { ldlex_popstate (); ldlex_script (); }
955 lang_enter_overlay ($3, $6);
959 { ldlex_popstate (); ldlex_expression (); }
960 memspec_opt memspec_at_opt phdr_opt fill_opt
963 lang_leave_overlay ($5, (int) $4,
967 | /* The GROUP case is just enough to support the gcc
968 svr3.ifile script. It is not intended to be full
969 support. I'm not even sure what GROUP is supposed
971 GROUP { ldlex_expression (); }
975 lang_add_assignment (exp_assop ('=', ".", $3));
977 '{' sec_or_group_p1 '}'
979 { ldlex_script (); ldfile_open_command_file($2); }
981 { ldlex_popstate (); }
985 NOLOAD { sectype = noload_section; }
986 | DSECT { sectype = noalloc_section; }
987 | COPY { sectype = noalloc_section; }
988 | INFO { sectype = noalloc_section; }
989 | OVERLAY { sectype = noalloc_section; }
994 | /* EMPTY */ { sectype = normal_section; }
995 | '(' ')' { sectype = normal_section; }
999 exp atype ':' { $$ = $1; }
1000 | atype ':' { $$ = (etree_type *)NULL; }
1001 | /* The BIND cases are to support the gcc svr3.ifile
1002 script. They aren't intended to implement full
1003 support for the BIND keyword. I'm not even sure
1004 what BIND is supposed to mean. */
1005 BIND '(' exp ')' atype ':' { $$ = $3; }
1006 | BIND '(' exp ')' BLOCK '(' exp ')' atype ':'
1010 opt_exp_without_type:
1011 exp ':' { $$ = $1; }
1012 | ':' { $$ = (etree_type *) NULL; }
1025 | { $$ = DEFAULT_MEMORY_REGION; }
1035 struct lang_output_section_phdr_list *n;
1037 n = ((struct lang_output_section_phdr_list *)
1038 xmalloc (sizeof *n));
1052 lang_enter_overlay_section ($2);
1054 '{' statement_list_opt '}'
1055 { ldlex_popstate (); ldlex_expression (); }
1059 lang_leave_overlay_section ($9, $8);
1065 PHDRS '{' phdr_list '}'
1074 NAME { ldlex_expression (); }
1075 phdr_type phdr_qualifiers { ldlex_popstate (); }
1078 lang_new_phdr ($1, $3, $4.filehdr, $4.phdrs, $4.at,
1088 if ($1->type.node_class == etree_name
1089 && $1->type.node_code == NAME)
1093 static const char * const phdr_types[] =
1095 "PT_NULL", "PT_LOAD", "PT_DYNAMIC",
1096 "PT_INTERP", "PT_NOTE", "PT_SHLIB",
1102 i < sizeof phdr_types / sizeof phdr_types[0];
1104 if (strcmp (s, phdr_types[i]) == 0)
1109 if (i == sizeof phdr_types / sizeof phdr_types[0])
1111 if (strcmp (s, "PT_GNU_EH_FRAME") == 0)
1112 $$ = exp_intop (0x6474e550);
1113 else if (strcmp (s, "PT_GNU_STACK") == 0)
1114 $$ = exp_intop (0x6474e551);
1118 %X%P:%S: unknown phdr type `%s' (try integer literal)\n"),
1130 memset (&$$, 0, sizeof (struct phdr_info));
1132 | NAME phdr_val phdr_qualifiers
1135 if (strcmp ($1, "FILEHDR") == 0 && $2 == NULL)
1137 else if (strcmp ($1, "PHDRS") == 0 && $2 == NULL)
1139 else if (strcmp ($1, "FLAGS") == 0 && $2 != NULL)
1142 einfo (_("%X%P:%S: PHDRS syntax error at `%s'\n"), $1);
1144 | AT '(' exp ')' phdr_qualifiers
1164 ldlex_version_file ();
1165 PUSH_ERROR (_("dynamic list"));
1176 | dynamic_list_nodes dynamic_list_node
1180 '{' dynamic_list_tag '}' ';'
1186 lang_append_dynamic_list ($1);
1190 /* This syntax is used within an external version script file. */
1192 version_script_file:
1194 ldlex_version_file ();
1195 PUSH_ERROR (_("VERSION script"));
1204 /* This is used within a normal linker script file. */
1208 ldlex_version_script ();
1210 VERSIONK '{' vers_nodes '}'
1218 | vers_nodes vers_node
1222 '{' vers_tag '}' ';'
1224 lang_register_vers_node (NULL, $2, NULL);
1226 | VERS_TAG '{' vers_tag '}' ';'
1228 lang_register_vers_node ($1, $3, NULL);
1230 | VERS_TAG '{' vers_tag '}' verdep ';'
1232 lang_register_vers_node ($1, $3, $5);
1239 $$ = lang_add_vers_depend (NULL, $1);
1243 $$ = lang_add_vers_depend ($1, $2);
1250 $$ = lang_new_vers_node (NULL, NULL);
1254 $$ = lang_new_vers_node ($1, NULL);
1256 | GLOBAL ':' vers_defns ';'
1258 $$ = lang_new_vers_node ($3, NULL);
1260 | LOCAL ':' vers_defns ';'
1262 $$ = lang_new_vers_node (NULL, $3);
1264 | GLOBAL ':' vers_defns ';' LOCAL ':' vers_defns ';'
1266 $$ = lang_new_vers_node ($3, $7);
1273 $$ = lang_new_vers_pattern (NULL, $1, ldgram_vers_current_lang, FALSE);
1277 $$ = lang_new_vers_pattern (NULL, $1, ldgram_vers_current_lang, TRUE);
1279 | vers_defns ';' VERS_IDENTIFIER
1281 $$ = lang_new_vers_pattern ($1, $3, ldgram_vers_current_lang, FALSE);
1283 | vers_defns ';' NAME
1285 $$ = lang_new_vers_pattern ($1, $3, ldgram_vers_current_lang, TRUE);
1287 | vers_defns ';' EXTERN NAME '{'
1289 $<name>$ = ldgram_vers_current_lang;
1290 ldgram_vers_current_lang = $4;
1292 vers_defns opt_semicolon '}'
1294 struct bfd_elf_version_expr *pat;
1295 for (pat = $7; pat->next != NULL; pat = pat->next);
1298 ldgram_vers_current_lang = $<name>6;
1302 $<name>$ = ldgram_vers_current_lang;
1303 ldgram_vers_current_lang = $2;
1305 vers_defns opt_semicolon '}'
1308 ldgram_vers_current_lang = $<name>4;
1312 $$ = lang_new_vers_pattern (NULL, "global", ldgram_vers_current_lang, FALSE);
1314 | vers_defns ';' GLOBAL
1316 $$ = lang_new_vers_pattern ($1, "global", ldgram_vers_current_lang, FALSE);
1320 $$ = lang_new_vers_pattern (NULL, "local", ldgram_vers_current_lang, FALSE);
1322 | vers_defns ';' LOCAL
1324 $$ = lang_new_vers_pattern ($1, "local", ldgram_vers_current_lang, FALSE);
1328 $$ = lang_new_vers_pattern (NULL, "extern", ldgram_vers_current_lang, FALSE);
1330 | vers_defns ';' EXTERN
1332 $$ = lang_new_vers_pattern ($1, "extern", ldgram_vers_current_lang, FALSE);
1346 if (ldfile_assumed_script)
1347 einfo (_("%P:%s: file format not recognized; treating as linker script\n"),
1348 ldfile_input_filename);
1349 if (error_index > 0 && error_index < ERROR_NAME_MAX)
1350 einfo ("%P%F:%S: %s in %s\n", arg, error_names[error_index-1]);
1352 einfo ("%P%F:%S: %s\n", arg);