]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blobdiff - gas/config/atof-vax.c
Update year range in copyright notice of binutils files
[thirdparty/binutils-gdb.git] / gas / config / atof-vax.c
index 3947fedd54cc6de432c3cee6ec6685473085f412..2eb3e62a3198d38be7d6f571b333436f8c6c5d74 100644 (file)
@@ -1,12 +1,11 @@
 /* atof_vax.c - turn a Flonum into a VAX floating point number
-   Copyright 1987, 1992, 1993, 1995, 1997, 1999, 2000, 2005
-   Free Software Foundation, Inc.
+   Copyright (C) 1987-2020 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 2, or (at your option)
+   the Free Software Foundation; either version 3, or (at your option)
    any later version.
 
    GAS is distributed in the hope that it will be useful,
@@ -35,7 +34,7 @@ int flonum_gen2vax (int, FLONUM_TYPE *, LITTLENUM_TYPE *);
 
 /* Number of chars in flonum type 'letter'.  */
 
-static int
+static unsigned int
 atof_vax_sizeof (int letter)
 {
   int return_value;
@@ -295,7 +294,7 @@ flonum_gen2vax (int format_letter,  /* One of 'd' 'f' 'g' 'h'.  */
          /* Seek (and forget) 1st significant bit.  */
          for (exponent_skippage = 0;
               !next_bits (1);
-              exponent_skippage++);;
+              exponent_skippage++);
 
          exponent_1 = f->exponent + f->leader + 1 - f->low;
          /* Radix LITTLENUM_RADIX, point just higher than f->leader.  */
@@ -380,7 +379,7 @@ flonum_gen2vax (int format_letter,  /* One of 'd' 'f' 'g' 'h'.  */
        Address of where to build floating point literal.
                Assumed to be 'big enough'.
        Address of where to return size of literal (in chars).
-  
+
    Out:        Input_line_pointer->of next char after floating number.
        Error message, or 0.
        Floating point literal.
@@ -388,14 +387,14 @@ flonum_gen2vax (int format_letter,        /* One of 'd' 'f' 'g' 'h'.  */
 
 #define MAXIMUM_NUMBER_OF_LITTLENUMS  8        /* For .hfloats.  */
 
-char *
-md_atof (int what_statement_type,
-        char *literalP,
-        int *sizeP)
+const char *
+vax_md_atof (int what_statement_type,
+            char *literalP,
+            int *sizeP)
 {
   LITTLENUM_TYPE words[MAXIMUM_NUMBER_OF_LITTLENUMS];
   char kind_of_float;
-  int number_of_chars;
+  unsigned int number_of_chars;
   LITTLENUM_TYPE *littlenumP;
 
   switch (what_statement_type)
@@ -435,7 +434,7 @@ md_atof (int what_statement_type,
          a little-endian machine, be very careful about
          converting words to chars.  */
       number_of_chars = atof_vax_sizeof (kind_of_float);
-      know (number_of_chars <= (int)(MAXIMUM_NUMBER_OF_LITTLENUMS * sizeof (LITTLENUM_TYPE)));
+      know (number_of_chars <= MAXIMUM_NUMBER_OF_LITTLENUMS * sizeof (LITTLENUM_TYPE));
       limit = words + (number_of_chars / sizeof (LITTLENUM_TYPE));
       for (littlenumP = words; littlenumP < limit; littlenumP++)
        {
@@ -447,5 +446,5 @@ md_atof (int what_statement_type,
     number_of_chars = 0;
 
   *sizeP = number_of_chars;
-  return kind_of_float ? NULL : _("Bad call to md_atof()");
+  return kind_of_float ? NULL : _("Unrecognized or unsupported floating point constant");
 }