* dw2gencfi.c (struct cfi_escape_data): New.

[binutils-gdb.git] / ld / mri.c

diff --git a/ld/mri.c b/ld/mri.c
index 04ee9d29b3f568391e7f73f75c95f6342fc94d0d..cc9de64d8cdea6b767851d44ede63c2d98574287 100644 (file)
--- a/ld/mri.c
+++ b/ld/mri.c
@@ -1,10 +1,12 @@
-/* Copyright (C) 1991 Free Software Foundation, Inc.
-   
+/* mri.c -- handle MRI style linker scripts
+   Copyright 1991, 1992, 1993, 1994, 1996, 1997, 1998, 1999, 2000, 2002
+   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
 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,
 any later version.
 
 GLD is distributed in the hope that it will be useful,


@@ -13,96 +15,352 @@ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 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.  */
-
-
-/* This bit does the tree decoration when MRI style link scripts are parsed */
+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.

 
 

-/*
-  contributed by Steve Chamberlain
-                sac@cygnus.com
+   This bit does the tree decoration when MRI style link scripts
+   are parsed.

 
 

-*/
+   Contributed by Steve Chamberlain <sac@cygnus.com>.  */

 
 #include "bfd.h"
 
 #include "bfd.h"

-#include "sysdep.h" 
+#include "sysdep.h"
+#include "ld.h"
+#include "ldexp.h"

 #include "ldlang.h"
 #include "ldlang.h"

+#include "ldmisc.h"

 #include "mri.h"
 #include "mri.h"

-#include "ldexp.h"
+#include <ldgram.h>
+#include "libiberty.h"

 
 

-void
-DEFUN(mri_output_section, (name, vma),
-      CONST char *name AND
-      etree_type *vma)
+struct section_name_struct {
+  struct section_name_struct *next;
+  const char *name;
+  const char *alias;
+  etree_type *vma;
+  etree_type *align;
+  etree_type *subalign;
+  int ok_to_load;
+};
+
+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 *alias;
+
+struct section_name_struct *alignment;
+struct section_name_struct *subalignment;

 
 

+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)
+     const char *name;
+     struct section_name_struct **list;

 {
 {

-  lang_output_section_statement_type *os;
+  struct section_name_struct **ptr = list;

 
 

-  os =  lang_output_section_statement_lookup(name);
+  while (*ptr)
+    {
+      if (strcmp (name, (*ptr)->name) == 0)
+       /* If this is a match, delete it, we only keep the last instance
+          of any name.  */
+       *ptr = (*ptr)->next;
+      else
+       ptr = &((*ptr)->next);
+    }

 
 

-  if (os->addr_tree == (etree_type *)NULL) {
-    os->addr_tree = vma;
-  }
+  *ptr = (struct section_name_struct *) xmalloc (sizeof (struct section_name_struct));
+  return ptr;
+}
+
+static void
+mri_add_to_list (list, name, vma, zalias, align, subalign)
+     struct section_name_struct **list;
+     const char *name;
+     etree_type *vma;
+     const char *zalias;
+     etree_type *align;
+     etree_type *subalign;
+{
+  struct section_name_struct **ptr = lookup (name, list);
+
+  (*ptr)->name = name;
+  (*ptr)->vma = vma;
+  (*ptr)->next = (struct section_name_struct *) NULL;
+  (*ptr)->ok_to_load = 0;
+  (*ptr)->alias = zalias;
+  (*ptr)->align = align;
+  (*ptr)->subalign = subalign;
+}
+
+void
+mri_output_section (name, vma)
+     const char *name;
+     etree_type *vma;
+{
+  mri_add_to_list (&address, name, vma, 0, 0, 0);
+}

 
 

-  os->flags = 0;
-  os->block_value = 0;
+/* If any ABSOLUTE <name> are in the script, only load those files
+   marked thus.  */
+
+void
+mri_only_load (name)
+     const char *name;
+{
+  mri_add_to_list (&only_load, name, 0, 0, 0, 0);
+}
+
+void
+mri_base (exp)
+     etree_type *exp;
+{
+  base = exp;

 }
 
 }
 

-/* if any ABSOLUTE <name> are in the script, only load those files
-marked thus */
+static int done_tree = 0;

 
 

-void DEFUN(mri_only_load,(name), CONST char *name)
+void
+mri_draw_tree ()

 {
 {

-  lang_output_section_statement_type *os;
+  if (done_tree)
+    return;
+
+#if 0   /* We don't bother with memory regions.  */
+  /* Create the regions.  */
+  {
+    lang_memory_region_type *r;
+
+    r = lang_memory_region_lookup("long");
+    r->current = r->origin = exp_get_vma (base, (bfd_vma)0, "origin",
+                                         lang_first_phase_enum);
+    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.  */
+
+  /* Attach the addresses of any which have addresses,
+     and add the ones not mentioned.  */
+  if (address != (struct section_name_struct *) NULL)
+    {
+      struct section_name_struct *alist;
+      struct section_name_struct *olist;
+
+      if (order == (struct section_name_struct *) NULL)
+       order = address;
+
+      for (alist = address;
+          alist != (struct section_name_struct *) NULL;
+          alist = alist->next)
+       {
+         int done = 0;
+
+         for (olist = order;
+              done == 0 && olist != (struct section_name_struct *) NULL;
+              olist = olist->next)
+           {
+             if (strcmp (alist->name, olist->name) == 0)
+               {
+                 olist->vma = alist->vma;
+                 done = 1;
+               }
+           }
+
+         if (!done)
+           {
+             /* Add this onto end of order list.  */
+             mri_add_to_list (&order, alist->name, alist->vma, 0, 0, 0);
+           }
+       }
+    }
+
+  /* If we're only supposed to load a subset of them in, then prune
+     the list.  */
+  if (only_load != (struct section_name_struct *) NULL)
+    {
+      struct section_name_struct *ptr1;
+      struct section_name_struct *ptr2;

 
 

-  os =  lang_output_section_statement_lookup(name);
+      if (order == (struct section_name_struct *) NULL)
+       order = only_load;

 
 

-  os->flags = 0;
-  os->block_value = 0;
+      /* See if this name is in the list, if it is then we can load it.  */
+      for (ptr1 = only_load; ptr1; ptr1 = ptr1->next)
+       for (ptr2 = order; ptr2; ptr2 = ptr2->next)
+         if (strcmp (ptr2->name, ptr1->name) == 0)
+           ptr2->ok_to_load = 1;
+    }
+  else
+    {
+      /* No only load list, so everything is ok to load.  */
+      struct section_name_struct *ptr;

 
 

+      for (ptr = order; ptr; ptr = ptr->next)
+       ptr->ok_to_load = 1;
+    }
+
+  /* Create the order of sections to load.  */
+  if (order != (struct section_name_struct *) NULL)
+    {
+      /* Been told to output the sections in a certain order.  */
+      struct section_name_struct *p = order;
+
+      while (p)
+       {
+         struct section_name_struct *aptr;
+         etree_type *align = 0;
+         etree_type *subalign = 0;
+         struct wildcard_list *tmp;
+
+         /* See if an alignment has been specified.  */
+         for (aptr = alignment; aptr; aptr = aptr->next)
+           if (strcmp (aptr->name, p->name) == 0)
+             align = aptr->align;
+
+         for (aptr = subalignment; aptr; aptr = aptr->next)
+           if (strcmp (aptr->name, p->name) == 0)
+             subalign = aptr->subalign;
+
+         if (base == 0)
+           base = p->vma ? p->vma : exp_nameop (NAME, ".");
+
+         lang_enter_output_section_statement (p->name, base,
+                                              p->ok_to_load ? 0 : noload_section,
+                                              1, align, subalign,
+                                              (etree_type *) NULL);
+         base = 0;
+         tmp = (struct wildcard_list *) xmalloc (sizeof *tmp);
+         tmp->next = NULL;
+         tmp->spec.name = p->name;
+         tmp->spec.exclude_name_list = NULL;
+         tmp->spec.sorted = FALSE;
+         lang_add_wild (NULL, tmp, FALSE);
+
+         /* 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)
+             {
+               tmp = (struct wildcard_list *) xmalloc (sizeof *tmp);
+               tmp->next = NULL;
+               tmp->spec.name = aptr->name;
+               tmp->spec.exclude_name_list = NULL;
+               tmp->spec.sorted = FALSE;
+               lang_add_wild (NULL, tmp, FALSE);
+             }
+
+         lang_leave_output_section_statement
+           (0, "*default*", (struct lang_output_section_phdr_list *) NULL,
+            NULL);
+
+         p = p->next;
+       }
+    }
+
+  done_tree = 1;

 }
 
 }
 

+void
+mri_load (name)
+     const char *name;
+{
+  base = 0;
+  lang_add_input_file (name,
+                      lang_input_file_is_file_enum, (char *) NULL);
+#if 0
+  lang_leave_output_section_statement (0, "*default*");
+#endif
+}

 
 void
 
 void

-DEFUN(mri_load,(name), 
-      CONST char *name)
+mri_order (name)
+     const char *name;

 {
 {

+  mri_add_to_list (&order, name, 0, 0, 0, 0);
+}
+
+void
+mri_alias (want, is, isn)
+     const char *want;
+     const char *is;
+     int isn;
+{
+  if (!is)
+    {
+      char buf[20];
+
+      /* Some sections are digits.  */
+      sprintf (buf, "%d", isn);
+
+      is = xstrdup (buf);

 
 

-  lang_add_input_file(name, lang_input_file_is_file_enum, (char *)NULL);
+      if (is == NULL)
+       abort ();
+    }
+
+  mri_add_to_list (&alias, is, 0, want, 0, 0);

 }
 
 }
 

+void
+mri_name (name)
+     const char *name;
+{
+  lang_add_output (name, 1);
+}

 
 void
 
 void

-DEFUN(mri_order,(name),
-      CONST char *name)
+mri_format (name)
+     const char *name;

 {
 {

-einfo("Ignoring ORDER %s for the moment\n", name);
+  if (strcmp (name, "S") == 0)
+    lang_add_output_format ("srec", (char *) NULL, (char *) NULL, 1);
+
+  else if (strcmp (name, "IEEE") == 0)
+    lang_add_output_format ("ieee", (char *) NULL, (char *) NULL, 1);

 
 

+  else if (strcmp (name, "COFF") == 0)
+    lang_add_output_format ("coff-m68k", (char *) NULL, (char *) NULL, 1);
+
+  else
+    einfo (_("%P%F: unknown format type %s\n"), name);

 }
 
 }
 

-void 
-DEFUN(mri_name,(name),
-      CONST char *name)
+void
+mri_public (name, exp)
+     const char *name;
+     etree_type *exp;

 {
 {

-  lang_add_output(name);
+  lang_add_assignment (exp_assop ('=', name, exp));
+}

 
 

+void
+mri_align (name, exp)
+     const char *name;
+     etree_type *exp;
+{
+  mri_add_to_list (&alignment, name, 0, 0, exp, 0);

 }
 
 }
 

+void
+mri_alignmod (name, exp)
+     const char *name;
+     etree_type *exp;
+{
+  mri_add_to_list (&subalignment, name, 0, 0, 0, exp);
+}

 
 void
 
 void

-DEFUN(mri_format,(name),
-      CONST char *name)
+mri_truncate (exp)
+     unsigned int exp;

 {
 {

-  if (strcmp(name, "S") == 0)
-  {
-    lang_add_output_format("srec");
-  }
-  else if (strcmp(name, "IEEE") == 0)
-  {
-    lang_add_output_format("ieee");
-  }
-  else {
-    einfo("%P%F: unknown format type %s\n", name);
-  }
+  symbol_truncate = exp;

 }
 }