words[4] = (LITTLENUM_TYPE) -1;
   words[5] = (LITTLENUM_TYPE) -1;
 }
-\f
-/* Warning: This returns 16-bit LITTLENUMs.  It is up to the caller to
-   figure out any alignment problems and to conspire for the
-   bytes/word to be emitted in the right order.  Bigendians beware!  */
 
-/* Note that atof-ieee always has X and P precisions enabled.  it is up
-   to md_atof to filter them out if the target machine does not support
-   them.  */
+/* Build a floating point constant at str into a IEEE floating
+   point number.  This function does the same thing as atof_ieee
+   however it allows more control over the exact format, i.e.
+   explicitly specifying the precision and number of exponent bits
+   instead of relying on this infomation being deduced from a given type.
 
-/* Returns pointer past text consumed.  */
+   If generic_float_info is not NULL then it will be set to contain generic
+   infomation about the parsed floating point number.
 
+   Returns pointer past text consumed. */
 char *
-atof_ieee (char *str,                  /* Text to convert to binary.  */
-          int what_kind,               /* 'd', 'f', 'x', 'p'.  */
-          LITTLENUM_TYPE *words)       /* Build the binary here.  */
+atof_ieee_detail (char * str,
+                 int precision,
+                 int exponent_bits,
+                 LITTLENUM_TYPE * words,
+                 FLONUM_TYPE * generic_float_info)
 {
   /* Extra bits for zeroed low-order bits.
      The 1st MAX_PRECISION are zeroed, the last contain flonum bits.  */
   static LITTLENUM_TYPE bits[MAX_PRECISION + MAX_PRECISION + GUARD];
   char *return_value;
+
   /* Number of 16-bit words in the format.  */
-  int precision;
-  long exponent_bits;
   FLONUM_TYPE save_gen_flonum;
 
   /* We have to save the generic_floating_point_number because it
 
   memset (bits, '\0', sizeof (LITTLENUM_TYPE) * MAX_PRECISION);
 
+  generic_floating_point_number.high
+    = generic_floating_point_number.low + precision - 1 + GUARD;
+
+  if (atof_generic (&return_value, ".", EXP_CHARS,
+                   &generic_floating_point_number))
+    {
+      make_invalid_floating_point_number (words);
+      return NULL;
+    }
+
+  if (generic_float_info)
+    *generic_float_info = generic_floating_point_number;
+
+  gen_to_words (words, precision, exponent_bits);
+
+  /* Restore the generic_floating_point_number's storage alloc (and
+     everything else).  */
+  generic_floating_point_number = save_gen_flonum;
+
+  return return_value;
+}
+
+/* Warning: This returns 16-bit LITTLENUMs.  It is up to the caller to
+   figure out any alignment problems and to conspire for the
+   bytes/word to be emitted in the right order.  Bigendians beware!  */
+
+/* Note that atof-ieee always has X and P precisions enabled.  it is up
+   to md_atof to filter them out if the target machine does not support
+   them.  */
+
+/* Returns pointer past text consumed.  */
+char *
+atof_ieee (char *str,                  /* Text to convert to binary.  */
+          int what_kind,               /* 'd', 'f', 'x', 'p'.  */
+          LITTLENUM_TYPE *words)       /* Build the binary here.  */
+{
+  int precision;
+  long exponent_bits;
+
   switch (what_kind)
     {
     case 'h':
       return (NULL);
     }
 
-  generic_floating_point_number.high
-    = generic_floating_point_number.low + precision - 1 + GUARD;
-
-  if (atof_generic (&return_value, ".", EXP_CHARS,
-                   &generic_floating_point_number))
-    {
-      make_invalid_floating_point_number (words);
-      return NULL;
-    }
-  gen_to_words (words, precision, exponent_bits);
-
-  /* Restore the generic_floating_point_number's storage alloc (and
-     everything else).  */
-  generic_floating_point_number = save_gen_flonum;
-
-  return return_value;
+  return atof_ieee_detail (str, precision, exponent_bits, words, NULL);
 }
 
 /* Turn generic_floating_point_number into a real float/double/extended.  */