1 /* Copyright (C) 1991 Free Software Foundation, Inc.
3 This file is part of GLD, the Gnu Linker.
5 GLD is free software; you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 1, or (at your option)
10 GLD is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with GLD; see the file COPYING. If not, write to
17 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
20 /* This bit does the tree decoration when MRI style link scripts are parsed */
23 contributed by Steve Chamberlain
37 struct section_name_struct
{
38 struct section_name_struct
*next
;
47 int symbol_truncate
= 10000;
48 struct section_name_struct
*order
;
49 struct section_name_struct
*only_load
;
50 struct section_name_struct
*address
;
51 struct section_name_struct
*alias
;
53 struct section_name_struct
*alignment
;
54 struct section_name_struct
*subalignment
;
56 extern char *strdup();
58 static struct section_name_struct
**
61 struct section_name_struct
**list
;
64 struct section_name_struct
**ptr
= list
;
67 if (strcmp(name
, (*ptr
)->name
) == 0) {
68 /* If this is a match, delete it, we only keep the last instance
73 ptr
= &((*ptr
)->next
);
77 *ptr
= (struct section_name_struct
*)ldmalloc(sizeof(struct section_name_struct
));
82 mri_add_to_list (list
, name
, vma
, alias
, align
, subalign
)
83 struct section_name_struct
**list
;
90 struct section_name_struct
**ptr
= lookup(name
,list
);
93 (*ptr
)->next
= (struct section_name_struct
*)NULL
;
94 (*ptr
)->ok_to_load
= 0;
95 (*ptr
)->alias
= alias
;
96 (*ptr
)->align
= align
;
97 (*ptr
)->subalign
= subalign
;
102 mri_output_section (name
, vma
)
106 mri_add_to_list(&address
, name
, vma
, 0,0,0);
109 /* if any ABSOLUTE <name> are in the script, only load those files
116 mri_add_to_list(&only_load
, name
, 0, 0,0,0);
129 static int done_tree
= 0;
133 if (done_tree
) return;
135 /* Create the regions */
137 lang_memory_region_type
*r
;
138 r
= lang_memory_region_lookup("long");
139 r
->current
= r
->origin
= exp_get_vma(base
, (bfd_vma
)0, "origin",
140 lang_first_phase_enum
);
141 r
->length
= (bfd_size_type
) exp_get_vma(0, (bfd_vma
) ~((bfd_size_type
)0),
142 "length", lang_first_phase_enum
);
146 /* Now build the statements for the ldlang machine */
149 /* Attatch the addresses of any which have addresses, and add the
150 ones not mentioned */
151 if (address
!= (struct section_name_struct
*)NULL
) {
152 struct section_name_struct
*alist
;
153 struct section_name_struct
*olist
;
154 if (order
== (struct section_name_struct
*)NULL
) {
158 for (alist
= address
;
159 alist
!= (struct section_name_struct
*)NULL
;
165 olist
!= (struct section_name_struct
*)NULL
;
168 if (strcmp(alist
->name
, olist
->name
) == 0)
170 olist
->vma
= alist
->vma
;
175 /* add this onto end of order list */
176 mri_add_to_list(&order
, alist
->name
, alist
->vma
, 0,0,0);
183 /* If we're only supposed to load a subset of them in, then prune
186 if (only_load
!= (struct section_name_struct
*)NULL
)
188 struct section_name_struct
*ptr1
;
189 struct section_name_struct
*ptr2
;
190 if (order
== (struct section_name_struct
*)NULL
)
193 /* See if this name is in the list, if it is then we can load it
195 for (ptr1
= only_load
; ptr1
; ptr1
= ptr1
->next
)
197 for (ptr2
= order
; ptr2
; ptr2
=ptr2
->next
)
199 if (strcmp(ptr2
->name
, ptr1
->name
)==0) {
200 ptr2
->ok_to_load
= 1;
207 /* No only load list, so everything is ok to load */
208 struct section_name_struct
*ptr
;
209 for (ptr
= order
; ptr
; ptr
=ptr
->next
) {
216 /* Create the order of sections to load */
217 if (order
!= (struct section_name_struct
*)NULL
)
219 /* Been told to output the sections in a certain order */
220 struct section_name_struct
*p
= order
;
223 struct section_name_struct
*aptr
;
224 etree_type
*align
= 0;
225 etree_type
*subalign
= 0;
226 /* See if an alignment has been specified */
228 for (aptr
= alignment
; aptr
; aptr
= aptr
->next
)
230 if (strcmp(aptr
->name
, p
->name
)==0) {
235 for (aptr
= subalignment
; aptr
; aptr
= aptr
->next
)
237 if (strcmp(aptr
->name
, p
->name
)==0) {
238 subalign
= aptr
->subalign
;
243 base
= p
->vma
? p
->vma
:exp_nameop(NAME
, ".");
245 lang_enter_output_section_statement(p
->name
, base
,
250 lang_add_wild(p
->name
, (char *)NULL
);
251 /* If there is an alias for this section, add it too */
252 for (aptr
= alias
; aptr
; aptr
= aptr
->next
) {
254 if (strcmp(aptr
->alias
, p
->name
)== 0) {
255 lang_add_wild(aptr
->name
, (char *)NULL
);
259 lang_leave_output_section_statement(0, "long");
275 lang_add_input_file(name
,
276 lang_input_file_is_file_enum
, (char *)NULL
);
277 /* lang_leave_output_section_statement(0,"*default*");*/
285 mri_add_to_list(&order
, name
, 0, 0,0,0);
289 mri_alias (want
, is
, isn
)
295 /* Some sections are digits - */
297 sprintf(buf
, "%d", isn
);
300 mri_add_to_list(&alias
, is
, 0, want
,0,0);
309 lang_add_output(name
);
318 if (strcmp(name
, "S") == 0)
320 lang_add_output_format("srec");
322 else if (strcmp(name
, "IEEE") == 0)
324 lang_add_output_format("ieee");
326 else if (strcmp(name
, "COFF") == 0)
328 lang_add_output_format("coff-m68k");
331 einfo("%P%F: unknown format type %s\n", name
);
337 mri_public (name
, exp
)
341 lang_add_assignment(exp_assop('=', name
, exp
));
345 mri_align (name
, exp
)
349 mri_add_to_list(&alignment
, name
,0,0,exp
,0);
353 mri_alignmod (name
, exp
)
357 mri_add_to_list(&subalignment
, name
,0,0,0,exp
);
365 symbol_truncate
= exp
;