* config/tc-alpha.c: More use of symbol accessor functions.

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

diff --git a/gas/config/tc-m88k.c b/gas/config/tc-m88k.c
index ca49ac261ffc073be3465add0f37a985101b8aad..f77460a0caf0050db9601a6f75661782857f0c89 100644 (file)
--- a/gas/config/tc-m88k.c
+++ b/gas/config/tc-m88k.c
@@ -1,14 +1,14 @@
 /* m88k.c -- Assembler for the Motorola 88000
    Contributed by Devon Bowen of Buffalo University
    and Torbjorn Granlund of the Swedish Institute of Computer Science.
-   Copyright (C) 1989, 90, 91, 92, 93, 94, 95, 1996
+   Copyright (C) 1989, 90, 91, 92, 93, 94, 95, 96, 97, 98, 1999
    Free Software Foundation, Inc.
 
 This file is part of GAS, the GNU Assembler.
 
 GAS 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.
 
 GAS is distributed in the hope that it will be useful,
@@ -17,8 +17,9 @@ 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
-along with GAS; see the file COPYING.  If not, write to
-the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+along with GAS; see the file COPYING.  If not, write to the Free
+Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+02111-1307, USA.  */
 
 #include <ctype.h>
 #include "as.h"
@@ -202,7 +203,7 @@ md_begin ()
       retval = hash_insert (op_hash, name, &m88k_opcodes[i]);
 
       if (retval != NULL)
-       as_fatal ("Can't hash instruction '%s':%s",
+       as_fatal (_("Can't hash instruction '%s':%s"),
                  m88k_opcodes[i].name, retval);
 
       /* skip to next unique mnemonic or end of list */
@@ -254,7 +255,7 @@ md_assemble (op)
 
   if ((format = (struct m88k_opcode *) hash_find (op_hash, op)) == NULL)
     {
-      as_bad ("Invalid mnemonic '%s'", op);
+      as_bad (_("Invalid mnemonic '%s'"), op);
       return;
     }
 
@@ -274,7 +275,7 @@ md_assemble (op)
        format++;
       else
        {
-         as_fatal ("Parameter syntax error");
+         as_fatal (_("Parameter syntax error"));
          return;
        }
     }
@@ -329,7 +330,7 @@ md_assemble (op)
       break;
 
     default:
-      as_fatal ("Unknown relocation type");
+      as_fatal (_("Unknown relocation type"));
       break;
     }
 }
@@ -442,7 +443,7 @@ calcop (format, param, insn)
        case '?':
          /* Having this here repeats the warning somtimes.
           But can't we stand that?  */
-         as_warn ("Use of obsolete instruction");
+         as_warn (_("Use of obsolete instruction"));
          break;
        }
     }
@@ -559,7 +560,7 @@ get_imm16 (param, insn)
        {
          /* Warn about too big expressions if not surrounded by xx16.  */
          if (val > 0xffff)
-           as_warn ("Expression truncated to 16 bits");
+           as_warn (_("Expression truncated to 16 bits"));
        }
 
       if (reloc == RELOC_HI16)
@@ -625,7 +626,7 @@ get_cmp (param, valp)
 
       if (val >= 32)
        {
-         as_warn ("Expression truncated to 5 bits");
+         as_warn (_("Expression truncated to 5 bits"));
          val %= 32;
        }
     }
@@ -647,7 +648,7 @@ get_cnd (param, valp)
 
       if (val >= 32)
        {
-         as_warn ("Expression truncated to 5 bits");
+         as_warn (_("Expression truncated to 5 bits"));
          val %= 32;
        }
     }
@@ -869,7 +870,7 @@ get_vec9 (param, valp)
   input_line_pointer = save_ptr;
 
   if (val >= 1 << 9)
-    as_warn ("Expression truncated to 9 bits");
+    as_warn (_("Expression truncated to 9 bits"));
 
   *valp = val % (1 << 9);
 
@@ -891,7 +892,7 @@ get_o6 (param, valp)
   input_line_pointer = save_ptr;
 
   if (val & 0x3)
-    as_warn ("Removed lower 2 bits of expression");
+    as_warn (_("Removed lower 2 bits of expression"));
 
   *valp = val;
 
@@ -1030,7 +1031,7 @@ md_number_to_imm (buf, val, nbytes, fixP, seg_type)
       break;
 
     default:
-      as_fatal ("Bad relocation type");
+      as_fatal (_("Bad relocation type"));
       break;
     }
 }
@@ -1043,7 +1044,7 @@ md_number_to_disp (buf, val, nbytes)
      int val;
      int nbytes;
 {
-  as_fatal ("md_number_to_disp not defined");
+  as_fatal (_("md_number_to_disp not defined"));
   md_number_to_chars (buf, val, nbytes);
 }
 
@@ -1053,7 +1054,7 @@ md_number_to_field (buf, val, nbytes)
      int val;
      int nbytes;
 {
-  as_fatal ("md_number_to_field not defined");
+  as_fatal (_("md_number_to_field not defined"));
   md_number_to_chars (buf, val, nbytes);
 }
 
@@ -1073,7 +1074,6 @@ md_atof (type, litP, sizeP)
   LITTLENUM_TYPE words[MAX_LITTLENUMS];
   LITTLENUM_TYPE *wordP;
   char *t;
-  char *atof_ieee ();
 
   switch (type)
     {
@@ -1103,7 +1103,7 @@ md_atof (type, litP, sizeP)
 
     default:
       *sizeP = 0;
-      return "Bad call to MD_ATOF()";
+      return _("Bad call to MD_ATOF()");
     }
   t = atof_ieee (input_line_pointer, type, words);
   if (t)
@@ -1167,7 +1167,7 @@ md_estimate_size_before_relax (fragP, segment_type)
      fragS *fragP;
      segT segment_type;
 {
-  as_fatal ("Relaxation should never occur");
+  as_fatal (_("Relaxation should never occur"));
   return (-1);
 }
 
@@ -1214,9 +1214,9 @@ emit_relocations (fixP, segment_address_in_file)
              ri.r_extern = 0;
              ri.r_symbolnum = symbolP->sy_type & N_TYPE;
            }
-         if (symbolP && symbolP->sy_frag)
+         if (symbolP && symbol_get_frag (symbolP))
            {
-             ri.r_addend = symbolP->sy_frag->fr_address;
+             ri.r_addend = symbol_get_frag (symbolP)->fr_address;
            }
          ri.r_type = fixP->fx_r_type;
          if (fixP->fx_pcrel)
@@ -1257,14 +1257,14 @@ s_bss ()
   SKIP_WHITESPACE ();
   if (*input_line_pointer != ',')
     {
-      as_warn ("Expected comma after name");
+      as_warn (_("Expected comma after name"));
       ignore_rest_of_line ();
       return;
     }
   input_line_pointer++;
   if ((temp = get_absolute_expression ()) < 0)
     {
-      as_warn ("BSS length (%d.) <0! Ignored.", temp);
+      as_warn (_("BSS length (%d.) <0! Ignored."), temp);
       ignore_rest_of_line ();
       return;
     }
@@ -1291,15 +1291,15 @@ s_bss ()
          subseg_set (SEG_BSS, 1); /* switch to bss     */
 
          if (bss_align)
-           frag_align (bss_align, 0);
+           frag_align (bss_align, 0, 0);
 
          /* detach from old frag */
-         if (symbolP->sy_type == N_BSS && symbolP->sy_frag != NULL)
-           symbolP->sy_frag->fr_symbol = NULL;
+         if (symbolP->sy_type == N_BSS && symbol_get_frag (symbolP) != NULL)
+           symbol_get_frag (symbolP)->fr_symbol = NULL;
 
-         symbolP->sy_frag  = frag_now;
+         symbol_set_frag (symbolP, frag_now);
          p = frag_var (rs_org, 1, 1, (relax_substateT)0, symbolP,
-                       temp, (char *)0);
+                       (offsetT) temp, (char *)0);
          *p = 0;
          S_SET_SEGMENT (symbolP, SEG_BSS);
 
@@ -1308,7 +1308,7 @@ s_bss ()
     }
   else
     {
-      as_warn ("Ignoring attempt to re-define symbol %s.", name);
+      as_warn (_("Ignoring attempt to re-define symbol %s."), name);
     }
 
   while (!is_end_of_line[*input_line_pointer])
@@ -1433,16 +1433,17 @@ md_pcrel_from (fixp)
 /* When we align the .init section, insert the correct NOP pattern.  */
 
 int
-m88k_do_align (n, fill, len)
+m88k_do_align (n, fill, max, len)
      int n;
      const char *fill;
      int len;
+     int max;
 {
-  if ((fill == NULL || (*fill == 0 && len == 1))
+  if (fill == NULL
       && strcmp (obj_segment_name (now_seg), ".init") == 0)
     {
       static const unsigned char nop_pattern[] = { 0xf4, 0x00, 0x58, 0x00 };
-      frag_align_pattern (n, nop_pattern, sizeof (nop_pattern));
+      frag_align_pattern (n, nop_pattern, sizeof (nop_pattern), max);
       return 1;
     }
   return 0;