* bfd.c (bfd_scan_vma): Clamp overflows to max bfd_vma value.

Correct value returned in "end" for "0x<non-hex>".

bfd/ChangeLog

@@ -1,3 +1,8 @@
+2002-02-15  Alan Modra  <amodra@bigpond.net.au>
+
+	* bfd.c (bfd_scan_vma): Clamp overflows to max bfd_vma value.
+	Correct value returned in "end" for "0x<non-hex>".
+
 2002-02-14  Nick Clifton  <nickc@cambridge.redhat.com>
 
 	* cpu-arm.c (processors): Replace 'arch' field with 'mach'.

bfd/bfd.c

@@ -1008,7 +1008,8 @@ DESCRIPTION
 	in hex if a leading "0x" or "0X" is found, otherwise
 	in octal if a leading zero is found, otherwise in decimal.
 
-	Overflow is not detected.
+	If the value would overflow, the maximum <<bfd_vma>> value is
+	returned.
 */
 
 bfd_vma
@@ -1018,47 +1019,63 @@ bfd_scan_vma (string, end, base)
      int base;
 {
   bfd_vma value;
-  int digit;
+  bfd_vma cutoff;
+  unsigned int cutlim;
+  int overflow;
 
   /* Let the host do it if possible.  */
   if (sizeof (bfd_vma) <= sizeof (unsigned long))
     return (bfd_vma) strtoul (string, (char **) end, base);
 
-  /* A negative base makes no sense, and we only need to go as high as hex.  */
-  if ((base < 0) || (base > 16))
-    return (bfd_vma) 0;
-
   if (base == 0)
     {
       if (string[0] == '0')
 	{
 	  if ((string[1] == 'x') || (string[1] == 'X'))
 	    base = 16;
-	  /* XXX should we also allow "0b" or "0B" to set base to 2?  */
 	  else
 	    base = 8;
 	}
-      else
-	base = 10;
     }
 
-  if ((base == 16) &&
+  if ((base < 2) || (base > 36))
-      (string[0] == '0') && ((string[1] == 'x') || (string[1] == 'X')))
+    base = 10;
+
+  if (base == 16
+      && string[0] == '0'
+      && (string[1] == 'x' || string[1] == 'X')
+      && ISXDIGIT (string[2]))
+    {
       string += 2;
-  /* XXX should we also skip over "0b" or "0B" if base is 2?  */
+    }
 
-/* Speed could be improved with a table like hex_value[] in gas.  */
+  cutoff = (~ (bfd_vma) 0) / (bfd_vma) base;
-#define HEX_VALUE(c) \
+  cutlim = (~ (bfd_vma) 0) % (bfd_vma) base;
-  (ISXDIGIT (c)							\
+  value = 0;
-   ? (ISDIGIT (c)						\
+  overflow = 0;
-      ? (c - '0')						\
+  while (1)
-      : (10 + c - (ISLOWER (c) ? 'a' : 'A')))			\
+    {
-   : 42)
+      unsigned int digit;
 
-  for (value = 0; (digit = HEX_VALUE (* string)) < base; string ++)
+      digit = *string;
+      if (ISDIGIT (digit))
+	digit = digit - '0';
+      else if (ISALPHA (digit))
+	digit = TOUPPER (digit) - 'A' + 10;
+      else
+	break;
+      if (digit >= (unsigned int) base)
+	break;
+      if (value > cutoff || (value == cutoff && digit > cutlim))
+	overflow = 1;
       value = value * base + digit;
+      ++string;
+    }
+
+  if (overflow)
+    value = ~ (bfd_vma) 0;
 
-  if (end)
+  if (end != NULL)
     *end = string;
 
   return value;