-/* Copyright (C) 1991 Free Software Foundation, Inc.
-
+/* mri.c -- handle MRI style linker scripts
+ Copyright (C) 1991, 92, 93, 94, 95, 96, 1997, 1998 Free Software Foundation, Inc.
+
This file is part of GLD, the Gnu Linker.
GLD is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 1, or (at your option)
+the Free Software Foundation; either version 2, or (at your option)
any later version.
GLD is distributed in the hope that it will be useful,
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
-along with GLD; see the file COPYING. If not, write to
-the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
+along with GLD; see the file COPYING. If not, write to the Free
+Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+02111-1307, USA. */
/* This bit does the tree decoration when MRI style link scripts are parsed */
#include "ldmisc.h"
#include "mri.h"
#include "ldgram.h"
-
+#include "libiberty.h"
struct section_name_struct {
struct section_name_struct *next;
int ok_to_load;
} ;
-int symbol_truncate = 10000;
+unsigned int symbol_truncate = 10000;
struct section_name_struct *order;
struct section_name_struct *only_load;
struct section_name_struct *address;
struct section_name_struct *alignment;
struct section_name_struct *subalignment;
-extern char *strdup();
+static struct section_name_struct **lookup
+ PARAMS ((const char *name, struct section_name_struct **list));
+static void mri_add_to_list PARAMS ((struct section_name_struct **list,
+ const char *name, etree_type *vma,
+ const char *zalias, etree_type *align,
+ etree_type *subalign));
static struct section_name_struct **
lookup (name, list)
}
}
- *ptr = (struct section_name_struct *)ldmalloc(sizeof(struct section_name_struct));
+ *ptr = (struct section_name_struct *)xmalloc(sizeof(struct section_name_struct));
return ptr;
}
static void
-mri_add_to_list (list, name, vma, alias, align, subalign)
+mri_add_to_list (list, name, vma, zalias, align, subalign)
struct section_name_struct **list;
CONST char *name;
etree_type *vma;
- CONST char *alias;
+ CONST char *zalias;
etree_type *align;
etree_type *subalign;
{
(*ptr)->vma = vma;
(*ptr)->next = (struct section_name_struct *)NULL;
(*ptr)->ok_to_load = 0;
- (*ptr)->alias = alias;
-(*ptr)->align = align;
-(*ptr)->subalign = subalign;
+ (*ptr)->alias = zalias;
+ (*ptr)->align = align;
+ (*ptr)->subalign = subalign;
}
}
static int done_tree = 0;
-static void
+
+void
mri_draw_tree ()
{
if (done_tree) return;
+ /* We don't bother with memory regions. */
+#if 0
/* Create the regions */
{
lang_memory_region_type *r;
r->length = (bfd_size_type) exp_get_vma(0, (bfd_vma) ~((bfd_size_type)0),
"length", lang_first_phase_enum);
}
-
+#endif
/* Now build the statements for the ldlang machine */
base = p->vma ? p->vma :exp_nameop(NAME, ".");
}
lang_enter_output_section_statement (p->name, base,
- p->ok_to_load ? 0 : SEC_NEVER_LOAD,
+ p->ok_to_load ? 0 : noload_section,
1, align, subalign,
(etree_type *) NULL);
base = 0;
- lang_add_wild(p->name, (char *)NULL);
+ lang_add_wild (p->name, false, (char *)NULL, false, false, NULL);
/* If there is an alias for this section, add it too */
for (aptr = alias; aptr; aptr = aptr->next) {
if (strcmp(aptr->alias, p->name)== 0) {
- lang_add_wild(aptr->name, (char *)NULL);
+ lang_add_wild (aptr->name, false, (char *)NULL, false, false, NULL);
}
}
-
- lang_leave_output_section_statement(0, "long");
+
+ lang_leave_output_section_statement
+ (0, "*default*", (struct lang_output_section_phdr_list *) NULL);
+
p = p->next;
}
}
mri_load (name)
CONST char *name;
{
- mri_draw_tree();
-
base = 0;
lang_add_input_file(name,
lang_input_file_is_file_enum, (char *)NULL);
/* Some sections are digits - */
char buf[20];
sprintf(buf, "%d", isn);
- is =strdup(buf);
+ is = xstrdup (buf);
+ if (is == NULL)
+ abort ();
}
mri_add_to_list(&alias, is, 0, want,0,0);
{
if (strcmp(name, "S") == 0)
{
- lang_add_output_format("srec", 1);
+ lang_add_output_format("srec", (char *) NULL, (char *) NULL, 1);
}
else if (strcmp(name, "IEEE") == 0)
{
- lang_add_output_format("ieee", 1);
+ lang_add_output_format("ieee", (char *) NULL, (char *) NULL, 1);
}
else if (strcmp(name, "COFF") == 0)
{
- lang_add_output_format("coff-m68k", 1);
+ lang_add_output_format("coff-m68k", (char *) NULL, (char *) NULL, 1);
}
else {
- einfo("%P%F: unknown format type %s\n", name);
+ einfo(_("%P%F: unknown format type %s\n"), name);
}
}
void
mri_truncate (exp)
- int exp;
+ unsigned int exp;
{
symbol_truncate = exp;
}