daily update
[binutils.git] / ld / mri.c
blob89514e9a0e85712dd6c9499b7a6ed800ca7e513e
1 /* mri.c -- handle MRI style linker scripts
2 Copyright 1991, 1992, 1993, 1994, 1996, 1997, 1998, 1999, 2000, 2002
3 Free Software Foundation, Inc.
5 This file is part of GLD, the Gnu Linker.
7 GLD is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
10 any later version.
12 GLD is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GLD; see the file COPYING. If not, write to the Free
19 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
20 02111-1307, USA.
22 This bit does the tree decoration when MRI style link scripts
23 are parsed.
25 Contributed by Steve Chamberlain <sac@cygnus.com>. */
27 #include "bfd.h"
28 #include "sysdep.h"
29 #include "ld.h"
30 #include "ldexp.h"
31 #include "ldlang.h"
32 #include "ldmisc.h"
33 #include "mri.h"
34 #include "ldgram.h"
35 #include "libiberty.h"
37 struct section_name_struct {
38 struct section_name_struct *next;
39 const char *name;
40 const char *alias;
41 etree_type *vma;
42 etree_type *align;
43 etree_type *subalign;
44 int ok_to_load;
47 unsigned 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 static struct section_name_struct **lookup
57 PARAMS ((const char *name, struct section_name_struct **list));
58 static void mri_add_to_list PARAMS ((struct section_name_struct **list,
59 const char *name, etree_type *vma,
60 const char *zalias, etree_type *align,
61 etree_type *subalign));
63 static struct section_name_struct **
64 lookup (name, list)
65 const char *name;
66 struct section_name_struct **list;
68 struct section_name_struct **ptr = list;
70 while (*ptr)
72 if (strcmp (name, (*ptr)->name) == 0)
73 /* If this is a match, delete it, we only keep the last instance
74 of any name. */
75 *ptr = (*ptr)->next;
76 else
77 ptr = &((*ptr)->next);
80 *ptr = (struct section_name_struct *) xmalloc (sizeof (struct section_name_struct));
81 return ptr;
84 static void
85 mri_add_to_list (list, name, vma, zalias, align, subalign)
86 struct section_name_struct **list;
87 const char *name;
88 etree_type *vma;
89 const char *zalias;
90 etree_type *align;
91 etree_type *subalign;
93 struct section_name_struct **ptr = lookup (name, list);
95 (*ptr)->name = name;
96 (*ptr)->vma = vma;
97 (*ptr)->next = (struct section_name_struct *) NULL;
98 (*ptr)->ok_to_load = 0;
99 (*ptr)->alias = zalias;
100 (*ptr)->align = align;
101 (*ptr)->subalign = subalign;
104 void
105 mri_output_section (name, vma)
106 const char *name;
107 etree_type *vma;
109 mri_add_to_list (&address, name, vma, 0, 0, 0);
112 /* If any ABSOLUTE <name> are in the script, only load those files
113 marked thus. */
115 void
116 mri_only_load (name)
117 const char *name;
119 mri_add_to_list (&only_load, name, 0, 0, 0, 0);
122 void
123 mri_base (exp)
124 etree_type *exp;
126 base = exp;
129 static int done_tree = 0;
131 void
132 mri_draw_tree ()
134 if (done_tree)
135 return;
137 #if 0 /* We don't bother with memory regions. */
138 /* Create the regions. */
140 lang_memory_region_type *r;
142 r = lang_memory_region_lookup("long");
143 r->current = r->origin = exp_get_vma (base, (bfd_vma)0, "origin",
144 lang_first_phase_enum);
145 r->length = (bfd_size_type) exp_get_vma (0, (bfd_vma) ~((bfd_size_type)0),
146 "length", lang_first_phase_enum);
148 #endif
150 /* Now build the statements for the ldlang machine. */
152 /* Attatch the addresses of any which have addresses,
153 and add the ones not mentioned. */
154 if (address != (struct section_name_struct *) NULL)
156 struct section_name_struct *alist;
157 struct section_name_struct *olist;
159 if (order == (struct section_name_struct *) NULL)
160 order = address;
162 for (alist = address;
163 alist != (struct section_name_struct *) NULL;
164 alist = alist->next)
166 int done = 0;
168 for (olist = order;
169 done == 0 && olist != (struct section_name_struct *) NULL;
170 olist = olist->next)
172 if (strcmp (alist->name, olist->name) == 0)
174 olist->vma = alist->vma;
175 done = 1;
179 if (!done)
181 /* Add this onto end of order list. */
182 mri_add_to_list (&order, alist->name, alist->vma, 0, 0, 0);
187 /* If we're only supposed to load a subset of them in, then prune
188 the list. */
189 if (only_load != (struct section_name_struct *) NULL)
191 struct section_name_struct *ptr1;
192 struct section_name_struct *ptr2;
194 if (order == (struct section_name_struct *) NULL)
195 order = only_load;
197 /* See if this name is in the list, if it is then we can load it. */
198 for (ptr1 = only_load; ptr1; ptr1 = ptr1->next)
199 for (ptr2 = order; ptr2; ptr2 = ptr2->next)
200 if (strcmp (ptr2->name, ptr1->name) == 0)
201 ptr2->ok_to_load = 1;
203 else
205 /* No only load list, so everything is ok to load. */
206 struct section_name_struct *ptr;
208 for (ptr = order; ptr; ptr = ptr->next)
209 ptr->ok_to_load = 1;
212 /* Create the order of sections to load. */
213 if (order != (struct section_name_struct *) NULL)
215 /* Been told to output the sections in a certain order. */
216 struct section_name_struct *p = order;
218 while (p)
220 struct section_name_struct *aptr;
221 etree_type *align = 0;
222 etree_type *subalign = 0;
223 struct wildcard_list *tmp;
225 /* See if an alignment has been specified. */
226 for (aptr = alignment; aptr; aptr = aptr->next)
227 if (strcmp (aptr->name, p->name) == 0)
228 align = aptr->align;
230 for (aptr = subalignment; aptr; aptr = aptr->next)
231 if (strcmp (aptr->name, p->name) == 0)
232 subalign = aptr->subalign;
234 if (base == 0)
235 base = p->vma ? p->vma : exp_nameop (NAME, ".");
237 lang_enter_output_section_statement (p->name, base,
238 p->ok_to_load ? 0 : noload_section,
239 1, align, subalign,
240 (etree_type *) NULL);
241 base = 0;
242 tmp = (struct wildcard_list *) xmalloc (sizeof *tmp);
243 tmp->next = NULL;
244 tmp->spec.name = p->name;
245 tmp->spec.exclude_name_list = NULL;
246 tmp->spec.sorted = false;
247 lang_add_wild (NULL, tmp, false);
249 /* If there is an alias for this section, add it too. */
250 for (aptr = alias; aptr; aptr = aptr->next)
251 if (strcmp (aptr->alias, p->name) == 0)
253 tmp = (struct wildcard_list *) xmalloc (sizeof *tmp);
254 tmp->next = NULL;
255 tmp->spec.name = aptr->name;
256 tmp->spec.exclude_name_list = NULL;
257 tmp->spec.sorted = false;
258 lang_add_wild (NULL, tmp, false);
261 lang_leave_output_section_statement
262 (0, "*default*", (struct lang_output_section_phdr_list *) NULL,
263 NULL);
265 p = p->next;
269 done_tree = 1;
272 void
273 mri_load (name)
274 const char *name;
276 base = 0;
277 lang_add_input_file (name,
278 lang_input_file_is_file_enum, (char *) NULL);
279 #if 0
280 lang_leave_output_section_statement (0, "*default*");
281 #endif
284 void
285 mri_order (name)
286 const char *name;
288 mri_add_to_list (&order, name, 0, 0, 0, 0);
291 void
292 mri_alias (want, is, isn)
293 const char *want;
294 const char *is;
295 int isn;
297 if (!is)
299 char buf[20];
301 /* Some sections are digits. */
302 sprintf (buf, "%d", isn);
304 is = xstrdup (buf);
306 if (is == NULL)
307 abort ();
310 mri_add_to_list (&alias, is, 0, want, 0, 0);
313 void
314 mri_name (name)
315 const char *name;
317 lang_add_output (name, 1);
320 void
321 mri_format (name)
322 const char *name;
324 if (strcmp (name, "S") == 0)
325 lang_add_output_format ("srec", (char *) NULL, (char *) NULL, 1);
327 else if (strcmp (name, "IEEE") == 0)
328 lang_add_output_format ("ieee", (char *) NULL, (char *) NULL, 1);
330 else if (strcmp (name, "COFF") == 0)
331 lang_add_output_format ("coff-m68k", (char *) NULL, (char *) NULL, 1);
333 else
334 einfo (_("%P%F: unknown format type %s\n"), name);
337 void
338 mri_public (name, exp)
339 const char *name;
340 etree_type *exp;
342 lang_add_assignment (exp_assop ('=', name, exp));
345 void
346 mri_align (name, exp)
347 const char *name;
348 etree_type *exp;
350 mri_add_to_list (&alignment, name, 0, 0, exp, 0);
353 void
354 mri_alignmod (name, exp)
355 const char *name;
356 etree_type *exp;
358 mri_add_to_list (&subalignment, name, 0, 0, 0, exp);
361 void
362 mri_truncate (exp)
363 unsigned int exp;
365 symbol_truncate = exp;