* config/tc-ppc.c (md_pseudo_table): Add "data" and "text".

	(ppc_csect): Move most of the code to ppc_change_csect, and call
	it.
	(ppc_change_csect): New static function, taken from ppc_csect.
	(ppc_section): New static function.
	(ppc_saw_abs): New static varable.
	(ppc_frob_symbol): Create aux entry for absolute symbols.  Warn if
	a symbol has no csect.
	(ppc_adjust_symtab): New function.
	* config/tc-ppc.h (tc_adjust_symtab): Define if OBJ_XCOFF.
	(ppc_adjust_symtab): Declare if OBJ_XCOFF.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 1f4ca514bcd2f26a3b8ddcd3b29ffc4b6ed5a13f..823b942d631af5770d1cf3de85f8ca64129f5d14 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,5 +1,20 @@
 Sat Oct 28 01:02:05 1995  Ian Lance Taylor  <ian@cygnus.com>
 
+       * config/tc-ppc.c (md_pseudo_table): Add "data" and "text".
+       (ppc_csect): Move most of the code to ppc_change_csect, and call
+       it.
+       (ppc_change_csect): New static function, taken from ppc_csect.
+       (ppc_section): New static function.
+       (ppc_saw_abs): New static varable.
+       (ppc_frob_symbol): Create aux entry for absolute symbols.  Warn if
+       a symbol has no csect.
+       (ppc_adjust_symtab): New function.
+       * config/tc-ppc.h (tc_adjust_symtab): Define if OBJ_XCOFF.
+       (ppc_adjust_symtab): Declare if OBJ_XCOFF.
+
+       * write.c (write_object_file): If tc_adjust_symtab is defined,
+       call it just before the call to obj_adjust_symtab.
+
        * symbols.c (symbol_find_or_make): Change name to be const.
        * symbols.h (symbol_find_or_make): Update declaration.
 

diff --git a/gas/config/tc-ppc.c b/gas/config/tc-ppc.c
index f7cf199ad16719636db2aa4f6cb5830eaccc5af2..773ea5c5235cbff14caeaf604b556d4c588c5bb5 100644 (file)
--- a/gas/config/tc-ppc.c
+++ b/gas/config/tc-ppc.c
@@ -60,9 +60,11 @@ static void ppc_eb PARAMS ((int));
 static void ppc_ef PARAMS ((int));
 static void ppc_es PARAMS ((int));
 static void ppc_csect PARAMS ((int));
+static void ppc_change_csect PARAMS ((symbolS *));
 static void ppc_function PARAMS ((int));
 static void ppc_extern PARAMS ((int));
 static void ppc_lglobl PARAMS ((int));
+static void ppc_section PARAMS ((int));
 static void ppc_stabx PARAMS ((int));
 static void ppc_rename PARAMS ((int));
 static void ppc_toc PARAMS ((int));
@@ -129,6 +131,7 @@ const pseudo_typeS md_pseudo_table[] =
   { "bi",      ppc_biei,       0 },
   { "bs",      ppc_bs,         0 },
   { "csect",   ppc_csect,      0 },
+  { "data",    ppc_section,    'd' },
   { "eb",      ppc_eb,         0 },
   { "ef",      ppc_ef,         0 },
   { "ei",      ppc_biei,       1 },
@@ -138,6 +141,7 @@ const pseudo_typeS md_pseudo_table[] =
   { "lglobl",  ppc_lglobl,     0 },
   { "rename",  ppc_rename,     0 },
   { "stabx",   ppc_stabx,      0 },
+  { "text",    ppc_section,    't' },
   { "toc",     ppc_toc,        0 },
 #endif
 
@@ -1943,6 +1947,23 @@ ppc_csect (ignore)
 
   *input_line_pointer = endc;
 
+  ppc_change_csect (sym);
+
+  if (*input_line_pointer == ',')
+    {
+      ++input_line_pointer;
+      sym->sy_tc.align = get_absolute_expression ();
+    }
+
+  demand_empty_rest_of_line ();
+}
+
+/* Change to a different csect.  */
+
+static void
+ppc_change_csect (sym)
+     symbolS *sym;
+{
   if (S_IS_DEFINED (sym))
     subseg_set (S_GET_SEGMENT (sym), sym->sy_tc.subseg);
   else
@@ -2009,13 +2030,30 @@ ppc_csect (ignore)
       symbol_append (sym, list->sy_tc.within, &symbol_rootP, &symbol_lastP);
     }
 
-  if (*input_line_pointer == ',')
-    {
-      ++input_line_pointer;
-      sym->sy_tc.align = get_absolute_expression ();
-    }
-
   ppc_current_csect = sym;
+}
+
+/* This function handles the .text and .data pseudo-ops.  These
+   pseudo-ops aren't really used by XCOFF; we implement them for the
+   convenience of people who aren't used to XCOFF.  */
+
+static void
+ppc_section (type)
+     int type;
+{
+  const char *name;
+  symbolS *sym;
+
+  if (type == 't')
+    name = ".text[PR]";
+  else if (type == 'd')
+    name = ".data[RW]";
+  else
+    abort ();
+
+  sym = symbol_find_or_make (name);
+
+  ppc_change_csect (sym);
 
   demand_empty_rest_of_line ();
 }
@@ -3356,6 +3394,12 @@ ppc_frob_label (sym)
     }
 }
 
+/* This variable is set by ppc_frob_symbol if any absolute symbols are
+   seen.  It tells ppc_adjust_symtab whether it needs to look through
+   the symbols.  */
+
+static boolean ppc_saw_abs;
+
 /* Change the name of a symbol just before writing it out.  Set the
    real name if the .rename pseudo-op was used.  Otherwise, remove any
    class suffix.  Return 1 if the symbol should not be included in the
@@ -3444,9 +3488,8 @@ ppc_frob_symbol (sym)
       && S_GET_SEGMENT (sym) != ppc_coff_debug_section)
     S_SET_STORAGE_CLASS (sym, C_HIDEXT);
 
-  if ((S_GET_STORAGE_CLASS (sym) == C_EXT
-       || S_GET_STORAGE_CLASS (sym) == C_HIDEXT)
-      && S_GET_SEGMENT (sym) != absolute_section)
+  if (S_GET_STORAGE_CLASS (sym) == C_EXT
+      || S_GET_STORAGE_CLASS (sym) == C_HIDEXT)
     {
       int i;
       union internal_auxent *a;
@@ -3488,6 +3531,15 @@ ppc_frob_symbol (sym)
          else
            sym->sy_tc.class = XMC_BS;
        }
+      else if (S_GET_SEGMENT (sym) == absolute_section)
+       {
+         /* This is an absolute symbol.  The csect will be created by
+             ppc_adjust_symtab.  */
+         ppc_saw_abs = true;
+         a->x_csect.x_smtyp = XTY_LD;
+         if (sym->sy_tc.class == -1)
+           sym->sy_tc.class = XMC_XO;
+       }
       else if (! S_IS_DEFINED (sym))
        {
          /* This is an external symbol.  */
@@ -3539,7 +3591,10 @@ ppc_frob_symbol (sym)
          csect = csect->sy_tc.next;
 
          if (csect == (symbolS *) NULL)
-           a->x_csect.x_scnlen.l = 0;
+           {
+             as_warn ("warning: symbol %s has no csect", S_GET_NAME (sym));
+             a->x_csect.x_scnlen.l = 0;
+           }
          else
            {
              while (csect->sy_tc.next != (symbolS *) NULL)
@@ -3597,6 +3652,52 @@ ppc_frob_symbol (sym)
   return 0;
 }
 
+/* Adjust the symbol table.  This creates csect symbols for all
+   absolute symbols.  */
+
+void
+ppc_adjust_symtab ()
+{
+  symbolS *sym;
+
+  if (! ppc_saw_abs)
+    return;
+
+  for (sym = symbol_rootP; sym != NULL; sym = symbol_next (sym))
+    {
+      symbolS *csect;
+      int i;
+      union internal_auxent *a;
+
+      if (S_GET_SEGMENT (sym) != absolute_section)
+       continue;
+
+      csect = symbol_create (".abs[XO]", absolute_section,
+                            S_GET_VALUE (sym), &zero_address_frag);
+      csect->bsym->value = S_GET_VALUE (sym);
+      S_SET_STORAGE_CLASS (csect, C_HIDEXT);
+      i = S_GET_NUMBER_AUXILIARY (csect);
+      S_SET_NUMBER_AUXILIARY (csect, i + 1);
+      a = &coffsymbol (csect->bsym)->native[i + 1].u.auxent;
+      a->x_csect.x_scnlen.l = 0;
+      a->x_csect.x_smtyp = XTY_SD;
+      a->x_csect.x_parmhash = 0;
+      a->x_csect.x_snhash = 0;
+      a->x_csect.x_smclas = XMC_XO;
+      a->x_csect.x_stab = 0;
+      a->x_csect.x_snstab = 0;
+
+      symbol_insert (csect, sym, &symbol_rootP, &symbol_lastP);
+
+      i = S_GET_NUMBER_AUXILIARY (sym);
+      a = &coffsymbol (sym->bsym)->native[i].u.auxent;
+      a->x_csect.x_scnlen.p = coffsymbol (csect->bsym)->native;
+      coffsymbol (sym->bsym)->native[i].fix_scnlen = 1;
+    }
+
+  ppc_saw_abs = false;
+}
+
 /* Set the VMA for a section.  This is called on all the sections in
    turn.  */