* config/obj-coff.c (size_section): Do an fprintf to stderr rather
authorIan Lance Taylor <ian@airs.com>
Thu, 8 Sep 1994 23:46:00 +0000 (23:46 +0000)
committerIan Lance Taylor <ian@airs.com>
Thu, 8 Sep 1994 23:46:00 +0000 (23:46 +0000)
than a printf.
(fixup_segment): Use as_bad_where rather than as_bad.

gas/ChangeLog
gas/config/obj-coff.c

index 97fffb066ee30d3e38e4d7135c35745b7fa500ff..6410328e1c6e2b361769046c2e05bbf5811fe0c0 100644 (file)
@@ -1,7 +1,13 @@
+Thu Sep  8 19:43:49 1994  Ian Lance Taylor  (ian@sanguine.cygnus.com)
+
+       * config/obj-coff.c (size_section): Do an fprintf to stderr rather
+       than a printf.
+       (fixup_segment): Use as_bad_where rather than as_bad.
+
 Wed Sep  7 17:21:12 1994  Steve Chamberlain  (sac@jonny.cygnus.com)
 
-       * config/tc-{h8300,sh}.[ch] (tc_coff_symbol_emit): Function doing nothing
-       becomes macro doing nothing.
+       * config/tc-{h8300,sh}.[ch] (tc_coff_symbol_emit): Function doing
+       nothing becomes macro doing nothing.
 
 Wed Sep  7 19:10:09 1994  Ken Raeburn  (raeburn@cujo.cygnus.com)
 
index 939809f14ab1d7714325e999ae3f0686aa844125..470e4d8b2728ea477668786281548913db953d10 100644 (file)
 #include "obstack.h"
 #include "subsegs.h"
 
-#ifdef BFD_ASSEMBLER
-
-static symbolS *tag_find_or_make PARAMS ((char *name));
-static symbolS *tag_find PARAMS ((char *name));
-static void tag_init PARAMS ((void));
-static void tag_insert PARAMS ((const char *name, symbolS * symbolP));
 const char *s_get_name PARAMS ((symbolS * s));
-
-static void obj_coff_def PARAMS ((int));
-static void obj_coff_dim PARAMS ((int));
-static void obj_coff_endef PARAMS ((int));
-static void obj_coff_line PARAMS ((int));
-static void obj_coff_ln PARAMS ((int));
-static void obj_coff_scl PARAMS ((int));
-static void obj_coff_size PARAMS ((int));
-static void obj_coff_tag PARAMS ((int));
-static void obj_coff_type PARAMS ((int));
-static void obj_coff_val PARAMS ((int));
-
-static void SA_SET_SYM_TAGNDX PARAMS ((symbolS *, symbolS *));
-
-static struct hash_control *tag_hash;
 static symbolS *def_symbol_in_progress;
 
-const pseudo_typeS obj_pseudo_table[] =
-{
-  {"def", obj_coff_def, 0},
-  {"dim", obj_coff_dim, 0},
-  {"endef", obj_coff_endef, 0},
-  {"line", obj_coff_line, 0},
-  {"ln", obj_coff_ln, 0},
-  {"appline", obj_coff_ln, 1},
-  {"scl", obj_coff_scl, 0},
-  {"size", obj_coff_size, 0},
-  {"tag", obj_coff_tag, 0},
-  {"type", obj_coff_type, 0},
-  {"val", obj_coff_val, 0},
-  { "section", obj_coff_section, 0 },
-  {"ident", s_ignore, 0},      /* we don't yet handle this. */
-  {"optim", s_ignore, 0},      /* For sun386i cc (?) */
-  /* other stuff */
-  {"ABORT", s_abort, 0},
-
-  {NULL}                       /* end sentinel */
-};                             /* obj_pseudo_table */
 \f
 /* stack stuff */
 typedef struct
@@ -102,6 +60,8 @@ stack_init (chunk_size, element_size)
   return st;
 }
 
+#if 0
+/* Not currently used.  */
 static void
 stack_delete (st)
      stack *st;
@@ -109,6 +69,7 @@ stack_delete (st)
   free (st->data);
   free (st);
 }
+#endif
 
 static char *
 stack_push (st, element)
@@ -143,6 +104,8 @@ stack_pop (st)
  * Maintain a list of the tagnames of the structres.
  */
 
+static struct hash_control *tag_hash;
+
 static void
 tag_init ()
 {
@@ -163,6 +126,17 @@ tag_insert (name, symbolP)
     }
 }
 
+static symbolS *
+tag_find (name)
+     char *name;
+{
+#ifdef STRIP_UNDERSCORE
+  if (*name == '_')
+    name++;
+#endif /* STRIP_UNDERSCORE */
+  return (symbolS *) hash_find (tag_hash, name);
+}
+
 static symbolS *
 tag_find_or_make (name)
      char *name;
@@ -175,23 +149,20 @@ tag_find_or_make (name)
                            0, &zero_address_frag);
 
       tag_insert (S_GET_NAME (symbolP), symbolP);
+#ifdef BFD_ASSEMBLER
       symbol_table_insert (symbolP);
+#endif
     }                          /* not found */
 
   return symbolP;
 }
 
-static symbolS *
-tag_find (name)
-     char *name;
-{
-#ifdef STRIP_UNDERSCORE
-  if (*name == '_')
-    name++;
-#endif /* STRIP_UNDERSCORE */
-  return (symbolS *) hash_find (tag_hash, name);
-}
-\f
+
+
+#ifdef BFD_ASSEMBLER
+
+static void SA_SET_SYM_TAGNDX PARAMS ((symbolS *, symbolS *));
+
 struct line_no {
   struct line_no *next;
   fragS *frag;
@@ -970,7 +941,8 @@ coff_frob_symbol (symp, punt)
        }
       else if (S_GET_STORAGE_CLASS (symp) == C_NULL)
        {
-         if (S_GET_SEGMENT (symp) == text_section)
+         if (S_GET_SEGMENT (symp) == text_section
+             && symp != seg_info (text_section)->sym)
            S_SET_STORAGE_CLASS (symp, C_LABEL);
          else
            S_SET_STORAGE_CLASS (symp, C_STAT);
@@ -1273,6 +1245,9 @@ symbol_dump ()
 #define NOP_OPCODE 0x00
 #endif
 
+/* The zeroes if symbol name is longer than 8 chars */
+#define S_SET_ZEROES(s,v)              ((s)->sy_symbol.ost_entry.n_zeroes = (v))
+
 #define MIN(a,b) ((a) < (b)? (a) : (b))
 /* This vector is used to turn an internal segment into a section #
    suitable for insertion into a coff symbol table
@@ -1309,7 +1284,7 @@ static symbolS *last_line_symbol;
    negatives. This vector is used by S_GET_SEGMENT to turn a coff
    section number into a segment number
 */
-static symbolS *previous_file_symbol = NULL;
+static symbolS *previous_file_symbol;
 void c_symbol_merge ();
 static int line_base;
 
@@ -1330,14 +1305,8 @@ static void fill_section PARAMS ((bfd * abfd,
                                  unsigned long *));
 
 
-static symbolS *tag_find_or_make PARAMS ((char *name));
-static symbolS *tag_find PARAMS ((char *name));
-static void tag_init PARAMS ((void));
-static void tag_insert PARAMS ((char *name, symbolS * symbolP));
-char *s_get_name PARAMS ((symbolS * s));
-
 static int c_line_new PARAMS ((symbolS * symbol, long paddr,
-                              unsigned short line_number,
+                              int line_number,
                               fragS * frag));
 
 
@@ -1346,20 +1315,6 @@ static void w_symbols PARAMS ((bfd * abfd, char *where,
 
 static void adjust_stab_section PARAMS ((bfd *abfd, segT seg));
 
-static struct hash_control *tag_hash;
-
-static symbolS *def_symbol_in_progress = NULL;
-
-static void obj_coff_def PARAMS ((int));
-static void obj_coff_dim PARAMS ((int));
-static void obj_coff_endef PARAMS ((int));
-static void obj_coff_line PARAMS ((int));
-static void obj_coff_ln PARAMS ((int));
-static void obj_coff_scl PARAMS ((int));
-static void obj_coff_size PARAMS ((int));
-static void obj_coff_tag PARAMS ((int));
-static void obj_coff_type PARAMS ((int));
-static void obj_coff_val PARAMS ((int));
 static void obj_coff_lcomm PARAMS ((int));
 static void obj_coff_text PARAMS ((int));
 static void obj_coff_data PARAMS ((int));
@@ -1367,158 +1322,6 @@ static void obj_coff_bss PARAMS ((int));
 static void obj_coff_ident PARAMS ((int));
 void obj_coff_section PARAMS ((int));
 
-const pseudo_typeS obj_pseudo_table[] =
-{
-  {"def", obj_coff_def, 0},
-  {"dim", obj_coff_dim, 0},
-  {"endef", obj_coff_endef, 0},
-  {"line", obj_coff_line, 0},
-  {"ln", obj_coff_ln, 0},
-  {"appline", obj_coff_ln, 1},
-  {"scl", obj_coff_scl, 0},
-  {"size", obj_coff_size, 0},
-  {"tag", obj_coff_tag, 0},
-  {"type", obj_coff_type, 0},
-  {"val", obj_coff_val, 0},
-  {"section", obj_coff_section, 0},
-  {"use", obj_coff_section, 0},
-  {"sect", obj_coff_section, 0},
-  {"text", obj_coff_text, 0},
-  {"data", obj_coff_data, 0},
-  {"bss", obj_coff_bss, 0},
-  {"ident", obj_coff_ident, 0},
-  {"ABORT", s_abort, 0},
-  {"lcomm", obj_coff_lcomm, 0},
-#ifdef TC_M88K
-  /* The m88k uses sdef instead of def.  */
-  {"sdef", obj_coff_def, 0},
-#endif
-  {NULL}                       /* end sentinel */
-};                             /* obj_pseudo_table */
-\f
-/* stack stuff */
-typedef struct
-  {
-    unsigned long chunk_size;
-    unsigned long element_size;
-    unsigned long size;
-    char *data;
-    unsigned long pointer;
-  }
-stack;
-
-static stack *
-stack_init (chunk_size, element_size)
-     unsigned long chunk_size;
-     unsigned long element_size;
-{
-  stack *st;
-
-  st = (stack *) malloc (sizeof (stack));
-  if (!st)
-    return 0;
-  st->data = malloc (chunk_size);
-  if (!st->data)
-    {
-      free (st);
-      return 0;
-    }
-  st->pointer = 0;
-  st->size = chunk_size;
-  st->chunk_size = chunk_size;
-  st->element_size = element_size;
-  return st;
-}
-
-static void
-stack_delete (st)
-     stack *st;
-{
-  free (st->data);
-  free (st);
-}
-
-static char *
-stack_push (st, element)
-     stack *st;
-     char *element;
-{
-  if (st->pointer + st->element_size >= st->size)
-    {
-      st->size += st->chunk_size;
-      if ((st->data = xrealloc (st->data, st->size)) == (char *) 0)
-       return (char *) 0;
-    }
-  memcpy (st->data + st->pointer, element, st->element_size);
-  st->pointer += st->element_size;
-  return st->data + st->pointer;
-}
-
-static char *
-stack_pop (st)
-     stack *st;
-{
-  if (st->pointer < st->element_size)
-    {
-      st->pointer = 0;
-      return (char *) 0;
-    }
-  st->pointer -= st->element_size;
-  return st->data + st->pointer;
-}
-\f
-/*
- * Maintain a list of the tagnames of the structres.
- */
-
-static void
-tag_init ()
-{
-  tag_hash = hash_new ();
-}
-
-static void
-tag_insert (name, symbolP)
-     char *name;
-     symbolS *symbolP;
-{
-  const char *error_string;
-
-  if ((error_string = hash_jam (tag_hash, name, (char *) symbolP)))
-    {
-      as_fatal ("Inserting \"%s\" into structure table failed: %s",
-               name, error_string);
-    }
-}
-
-static symbolS *
-tag_find_or_make (name)
-     char *name;
-{
-  symbolS *symbolP;
-
-  if ((symbolP = tag_find (name)) == NULL)
-    {
-      symbolP = symbol_new (name, undefined_section,
-                           0, &zero_address_frag);
-
-      tag_insert (S_GET_NAME (symbolP), symbolP);
-    }                          /* not found */
-
-  return symbolP;
-}
-
-static symbolS *
-tag_find (name)
-     char *name;
-{
-#ifdef STRIP_UNDERSCORE
-  if (*name == '_')
-    name++;
-#endif /* STRIP_UNDERSCORE */
-  return (symbolS *) hash_find (tag_hash, name);
-}
-\f
 /* Section stuff
 
    We allow more than just the standard 3 sections, infact, we allow
@@ -1535,7 +1338,7 @@ typedef struct
   int i;
 } seg_info_type;
 
-seg_info_type seg_info_off_by_4[N_SEG] =
+static const seg_info_type seg_info_off_by_4[N_SEG] =
 {
  {SEG_PTV,  },
  {SEG_NTV,  },
@@ -1567,8 +1370,6 @@ seg_info_type seg_info_off_by_4[N_SEG] =
 
 
 #define SEG_INFO_FROM_SECTION_NUMBER(x) (seg_info_off_by_4[(x)+4])
-#define SEG_INFO_FROM_SEG_NUMBER(x) (seg_info_off_by_4[(x)])
-
 
 static relax_addressT
 relax_align (address, alignment)
@@ -1581,7 +1382,7 @@ relax_align (address, alignment)
   mask = ~((~0) << alignment);
   new_address = (address + mask) & (~mask);
   return (new_address - address);
-}                              /* relax_align() */
+}
 
 
 segT
@@ -1608,7 +1409,7 @@ size_section (abfd, idx)
       size = frag->fr_address;
       if (frag->fr_address != size)
        {
-         printf ("Out of step\n");
+         fprintf (stderr, "Out of step\n");
          size = frag->fr_address;
        }
 
@@ -2541,11 +2342,11 @@ obj_read_begin_hook ()
    externals onto another chain */
 
 /* The chain of externals */
-symbolS *symbol_externP = NULL;
-symbolS *symbol_extern_lastP = NULL;
+symbolS *symbol_externP;
+symbolS *symbol_extern_lastP;
 
 stack *block_stack;
-symbolS *last_functionP = NULL;
+symbolS *last_functionP;
 symbolS *last_tagP;
 
 static unsigned int
@@ -2999,10 +2800,10 @@ write_object_file ()
        frchain_ptr != (struct frchain *) NULL;
        frchain_ptr = frchain_ptr->frch_next)
     {
-      /* Run through all the sub-segments and align them up. Also close any
-              open frags. We tack a .fill onto the end of the frag chain so
-              that any .align's size can be worked by looking at the next
-              frag */
+      /* Run through all the sub-segments and align them up.  Also
+        close any open frags.  We tack a .fill onto the end of the
+        frag chain so that any .align's size can be worked by looking
+        at the next frag.  */
 
       subseg_set (frchain_ptr->frch_seg, frchain_ptr->frch_subseg);
 #ifndef SUB_SEGMENT_ALIGN
@@ -3043,6 +2844,10 @@ write_object_file ()
       size = size_section (abfd, (unsigned int) i);
       addr += size;
 
+      /* I think the section alignment is only used on the i960; the
+        i960 needs it, and it should do no harm on other targets.  */
+      segment_info[i].scnhdr.s_align = section_alignment[i];
+
       if (i == SEG_E0)
        H_SET_TEXT_SIZE (&headers, size);
       else if (i == SEG_E1)
@@ -3097,6 +2902,9 @@ write_object_file ()
 #else
   H_SET_TIME_STAMP (&headers, 0);
 #endif
+#ifdef TC_COFF_SET_MACHINE
+  TC_COFF_SET_MACHINE (&headers);
+#endif
 
 #ifdef KEEP_RELOC_INFO
   H_SET_FLAGS (&headers, ((H_GET_LINENO_SIZE(&headers) ? 0 : F_LNNO) |
@@ -3327,7 +3135,7 @@ static int
 c_line_new (symbol, paddr, line_number, frag)
      symbolS * symbol;
      long paddr;
-     unsigned short line_number;
+     int line_number;
      fragS * frag;
 {
   struct lineno_list *new_line =
@@ -3604,15 +3412,16 @@ fixup_segment (segP, this_segment_type)
       size = fixP->fx_size;
       add_symbolP = fixP->fx_addsy;
 #ifdef TC_I960
-      if (fixP->fx_tcbit && TC_S_IS_CALLNAME (add_symbolP))
+      if (fixP->fx_tcbit && SF_GET_CALLNAME (add_symbolP))
        {
          /* Relocation should be done via the associated 'bal' entry
             point symbol. */
 
-         if (!TC_S_IS_BALNAME (tc_get_bal_of_call (add_symbolP)))
+         if (!SF_GET_BALNAME (tc_get_bal_of_call (add_symbolP)))
            {
-             as_bad ("No 'bal' entry point for leafproc %s",
-                     S_GET_NAME (add_symbolP));
+             as_bad_where (fixP->fx_file, fixP->fx_line,
+                           "No 'bal' entry point for leafproc %s",
+                           S_GET_NAME (add_symbolP));
              continue;
            }
          fixP->fx_addsy = add_symbolP = tc_get_bal_of_call (add_symbolP);
@@ -3634,7 +3443,9 @@ fixup_segment (segP, this_segment_type)
              /* Its just -sym */
              if (S_GET_SEGMENT (sub_symbolP) != absolute_section)
                {
-                 as_bad ("Negative of non-absolute symbol %s", S_GET_NAME (sub_symbolP));
+                 as_bad_where (fixP->fx_file, fixP->fx_line,
+                               "Negative of non-absolute symbol %s",
+                               S_GET_NAME (sub_symbolP));
                }               /* not absolute */
 
              add_number -= S_GET_VALUE (sub_symbolP);
@@ -3655,7 +3466,8 @@ fixup_segment (segP, this_segment_type)
                 as the target of a call instruction.  */
              if (fixP->fx_tcbit)
                {
-                 as_bad ("callj to difference of 2 symbols");
+                 as_bad_where (fixP->fx_file, fixP->fx_line,
+                               "callj to difference of 2 symbols");
                }
 #endif /* TC_I960 */
              add_number += S_GET_VALUE (add_symbolP) -
@@ -3692,10 +3504,11 @@ fixup_segment (segP, this_segment_type)
 #endif
              else
                {
-                 as_bad ("Can't emit reloc {- %s-seg symbol \"%s\"} @ file address %ld.",
-                         segment_name (S_GET_SEGMENT (sub_symbolP)),
-                         S_GET_NAME (sub_symbolP),
-                         (long) (fragP->fr_address + where));
+                 as_bad_where (fixP->fx_file, fixP->fx_line,
+                               "Can't emit reloc {- %s-seg symbol \"%s\"} @ file address %ld.",
+                               segment_name (S_GET_SEGMENT (sub_symbolP)),
+                               S_GET_NAME (sub_symbolP),
+                               (long) (fragP->fr_address + where));
                }               /* if absolute */
            }
        }                       /* if sub_symbolP */
@@ -3763,7 +3576,8 @@ fixup_segment (segP, this_segment_type)
                       * for local branches: flag as error, don't generate
                       * relocation.
                       */
-                     as_bad ("can't use COBR format with external label");
+                     as_bad_where (fixP->fx_file, fixP->fx_line,
+                                   "can't use COBR format with external label");
                      fixP->fx_addsy = NULL;
                      fixP->fx_done = 1;
                      continue;
@@ -3813,9 +3627,10 @@ fixup_segment (segP, this_segment_type)
              (size == 2 &&
               (add_number & ~0xFFFF) && ((add_number & ~0xFFFF) != (-1 & ~0xFFFF))))
            {
-             as_bad ("Value of %ld too large for field of %d bytes at 0x%lx",
-                     (long) add_number, size,
-                     (unsigned long) (fragP->fr_address + where));
+             as_bad_where (fixP->fx_file, fixP->fx_line,
+                           "Value of %ld too large for field of %d bytes at 0x%lx",
+                           (long) add_number, size,
+                           (unsigned long) (fragP->fr_address + where));
            }                   /* generic error checking */
 #endif
 #ifdef WARN_SIGNED_OVERFLOW_WORD
@@ -3826,9 +3641,10 @@ fixup_segment (segP, this_segment_type)
          if (!flag_signed_overflow_ok
              && size == 2
              && add_number > 0x7fff)
-           as_bad ("Signed .word overflow; switch may be too large; %ld at 0x%lx",
-                   (long) add_number,
-                   (unsigned long) (fragP->fr_address + where));
+           as_bad_where (fixP->fx_file, fixP->fx_line,
+                         "Signed .word overflow; switch may be too large; %ld at 0x%lx",
+                         (long) add_number,
+                         (unsigned long) (fragP->fr_address + where));
 #endif
        }                       /* not a bit fix */
       /* once this fix has been applied, we don't have to output anything
@@ -3913,5 +3729,38 @@ adjust_stab_section(abfd, seg)
   bfd_h_put_32 (abfd, (bfd_vma) strsz, (bfd_byte *) p + 8);
 }
 
-
 #endif /* not BFD_ASSEMBLER */
+
+const pseudo_typeS obj_pseudo_table[] =
+{
+  {"def", obj_coff_def, 0},
+  {"dim", obj_coff_dim, 0},
+  {"endef", obj_coff_endef, 0},
+  {"line", obj_coff_line, 0},
+  {"ln", obj_coff_ln, 0},
+  {"appline", obj_coff_ln, 1},
+  {"scl", obj_coff_scl, 0},
+  {"size", obj_coff_size, 0},
+  {"tag", obj_coff_tag, 0},
+  {"type", obj_coff_type, 0},
+  {"val", obj_coff_val, 0},
+  {"section", obj_coff_section, 0},
+#ifndef BFD_ASSEMBLER
+  {"use", obj_coff_section, 0},
+  {"sect", obj_coff_section, 0},
+  {"text", obj_coff_text, 0},
+  {"data", obj_coff_data, 0},
+  {"bss", obj_coff_bss, 0},
+  {"lcomm", obj_coff_lcomm, 0},
+  {"ident", obj_coff_ident, 0},
+#else
+  {"optim", s_ignore, 0},      /* For sun386i cc (?) */
+  {"ident", s_ignore, 0},      /* we don't yet handle this. */
+#endif
+  {"ABORT", s_abort, 0},
+#ifdef TC_M88K
+  /* The m88k uses sdef instead of def.  */
+  {"sdef", obj_coff_def, 0},
+#endif
+  {NULL}                       /* end sentinel */
+};                             /* obj_pseudo_table */