bfd ChangeLog

[deliverable/binutils-gdb.git] / gas / config / tc-i370.c

diff --git a/gas/config/tc-i370.c b/gas/config/tc-i370.c
index 31d2f7a1fc33ed1a107e03e7f5543549537540f8..a1dab875ae8586e08b5d8b661176e2d4c423a8f3 100644 (file)
--- a/gas/config/tc-i370.c
+++ b/gas/config/tc-i370.c
@@ -1,6 +1,6 @@
 /* tc-i370.c -- Assembler for the IBM 360/370/390 instruction set.
    Loosely based on the ppc files by Linas Vepstas <linas@linas.org> 1998, 99
-   Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002
+   Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
    Free Software Foundation, Inc.
    Written by Ian Lance Taylor, Cygnus Support.
 
@@ -920,7 +920,7 @@ unsigned char ebcasc[256] =
 /* ebcdic translation tables needed for 3270 support */
 static void
 i370_ebcdic (unused)
-     int unused;
+     int unused ATTRIBUTE_UNUSED;
 {
   char *p, *end;
   char delim = 0;
@@ -955,7 +955,7 @@ i370_ebcdic (unused)
 /* stub out a couple of routines */
 static void
 i370_rmode (unused)
-     int unused;
+     int unused ATTRIBUTE_UNUSED;
 {
   as_tsktsk ("rmode ignored");
 }
@@ -976,7 +976,7 @@ i370_dsect (sect)
 
 static void
 i370_csect (unused)
-     int unused;
+     int unused ATTRIBUTE_UNUSED;
 {
   as_tsktsk ("csect not supported");
 }
@@ -989,8 +989,8 @@ i370_csect (unused)
  * DC   F'1'             # in sysv4, .long   1
  */
 static void
-i370_dc(unused)
-     int unused;
+i370_dc (unused)
+     int unused ATTRIBUTE_UNUSED;
 {
   char * p, tmp[50];
   int nbytes=0;
@@ -1069,7 +1069,7 @@ i370_dc(unused)
 /* provide minimal support for DS Define Storage */
 static void
 i370_ds (unused)
-     int unused;
+     int unused ATTRIBUTE_UNUSED;
 {
   /* DS 0H or DS 0F or DS 0D */
   if ('0' == *input_line_pointer)
@@ -1118,7 +1118,7 @@ i370_elf_rdata (sect)
 /* Pseudo op to make file scope bss items */
 static void
 i370_elf_lcomm (unused)
-     int unused;
+     int unused ATTRIBUTE_UNUSED;
 {
   register char *name;
   register char c;
@@ -1378,8 +1378,8 @@ add_to_lit_pool (expressionS *exx, char *name, int sz)
       next_literal_pool_place++;
     }
 
-  /* ???_poolP points to the begining of the literal pool.
-   * X_add_number is the offset from the begining of the
+  /* ???_poolP points to the beginning of the literal pool.
+   * X_add_number is the offset from the beginning of the
    * literal pool to this expr minus the location of the most
    * recent .using directive.  Thus, the grand total value of the
    * expression is the distance from .using to the literal.
@@ -1416,6 +1416,9 @@ add_to_lit_pool (expressionS *exx, char *name, int sz)
 
 /* Can't use symbol_new here, so have to create a symbol and then at
    a later date assign it a value. Thats what these functions do */
+static void symbol_locate
+  PARAMS ((symbolS *, const char *, segT, valueT, fragS *));
+
 static void
 symbol_locate (symbolP, name, segment, valu, frag)
      symbolS *symbolP;
@@ -1658,7 +1661,7 @@ i370_addr_cons (expressionS *exp)
                }
              cons_len = (hex_len+1) /2;
            }
-         /* I beleive this works even for =XL8'dada0000beeebaaa'
+         /* I believe this works even for =XL8'dada0000beeebaaa'
           * which should parse out to X_op == O_big
           * Note that floats and doubles get represented as
           * 0d3.14159265358979  or 0f 2.7
@@ -1706,7 +1709,7 @@ i370_addr_cons (expressionS *exp)
 
 static void
 i370_ltorg (ignore)
-     int ignore;
+     int ignore ATTRIBUTE_UNUSED;
 {
   int litsize;
   int lit_count = 0;
@@ -1791,7 +1794,7 @@ i370_ltorg (ignore)
 #define EMIT_ADDR_CONS_SYMBOLS
 #ifdef EMIT_ADDR_CONS_SYMBOLS
              /* create a bogus symbol, add it to the pool ...
-              * For the most part, I think this is a useless excercise,
+              * For the most part, I think this is a useless exercise,
               * except that having these symbol names in the objects
               * is vaguely useful for debugging ...
               */
@@ -1830,7 +1833,7 @@ i370_ltorg (ignore)
  */
 static void
 i370_using (ignore)
-     int ignore;
+     int ignore ATTRIBUTE_UNUSED;
 {
   expressionS ex, baseaddr;
   int iregno;
@@ -1843,7 +1846,7 @@ i370_using (ignore)
     *star = '.';
 
   /* the first arg to using will usually be ".", but it can
-   * be a more complex exprsssion too ...  */
+   * be a more complex expression too ...  */
   expression (&baseaddr);
   if (star)
     *star = '*';
@@ -1876,7 +1879,7 @@ i370_using (ignore)
 
 static void
 i370_drop (ignore)
-     int ignore;
+     int ignore ATTRIBUTE_UNUSED;
 {
   expressionS ex;
   int iregno;
@@ -2185,7 +2188,7 @@ md_assemble (str)
 
       /* Check for an address constant expression.  */
       /* We will put PSW-relative addresses in the text section,
-       * and adress literals in the .data (or other) section.  */
+       * and address literals in the .data (or other) section.  */
       else if (i370_addr_cons (&ex))
        use_other=1;
       else if (i370_addr_offset (&ex))
@@ -2451,7 +2454,7 @@ i370_macro (str, macro)
   md_assemble (complete);
 }
 \f
-#ifdef OBJ_ELF
+#if 0
 /* For ELF, add support for SHF_EXCLUDE and SHT_ORDERED */
 
 int
@@ -2512,7 +2515,7 @@ i370_section_flags (flags, attr, type)
 
 static void
 i370_byte (ignore)
-     int ignore;
+     int ignore ATTRIBUTE_UNUSED;
 {
   if (*input_line_pointer != '\"')
     {
@@ -2549,14 +2552,14 @@ i370_byte (ignore)
    give to this location in the toc; this will be a symbol with class
    TC.  The rest of the arguments are 4 byte values to actually put at
    this location in the TOC; often there is just one more argument, a
-   relocateable symbol reference.
+   relocatable symbol reference.
 
    When not generating XCOFF output, the arguments are the same, but
    the first argument is simply ignored.  */
 
 static void
 i370_tc (ignore)
-     int ignore;
+     int ignore ATTRIBUTE_UNUSED;
 {
 
   /* Skip the TOC symbol name.  */
@@ -2660,8 +2663,8 @@ md_section_align (seg, addr)
 
 int
 md_estimate_size_before_relax (fragp, seg)
-     fragS *fragp;
-     asection *seg;
+     fragS *fragp ATTRIBUTE_UNUSED;
+     asection *seg ATTRIBUTE_UNUSED;
 {
   abort ();
   return 0;
@@ -2671,9 +2674,9 @@ md_estimate_size_before_relax (fragp, seg)
 
 void
 md_convert_frag (abfd, sec, fragp)
-     bfd *abfd;
-     asection *sec;
-     fragS *fragp;
+     bfd *abfd ATTRIBUTE_UNUSED;
+     asection *sec ATTRIBUTE_UNUSED;
+     fragS *fragp ATTRIBUTE_UNUSED;
 {
   abort ();
 }
@@ -2682,7 +2685,7 @@ md_convert_frag (abfd, sec, fragp)
 
 symbolS *
 md_undefined_symbol (name)
-     char *name;
+     char *name ATTRIBUTE_UNUSED;
 {
   return 0;
 }
@@ -2695,7 +2698,7 @@ md_undefined_symbol (name)
 long
 md_pcrel_from_section (fixp, sec)
      fixS *fixp;
-     segT sec;
+     segT sec ATTRIBUTE_UNUSED;
 {
   return fixp->fx_frag->fr_address + fixp->fx_where;
 }
@@ -2893,7 +2896,7 @@ md_apply_fix3 (fixP, valP, seg)
 
 arelent *
 tc_gen_reloc (seg, fixp)
-     asection *seg;
+     asection *seg ATTRIBUTE_UNUSED;
      fixS *fixp;
 {
   arelent *reloc;