[deliverable/binutils-gdb.git] / ld / ldgram.y

%{
/*
 * $Id$ 
 *
 *
*/

/* 
   This is a YACC grammer intended to parse a superset of the AT&T
   linker scripting languaue.


   Written by Steve Chamberlain steve@cygnus.com
*/


#include "sysdep.h"
#include "bfd.h"
#include "ld.h"    
#include "ldexp.h"
#include "ldversion.h"
#include "ldlang.h"
#include "ld-emul.h"
#include "ldfile.h"
#include "ldmisc.h"
#define YYDEBUG 1

boolean option_v;
extern unsigned int lineno;
extern boolean trace_files;
extern boolean write_map;

boolean hex_mode;

strip_symbols_type strip_symbols=STRIP_NONE;
discard_locals_type discard_locals=DISCARD_NONE;


lang_memory_region_type *region;


lang_memory_region_type *lang_memory_region_lookup();
lang_output_section_statement_type *lang_output_section_statement_lookup();

#ifdef __STDC__

void lang_add_data(int type, union etree_union *exp);
void lang_enter_output_section_statement(char *output_section_statement_name, etree_type *address_exp, bfd_vma block_value);

#else

void lang_add_data();
void lang_enter_output_section_statement();

#endif /* __STDC__ */

extern args_type command_line;
char *current_file;
boolean ldgram_want_filename = true;
boolean had_script = false;
boolean force_make_executable = false;

boolean ldgram_in_script = false;
boolean ldgram_had_equals = false;
/* LOCALS */


%}
%union {
  bfd_vma integer;
  int voidval;
  char *name;
  int token;
  union etree_union *etree;
  asection *section;
  struct lang_output_section_statement_struct *output_section_statement;
  union  lang_statement_union **statement_ptr;
  int lineno;
  struct {
    FILE *file;
    char *name;
    unsigned int lineno;
  } state;

  
}

%type <etree> exp  opt_exp  exp_head
%type <integer> fill_opt opt_block
%type <name> memspec_opt
%token <integer> INT CHAR 
%token <name> NAME
%type  <integer> length

%right <token> PLUSEQ MINUSEQ MULTEQ DIVEQ  '=' LSHIFTEQ RSHIFTEQ   ANDEQ OREQ 
%right <token> '?' ':'
%left <token> OROR
%left <token>  ANDAND
%left <token> '|'
%left <token>  '^'
%left  <token> '&'
%left <token>  EQ NE
%left  <token> '<' '>' LE GE
%left  <token> LSHIFT RSHIFT
%left  <token> '+' '-'
%left  <token> '*' '/' '%'
%right UNARY
%left <token> '('
%token <token> ALIGN_K BLOCK LONG SHORT BYTE
%token SECTIONS  
%token '{' '}'
%token ALIGNMENT SIZEOF_HEADERS OUTPUT_FORMAT FORCE_COMMON_ALLOCATION OUTPUT_ARCH
%token NEXT SIZEOF ADDR  SCRIPT ENDSCRIPT SIZEOF_HEADERS
%token MEMORY 
%token DSECT NOLOAD COPY INFO OVERLAY 
%token NAME DEFINED TARGET_K SEARCH_DIR MAP ENTRY 
%token OPTION_e OPTION_c OPTION_noinhibit_exec OPTION_s OPTION_S
%token OPTION_format  OPTION_F OPTION_u

%token OPTION_d OPTION_dc OPTION_dp OPTION_x OPTION_X OPTION_defsym
%token OPTION_v OPTION_M OPTION_t STARTUP HLL SYSLIB FLOAT NOFLOAT 
%token OPTION_n OPTION_r OPTION_o OPTION_b  OPTION_A OPTION_R
%token <name> OPTION_l OPTION_L  OPTION_T OPTION_Aarch OPTION_Tfile  OPTION_Texp
%token OPTION_Ur 
%token ORIGIN FILL OPTION_g
%token LENGTH  BIND SUBSECTION_ALIGN   CREATE_OBJECT_SYMBOLS INPUT OUTPUT
%type <token> assign_op SIZEOF NEXT ADDR 
%type <etree> assignment
%type <name>  filename

%{
ld_config_type config;
%}

%%


file:	command_line  { lang_final(); };


filename:
  NAME;

command_line:
		command_line command_line_option
	|
	;

command_line_option:
		'{'
                 	{ ldgram_in_script = true; }
		ifile_list 
			{ ldgram_in_script = false; }
		'}'
	|	OPTION_v
			{	
			ldversion();
			option_v = true;
			}
	|	OPTION_t {
			trace_files = true;
			}
	|	OPTION_M {
			write_map = true;
			}
	|	OPTION_n {
			config.magic_demand_paged = false;
			config.make_executable = false;
			}
        |       OPTION_s {
	  		strip_symbols = STRIP_ALL;
			}
	|	OPTION_S {
			strip_symbols = STRIP_DEBUGGER;
			}
        |       OPTION_u NAME {
			ldlang_add_undef($2);
	      	}
	    
	|	OPTION_r {
			config.relocateable_output = true;
			config.build_constructors = false;
			config.magic_demand_paged = false;
			}
        |       OPTION_Ur {
			config.relocateable_output = true;
			config.build_constructors = true;
			config.magic_demand_paged = false;
		      }	            
	|	OPTION_o filename
			{
			lang_add_output($2); 
			}
	|	OPTION_e NAME
			{ lang_add_entry($2); 
			}
	|	OPTION_X {
			discard_locals = DISCARD_L;
		}
	|	OPTION_x {
			discard_locals = DISCARD_ALL;
		}

	| 	OPTION_noinhibit_exec
			{
			force_make_executable = true;
			}
    	|      OPTION_d {
			  command_line.force_common_definition = true;
			}
    	|      OPTION_dc
			 {
			  command_line.force_common_definition = true;
			}
	|	OPTION_g
			{
			/* Ignored */
			}
	|      	OPTION_dp
			 {
			  command_line.force_common_definition = true;
			}
	| 	OPTION_format NAME
	           {
			  lang_add_target($2);
       		   }
	| 	OPTION_Texp 
		{ 
			hex_mode  =true; 
		} 
		INT
		{ 
			lang_section_start($1,exp_intop($3));
			hex_mode = false; 
		}
	
	| 	OPTION_Aarch 
		{ 
			ldfile_add_arch($1); 
		}
	|	 OPTION_b NAME
			{
			lang_add_target($2);
			}
	|	OPTION_L
			{
			ldfile_add_library_path($1);
			}
	|	OPTION_F
		{
		/* Ignore */
		}
        | 	NAME
		{ lang_add_input_file($1,lang_input_file_is_file_enum,
				 (char *)NULL); }
	|	OPTION_c filename script_file
			{ ldfile_open_command_file($2); }
	|	OPTION_Tfile 
			{ ldfile_open_command_file($1); } script_file

	|	OPTION_T filename 
			{ ldfile_open_command_file($2); } script_file

	|	OPTION_l
			{
			  lang_add_input_file($1,
					 lang_input_file_is_l_enum,
					 (char *)NULL);
			}
	| 	OPTION_R filename
			{
			lang_add_input_file($2,
				lang_input_file_is_symbols_only_enum,
				(char *)NULL);
			}
	|	OPTION_defsym 
			{
			}
		NAME 	 '='
		exp_head 
			{
			lang_add_assignment(exp_assop($4,$3,$5));
			}	
	| '-' NAME
		 { info("%P%F Unrecognised option -%s\n", $2);  }

	;


script_file:
	{ ldgram_in_script = true; }
       ifile_list '}'
        { ldgram_in_script = false; }

        ;


ifile_list:
       ifile_list ifile_p1 
        |
	;


ifile_p1:
		memory
	|	sections
	|	startup
	|	high_level_library
	|	low_level_library
	|	floating_point_support
	|	statement_anywhere
	|	TARGET_K '(' NAME ')'
		{ lang_add_target($3); }
	|	SEARCH_DIR '(' filename ')'
		{ ldfile_add_library_path($3); }
	|	OUTPUT '(' filename ')'
		{ lang_add_output($3); }
        |       OUTPUT_FORMAT '(' NAME ')'
		  { lang_add_output_format($3); }
        |       OUTPUT_ARCH '(' NAME ')'
		  { ldfile_set_output_arch($3); }
	|	FORCE_COMMON_ALLOCATION
		{ command_line.force_common_definition = true ; }
	|	INPUT '(' input_list ')'
     	|	MAP '(' filename ')'
		{ lang_add_map($3); }
	;

input_list:
		NAME
		{ lang_add_input_file($1,lang_input_file_is_file_enum,
				 (char *)NULL); }
	|	input_list ',' NAME
		{ lang_add_input_file($3,lang_input_file_is_file_enum,
				 (char *)NULL); }
	|	input_list   NAME
		{ lang_add_input_file($2, lang_input_file_is_file_enum,
				 (char *)NULL); }
	;

sections:
		SECTIONS '{'sec_or_group_p1  '}' 
	;

sec_or_group_p1:
		sec_or_group_p1 section
	|	sec_or_group_p1 statement_anywhere
	|
	;

statement_anywhere:
		ENTRY '(' NAME ')'
		{ lang_add_entry($3); }
	|	assignment end
	;

file_NAME_list:
		NAME
			{ lang_add_wild($1, current_file); }
	|	file_NAME_list opt_comma NAME 
			{ lang_add_wild($3, current_file); }
	;

input_section_spec:
		NAME
		{
		lang_add_wild((char *)NULL, $1);
		}
        |	'[' 
			{
			current_file = (char *)NULL;
			}
			file_NAME_list  
		']' 
	|	NAME
			{
			current_file  =$1;
			} 
		'(' file_NAME_list ')'
	|	'*' 
			{	
			current_file = (char *)NULL;
			} 
		'(' file_NAME_list ')'
	;

statement:
		statement assignment end
	|	statement CREATE_OBJECT_SYMBOLS
		{
 		  lang_add_attribute(lang_object_symbols_statement_enum); }

	|	statement input_section_spec
        |       statement length '(' exp_head ')'
        	        {
			lang_add_data($2,$4);
			}
  
	|	statement FILL '(' exp_head ')'
			{
			  lang_add_fill
			    (exp_get_value_int($4,
					       0,
					       "fill value",
					       lang_first_phase_enum));
			}
	|
	;

length:
		LONG  
			{ $$ = $1; }
	| 	SHORT 
			{ $$ = $1; }
	|	BYTE 
			{ $$ = $1; }
	;

fill_opt:
          '=' exp_head
		{
		  $$ =	 exp_get_value_int($2,
					   0,
					   "fill value",
					   lang_first_phase_enum); 
		}
	|  	{  $$ = 0; }
	;

		
assign_op:
		PLUSEQ
			{ $$ = '+'; }
	|	MINUSEQ 
			{ $$ = '-'; }
	| 	MULTEQ
			{ $$ = '*'; }
	| 	DIVEQ
			{ $$ = '/'; }
	| 	LSHIFTEQ
			{ $$ = LSHIFT; }
	| 	RSHIFTEQ
			{ $$ = RSHIFT; }
	| 	ANDEQ
			{ $$ = '&'; }
	| 	OREQ
			{ $$ = '|'; }

	;

end:	';' | ','
	;


assignment:
	
		NAME '=' exp_head 
		{
		  lang_add_assignment(exp_assop($2,$1,$3));
		}
	|	NAME assign_op exp_head 
		{
		  lang_add_assignment(exp_assop('=',$1,exp_binop($2,exp_nameop(NAME,$1),$3)));
		}
		
	;


opt_comma:
		','	|	;


memory:
		MEMORY '{' memory_spec memory_spec_list '}'
	;

memory_spec_list:
		memory_spec_list memory_spec 
	|	memory_spec_list ',' memory_spec
	|
	;


memory_spec:
		NAME 
			{ region = lang_memory_region_lookup($1); }
		attributes_opt  ':' origin_spec opt_comma length_spec

		{
		 

		}
	;
origin_spec:
	ORIGIN '=' exp
		{ region->current =
		 region->origin =
		 exp_get_vma($3, 0L,"origin", lang_first_phase_enum); }
	;
length_spec:
             LENGTH '=' exp		
               {  region->length = exp_get_vma($3,
					       ~((bfd_vma)0),
					       "length",
					       lang_first_phase_enum);
		}
	

attributes_opt:
		  '(' NAME ')'
			{
			lang_set_flags(&region->flags, $2);
			}
	|
  
	;

startup:
	STARTUP '(' filename ')'
		{ lang_startup($3); }
	;

high_level_library:
		HLL '('  high_level_library_NAME_list ')'
	|	HLL '('  ')'
			{ ldemul_hll((char *)NULL); }
	;

high_level_library_NAME_list:
		high_level_library_NAME_list  opt_comma filename
			{ ldemul_hll($3); }
	|	filename
			{ ldemul_hll($1); }

	;

low_level_library:
	SYSLIB '(' low_level_library_NAME_list ')'
	;
low_level_library_NAME_list:
		low_level_library_NAME_list opt_comma filename
			{ ldemul_syslib($3); }				
	|
	;

floating_point_support:
		FLOAT
			{ lang_float(true); }
	|	NOFLOAT
			{ lang_float(false); }	
	;
		

exp	:
		'-' exp    %prec UNARY
			{ $$ = exp_unop('-', $2); }
	|	'(' exp ')'
			{ $$ = $2; }
	|	NEXT '(' exp ')' %prec UNARY
			{ $$ = exp_unop($1,$3); }
	|	'!' exp    %prec UNARY
			{ $$ = exp_unop('!', $2); }
	|	'+' exp    %prec UNARY
			{ $$ = $2; }
	|	'~' exp    %prec UNARY
			{ $$ = exp_unop('~', $2);}

	|	exp '*' exp
			{ $$ = exp_binop('*', $1, $3); }
	|	exp '/' exp
			{ $$ = exp_binop('/', $1, $3); }
	|	exp '%' exp
			{ $$ = exp_binop('%', $1, $3); }
	|	exp '+' exp
			{ $$ = exp_binop('+', $1, $3); }
	|	exp '-' exp
			{ $$ = exp_binop('-' , $1, $3); }			
	|	exp LSHIFT exp
			{ $$ = exp_binop(LSHIFT , $1, $3); }
	|	exp RSHIFT exp
			{ $$ = exp_binop(RSHIFT , $1, $3); }
	|	exp EQ exp
			{ $$ = exp_binop(EQ , $1, $3); }
	|	exp NE exp
			{ $$ = exp_binop(NE , $1, $3); }
	|	exp LE exp
			{ $$ = exp_binop(LE , $1, $3); }
	|	exp GE exp
			{ $$ = exp_binop(GE , $1, $3); }
	|	exp '<' exp
			{ $$ = exp_binop('<' , $1, $3); }
	|	exp '>' exp
			{ $$ = exp_binop('>' , $1, $3); }
	|	exp '&' exp
			{ $$ = exp_binop('&' , $1, $3); }
	|	exp '^' exp
			{ $$ = exp_binop('^' , $1, $3); }
	|	exp '|' exp
			{ $$ = exp_binop('|' , $1, $3); }
	|	exp '?' exp ':' exp
			{ $$ = exp_trinop('?' , $1, $3, $5); }
	|	exp ANDAND exp
			{ $$ = exp_binop(ANDAND , $1, $3); }
	|	exp OROR exp
			{ $$ = exp_binop(OROR , $1, $3); }
	|	DEFINED '(' NAME ')'
			{ $$ = exp_nameop(DEFINED, $3); }
	|	INT
			{ $$ = exp_intop($1); }
        |	SIZEOF_HEADERS 
			{ $$ = exp_nameop(SIZEOF_HEADERS,0); }

	|	SIZEOF  '('  NAME ')'
			{ $$ = exp_nameop($1,$3); }
	|	ADDR '(' NAME ')'
			{ $$ = exp_nameop($1,$3); }
	|	ALIGN_K '(' exp ')'
			{ $$ = exp_unop($1,$3); }
	|	NAME
			{ $$ = exp_nameop(NAME,$1); }
	;


section:	NAME opt_exp opt_block ':' opt_things'{' 
		{
		lang_enter_output_section_statement($1,$2,$3);
		}
	       statement 	'}' 	fill_opt memspec_opt
		{
		  lang_leave_output_section_statement($10, $11);
		}

	;

opt_things: 
	{

	}
	;

exp_head:
	exp { $$ = $1; }
	;

opt_exp:
		exp_head
			{ $$ = $1; }
	|		{ $$= (etree_type *)NULL; }
	;

opt_block:
		BLOCK '(' exp_head ')'
		{ $$ = exp_get_value_int($3,
					 1L,
					 "block",
					 lang_first_phase_enum); 
		}
	|	{ $$  = 1; }
	;
  
memspec_opt:
		'>' NAME
		{ $$ = $2; }
	|	{ $$ = "*default*"; }
	;
Commit	Line	Data
1418c83b	1	%{
2fa0b342 DHW	2	/*
	3	* $Id$
	4	*
2fa0b342 DHW	5	*
	6	*/
	7
	8	/*
	9	This is a YACC grammer intended to parse a superset of the AT&T
	10	linker scripting languaue.
	11
	12
	13	Written by Steve Chamberlain steve@cygnus.com
	14	*/
	15
	16
2fa0b342 DHW	17
	18	#include "sysdep.h"
	19	#include "bfd.h"
2fa0b342 DHW	20	#include "ld.h"
	21	#include "ldexp.h"
	22	#include "ldversion.h"
	23	#include "ldlang.h"
	24	#include "ld-emul.h"
	25	#include "ldfile.h"
	26	#include "ldmisc.h"
	27	#define YYDEBUG 1
	28
	29	boolean option_v;
2fa0b342 DHW	30	extern unsigned int lineno;
	31	extern boolean trace_files;
	32	extern boolean write_map;
	33
	34	boolean hex_mode;
	35
d646b568 SC	36	strip_symbols_type strip_symbols=STRIP_NONE;
d646b568 SC	37	discard_locals_type discard_locals=DISCARD_NONE;
2fa0b342 DHW	38
	39
	40	lang_memory_region_type *region;
	41
	42
	43	lang_memory_region_type *lang_memory_region_lookup();
	44	lang_output_section_statement_type *lang_output_section_statement_lookup();
	45
	46	#ifdef __STDC__
	47
	48	void lang_add_data(int type, union etree_union *exp);
	49	void lang_enter_output_section_statement(char output_section_statement_name, etree_type address_exp, bfd_vma block_value);
	50
	51	#else
	52
	53	void lang_add_data();
	54	void lang_enter_output_section_statement();
	55
	56	#endif /* __STDC__ */
	57
	58	extern args_type command_line;
	59	char *current_file;
	60	boolean ldgram_want_filename = true;
	61	boolean had_script = false;
	62	boolean force_make_executable = false;
1d45ccb3	63
1418c83b	64	boolean ldgram_in_script = false;
1d45ccb3	65	boolean ldgram_had_equals = false;
2fa0b342 DHW	66	/* LOCALS */
	67
	68
	69
	70
	71	%}
	72	%union {
	73	bfd_vma integer;
	74	int voidval;
	75	char *name;
	76	int token;
	77	union etree_union *etree;
	78	asection *section;
	79	struct lang_output_section_statement_struct *output_section_statement;
	80	union lang_statement_union **statement_ptr;
	81	int lineno;
	82	struct {
	83	FILE *file;
	84	char *name;
	85	unsigned int lineno;
	86	} state;
	87
	88
	89	}
	90
	91	%type <etree> exp opt_exp exp_head
	92	%type <integer> fill_opt opt_block
	93	%type <name> memspec_opt
	94	%token <integer> INT CHAR
	95	%token <name> NAME
	96	%type <integer> length
	97
a37cc0c0	98	%right <token> PLUSEQ MINUSEQ MULTEQ DIVEQ '=' LSHIFTEQ RSHIFTEQ ANDEQ OREQ
2fa0b342 DHW	99	%right <token> '?' ':'
	100	%left <token> OROR
	101	%left <token> ANDAND
	102	%left <token> '\|'
	103	%left <token> '^'
	104	%left <token> '&'
	105	%left <token> EQ NE
	106	%left <token> '<' '>' LE GE
	107	%left <token> LSHIFT RSHIFT
	108	%left <token> '+' '-'
	109	%left <token> '*' '/' '%'
	110	%right UNARY
	111	%left <token> '('
	112	%token <token> ALIGN_K BLOCK LONG SHORT BYTE
	113	%token SECTIONS
	114	%token '{' '}'
a37cc0c0	115	%token ALIGNMENT SIZEOF_HEADERS OUTPUT_FORMAT FORCE_COMMON_ALLOCATION OUTPUT_ARCH
65c552e3	116	%token NEXT SIZEOF ADDR SCRIPT ENDSCRIPT SIZEOF_HEADERS
2fa0b342 DHW	117	%token MEMORY
	118	%token DSECT NOLOAD COPY INFO OVERLAY
	119	%token NAME DEFINED TARGET_K SEARCH_DIR MAP ENTRY
7ca04d28	120	%token OPTION_e OPTION_c OPTION_noinhibit_exec OPTION_s OPTION_S
1418c83b	121	%token OPTION_format OPTION_F OPTION_u
7ca04d28	122
a37cc0c0 SC	123	%token OPTION_d OPTION_dc OPTION_dp OPTION_x OPTION_X OPTION_defsym
a37cc0c0 SC	124	%token OPTION_v OPTION_M OPTION_t STARTUP HLL SYSLIB FLOAT NOFLOAT
1418c83b	125	%token OPTION_n OPTION_r OPTION_o OPTION_b OPTION_A OPTION_R
2fa0b342 DHW	126	%token <name> OPTION_l OPTION_L OPTION_T OPTION_Aarch OPTION_Tfile OPTION_Texp
	127	%token OPTION_Ur
	128	%token ORIGIN FILL OPTION_g
	129	%token LENGTH BIND SUBSECTION_ALIGN CREATE_OBJECT_SYMBOLS INPUT OUTPUT
	130	%type <token> assign_op SIZEOF NEXT ADDR
	131	%type <etree> assignment
	132	%type <name> filename
	133
	134	%{
	135	ld_config_type config;
	136	%}
	137
	138	%%
	139
	140
	141
	142	file: command_line { lang_final(); };
	143
	144
	145	filename:
7ca04d28	146	NAME;
2fa0b342 DHW	147
	148	command_line:
	149	command_line command_line_option
	150	\|
	151	;
	152
	153	command_line_option:
a37cc0c0	154	'{'
ac004870 SC	155	{ ldgram_in_script = true; }
	156	ifile_list
	157	{ ldgram_in_script = false; }
a37cc0c0	158	'}'
1418c83b	159	\| OPTION_v
2fa0b342 DHW	160	{
	161	ldversion();
	162	option_v = true;
	163	}
	164	\| OPTION_t {
	165	trace_files = true;
	166	}
	167	\| OPTION_M {
	168	write_map = true;
	169	}
	170	\| OPTION_n {
	171	config.magic_demand_paged = false;
	172	config.make_executable = false;
	173	}
	174	\| OPTION_s {
	175	strip_symbols = STRIP_ALL;
	176	}
	177	\| OPTION_S {
	178	strip_symbols = STRIP_DEBUGGER;
	179	}
1418c83b SC	180	\| OPTION_u NAME {
	181	ldlang_add_undef($2);
	182	}
	183
2fa0b342 DHW	184	\| OPTION_r {
	185	config.relocateable_output = true;
	186	config.build_constructors = false;
	187	config.magic_demand_paged = false;
	188	}
	189	\| OPTION_Ur {
	190	config.relocateable_output = true;
	191	config.build_constructors = true;
	192	config.magic_demand_paged = false;
	193	}
	194	\| OPTION_o filename
	195	{
	196	lang_add_output($2);
	197	}
	198	\| OPTION_e NAME
	199	{ lang_add_entry($2);
	200	}
	201	\| OPTION_X {
	202	discard_locals = DISCARD_L;
	203	}
	204	\| OPTION_x {
	205	discard_locals = DISCARD_ALL;
	206	}
	207
	208	\| OPTION_noinhibit_exec
	209	{
	210	force_make_executable = true;
	211	}
1418c83b	212	\| OPTION_d {
2fa0b342 DHW	213	command_line.force_common_definition = true;
2fa0b342 DHW	214	}
1418c83b	215	\| OPTION_dc
2fa0b342 DHW	216	{
	217	command_line.force_common_definition = true;
	218	}
	219	\| OPTION_g
	220	{
	221	/* Ignored */
	222	}
1418c83b	223	\| OPTION_dp
2fa0b342 DHW	224	{
	225	command_line.force_common_definition = true;
	226	}
1418c83b	227	\| OPTION_format NAME
7ca04d28 SC	228	{
	229	lang_add_target($2);
	230	}
de7c1ff6	231	\| OPTION_Texp
1418c83b SC	232	{
	233	hex_mode =true;
	234	}
	235	INT
	236	{
	237	lang_section_start($1,exp_intop($3));
	238	hex_mode = false;
	239	}
2fa0b342	240
7ca04d28	241	\| OPTION_Aarch
1418c83b SC	242	{
	243	ldfile_add_arch($1);
	244	}
7ca04d28	245	\| OPTION_b NAME
2fa0b342 DHW	246	{
	247	lang_add_target($2);
	248	}
	249	\| OPTION_L
	250	{
	251	ldfile_add_library_path($1);
1418c83b	252	}
7ca04d28 SC	253	\| OPTION_F
	254	{
	255	/* Ignore */
	256	}
1418c83b SC	257	\| NAME
	258	{ lang_add_input_file($1,lang_input_file_is_file_enum,
	259	(char *)NULL); }
	260	\| OPTION_c filename script_file
2fa0b342	261	{ ldfile_open_command_file($2); }
1418c83b SC	262	\| OPTION_Tfile
1418c83b SC	263	{ ldfile_open_command_file($1); } script_file
2fa0b342	264
1418c83b SC	265	\| OPTION_T filename
1418c83b SC	266	{ ldfile_open_command_file($2); } script_file
2fa0b342 DHW	267
	268	\| OPTION_l
	269	{
	270	lang_add_input_file($1,
	271	lang_input_file_is_l_enum,
	272	(char *)NULL);
	273	}
1418c83b	274	\| OPTION_R filename
2fa0b342 DHW	275	{
	276	lang_add_input_file($2,
	277	lang_input_file_is_symbols_only_enum,
	278	(char *)NULL);
	279	}
7ca04d28 SC	280	\| OPTION_defsym
7ca04d28 SC	281	{
7ca04d28	282	}
1d45ccb3 SC	283	NAME '='
1d45ccb3 SC	284	exp_head
7ca04d28	285	{
1d45ccb3	286	lang_add_assignment(exp_assop($4,$3,$5));
7ca04d28	287	}
1418c83b SC	288	\| '-' NAME
1418c83b SC	289	{ info("%P%F Unrecognised option -%s\n", $2); }
7ca04d28	290
2fa0b342 DHW	291	;
	292
	293
1418c83b	294
2fa0b342 DHW	295
	296
	297
1418c83b SC	298
	299
	300	script_file:
	301	{ ldgram_in_script = true; }
a37cc0c0	302	ifile_list '}'
1418c83b SC	303	{ ldgram_in_script = false; }
	304
	305	;
	306
	307
	308	ifile_list:
	309	ifile_list ifile_p1
13a0e8d7	310	\|
2fa0b342 DHW	311	;
	312
	313
	314
	315	ifile_p1:
	316	memory
	317	\| sections
	318	\| startup
	319	\| high_level_library
	320	\| low_level_library
	321	\| floating_point_support
ac004870	322	\| statement_anywhere
2fa0b342 DHW	323	\| TARGET_K '(' NAME ')'
	324	{ lang_add_target($3); }
	325	\| SEARCH_DIR '(' filename ')'
	326	{ ldfile_add_library_path($3); }
	327	\| OUTPUT '(' filename ')'
	328	{ lang_add_output($3); }
13a0e8d7 SC	329	\| OUTPUT_FORMAT '(' NAME ')'
13a0e8d7 SC	330	{ lang_add_output_format($3); }
a37cc0c0 SC	331	\| OUTPUT_ARCH '(' NAME ')'
a37cc0c0 SC	332	{ ldfile_set_output_arch($3); }
13a0e8d7 SC	333	\| FORCE_COMMON_ALLOCATION
13a0e8d7 SC	334	{ command_line.force_common_definition = true ; }
2fa0b342 DHW	335	\| INPUT '(' input_list ')'
	336	\| MAP '(' filename ')'
	337	{ lang_add_map($3); }
	338	;
	339
	340	input_list:
	341	NAME
	342	{ lang_add_input_file($1,lang_input_file_is_file_enum,
	343	(char *)NULL); }
	344	\| input_list ',' NAME
	345	{ lang_add_input_file($3,lang_input_file_is_file_enum,
	346	(char *)NULL); }
	347	\| input_list NAME
	348	{ lang_add_input_file($2, lang_input_file_is_file_enum,
	349	(char *)NULL); }
	350	;
	351
	352	sections:
	353	SECTIONS '{'sec_or_group_p1 '}'
	354	;
	355
	356	sec_or_group_p1:
	357	sec_or_group_p1 section
	358	\| sec_or_group_p1 statement_anywhere
	359	\|
	360	;
	361
	362	statement_anywhere:
	363	ENTRY '(' NAME ')'
	364	{ lang_add_entry($3); }
	365	\| assignment end
	366	;
	367
1418c83b SC	368	file_NAME_list:
	369	NAME
	370	{ lang_add_wild($1, current_file); }
	371	\| file_NAME_list opt_comma NAME
	372	{ lang_add_wild($3, current_file); }
	373	;
	374
	375	input_section_spec:
	376	NAME
	377	{
	378	lang_add_wild((char *)NULL, $1);
	379	}
	380	\| '['
	381	{
	382	current_file = (char *)NULL;
	383	}
	384	file_NAME_list
	385	']'
	386	\| NAME
	387	{
	388	current_file =$1;
	389	}
	390	'(' file_NAME_list ')'
	391	\| '*'
	392	{
	393	current_file = (char *)NULL;
	394	}
	395	'(' file_NAME_list ')'
	396	;
	397
2fa0b342 DHW	398	statement:
	399	statement assignment end
	400	\| statement CREATE_OBJECT_SYMBOLS
13a0e8d7 SC	401	{
	402	lang_add_attribute(lang_object_symbols_statement_enum); }
	403
2fa0b342 DHW	404	\| statement input_section_spec
	405	\| statement length '(' exp_head ')'
	406	{
	407	lang_add_data($2,$4);
	408	}
	409
	410	\| statement FILL '(' exp_head ')'
	411	{
	412	lang_add_fill
	413	(exp_get_value_int($4,
	414	0,
	415	"fill value",
	416	lang_first_phase_enum));
	417	}
	418	\|
	419	;
	420
	421	length:
	422	LONG
	423	{ $$ = $1; }
	424	\| SHORT
	425	{ $$ = $1; }
	426	\| BYTE
	427	{ $$ = $1; }
	428	;
	429
	430	fill_opt:
	431	'=' exp_head
	432	{
	433	$$ = exp_get_value_int($2,
	434	0,
	435	"fill value",
	436	lang_first_phase_enum);
	437	}
	438	\| { $$ = 0; }
	439	;
	440
	441
	442
	443	assign_op:
	444	PLUSEQ
	445	{ $$ = '+'; }
	446	\| MINUSEQ
	447	{ $$ = '-'; }
	448	\| MULTEQ
	449	{ $$ = '*'; }
	450	\| DIVEQ
	451	{ $$ = '/'; }
	452	\| LSHIFTEQ
	453	{ $$ = LSHIFT; }
	454	\| RSHIFTEQ
	455	{ $$ = RSHIFT; }
	456	\| ANDEQ
	457	{ $$ = '&'; }
	458	\| OREQ
	459	{ $$ = '\|'; }
	460
	461	;
	462
	463	end: ';' \| ','
	464	;
	465
2fa0b342 DHW	466
	467	assignment:
	468
	469	NAME '=' exp_head
	470	{
	471	lang_add_assignment(exp_assop($2,$1,$3));
	472	}
	473	\| NAME assign_op exp_head
	474	{
	475	lang_add_assignment(exp_assop('=',$1,exp_binop($2,exp_nameop(NAME,$1),$3)));
	476	}
	477
	478	;
	479
	480
	481	opt_comma:
	482	',' \| ;
	483
	484
	485	memory:
	486	MEMORY '{' memory_spec memory_spec_list '}'
	487	;
	488
	489	memory_spec_list:
	490	memory_spec_list memory_spec
	491	\| memory_spec_list ',' memory_spec
	492	\|
	493	;
	494
	495
	496	memory_spec:
	497	NAME
	498	{ region = lang_memory_region_lookup($1); }
	499	attributes_opt ':' origin_spec opt_comma length_spec
	500
	501	{
	502
	503
	504	}
	505	;
	506	origin_spec:
	507	ORIGIN '=' exp
	508	{ region->current =
	509	region->origin =
	510	exp_get_vma($3, 0L,"origin", lang_first_phase_enum); }
	511	;
	512	length_spec:
	513	LENGTH '=' exp
	514	{ region->length = exp_get_vma($3,
	515	~((bfd_vma)0),
	516	"length",
	517	lang_first_phase_enum);
	518	}
	519
	520
	521	attributes_opt:
	522	'(' NAME ')'
	523	{
	524	lang_set_flags(&region->flags, $2);
	525	}
	526	\|
	527
	528	;
	529
530	startup:
531	STARTUP '(' filename ')'
532	{ lang_startup($3); }
533	;
534
535	high_level_library:
536	HLL '(' high_level_library_NAME_list ')'
537	\| HLL '(' ')'
538	{ ldemul_hll((char *)NULL); }
539	;
540
541	high_level_library_NAME_list:
542	high_level_library_NAME_list opt_comma filename
543	{ ldemul_hll($3); }
544	\| filename
545	{ ldemul_hll($1); }
546
547	;
548
549	low_level_library:
550	SYSLIB '(' low_level_library_NAME_list ')'
551	;
552	low_level_library_NAME_list:
553	low_level_library_NAME_list opt_comma filename
554	{ ldemul_syslib($3); }
555	\|
556	;
557
558	floating_point_support:
559	FLOAT
560	{ lang_float(true); }
561	\| NOFLOAT
562	{ lang_float(false); }
563	;
564
565
566
567
568	exp :
569	'-' exp %prec UNARY
570	{ $$ = exp_unop('-', $2); }
571	\| '(' exp ')'
572	{ $$ = $2; }
573	\| NEXT '(' exp ')' %prec UNARY
574	{ $$ = exp_unop($1,$3); }
575	\| '!' exp %prec UNARY
576	{ $$ = exp_unop('!', $2); }
577	\| '+' exp %prec UNARY
578	{ $$ = $2; }
579	\| '~' exp %prec UNARY
580	{ $$ = exp_unop('~', $2);}
581
582	\| exp '*' exp
583	{ $$ = exp_binop('*', $1, $3); }
584	\| exp '/' exp
585	{ $$ = exp_binop('/', $1, $3); }
586	\| exp '%' exp
587	{ $$ = exp_binop('%', $1, $3); }
588	\| exp '+' exp
589	{ $$ = exp_binop('+', $1, $3); }
590	\| exp '-' exp
591	{ $$ = exp_binop('-' , $1, $3); }
592	\| exp LSHIFT exp
593	{ $$ = exp_binop(LSHIFT , $1, $3); }
594	\| exp RSHIFT exp
595	{ $$ = exp_binop(RSHIFT , $1, $3); }
596	\| exp EQ exp
597	{ $$ = exp_binop(EQ , $1, $3); }
598	\| exp NE exp
599	{ $$ = exp_binop(NE , $1, $3); }
600	\| exp LE exp
601	{ $$ = exp_binop(LE , $1, $3); }
602	\| exp GE exp
603	{ $$ = exp_binop(GE , $1, $3); }
604	\| exp '<' exp
605	{ $$ = exp_binop('<' , $1, $3); }
606	\| exp '>' exp
607	{ $$ = exp_binop('>' , $1, $3); }
608	\| exp '&' exp
609	{ $$ = exp_binop('&' , $1, $3); }
610	\| exp '^' exp
611	{ $$ = exp_binop('^' , $1, $3); }
612	\| exp '\|' exp
613	{ $$ = exp_binop('\|' , $1, $3); }
614	\| exp '?' exp ':' exp
615	{ $$ = exp_trinop('?' , $1, $3, $5); }
616	\| exp ANDAND exp
617	{ $$ = exp_binop(ANDAND , $1, $3); }
618	\| exp OROR exp
619	{ $$ = exp_binop(OROR , $1, $3); }
620	\| DEFINED '(' NAME ')'
621	{ $$ = exp_nameop(DEFINED, $3); }
622	\| INT
623	{ $$ = exp_intop($1); }
65c552e3 SC	624	\| SIZEOF_HEADERS
65c552e3 SC	625	{ $$ = exp_nameop(SIZEOF_HEADERS,0); }
2fa0b342 DHW	626
	627	\| SIZEOF '(' NAME ')'
	628	{ $$ = exp_nameop($1,$3); }
	629	\| ADDR '(' NAME ')'
	630	{ $$ = exp_nameop($1,$3); }
	631	\| ALIGN_K '(' exp ')'
	632	{ $$ = exp_unop($1,$3); }
	633	\| NAME
	634	{ $$ = exp_nameop(NAME,$1); }
	635	;
	636
	637
	638
	639
	640	section: NAME opt_exp opt_block ':' opt_things'{'
	641	{
	642	lang_enter_output_section_statement($1,$2,$3);
	643	}
	644	statement '}' fill_opt memspec_opt
	645	{
	646	lang_leave_output_section_statement($10, $11);
	647	}
	648
	649	;
	650
	651	opt_things:
	652	{
	653
	654	}
	655	;
	656
	657	exp_head:
1d45ccb3	658	exp { $$ = $1; }
7ca04d28	659	;
2fa0b342 DHW	660
2fa0b342 DHW	661	opt_exp:
7ca04d28	662	exp_head
2fa0b342 DHW	663	{ $$ = $1; }
	664	\| { $$= (etree_type *)NULL; }
	665	;
	666
	667	opt_block:
	668	BLOCK '(' exp_head ')'
	669	{ $$ = exp_get_value_int($3,
	670	1L,
	671	"block",
	672	lang_first_phase_enum);
	673	}
	674	\| { $$ = 1; }
	675	;
	676
	677	memspec_opt:
	678	'>' NAME
	679	{ $$ = $2; }
	680	\| { $$ = "default"; }
	681	;
	682