remove unused functions from lm_float80

Author: LdBeth

cutil/lm_float.c

@@ -142,8 +142,9 @@ value float80_of_string(value s) {
 
    /* Load the string value. */
    buffer = String_val(s);
-#if 0
-   /* BUG: Looks like strtold does not work: glibc-2.2.2, Aug 31, 2001 --jyh */
+#if 1
+   /* Looks like strtold does not work: glibc-2.2.2, Aug 31, 2001 --jyh */
+   /* XXX: LDB: this should no more a problem since 2020 */
    val = strtold(buffer, NULL);
 #else
    val = strtod(buffer, NULL);
@@ -337,10 +338,11 @@ value float80_atan2(value f1, value f2) {
 }
 
 /*
- * BUG: these are hopefullu temporary.
+ * XXX: these are hopefullu temporary.
  * Use them for assembling floats.
  * Error handling is performed at the C level.
  */
+#if 0
 value c_blit_float32(value x_val, value buf_val, value off_val)
 {
     unsigned char *buf;
@@ -383,3 +385,4 @@ value c_blit_float80(value x_val, value buf_val, value off_val)
     memcpy(buf + off, &x, 10);
     return Val_unit;
 }
+#endif

util/lm_float80.ml

@@ -68,6 +68,7 @@ let min x y    = if compare x y < 0 then x else y
 let max x y    = if compare x y > 0 then x else y
 
 (* Check buffer bounds *)
+(* unused
 external c_blit_float32 : float80 -> bytes -> int -> unit = "c_blit_float32"
 external c_blit_float64 : float80 -> bytes -> int -> unit = "c_blit_float64"
 external c_blit_float80 : float80 -> bytes -> int -> unit = "c_blit_float80"
@@ -89,3 +90,4 @@ let blit_float80 x buf off =
       if off + 10 > len then
          raise (Invalid_argument "blit_float80");
       c_blit_float80 x buf off
+*)

util/lm_float80.mli

@@ -65,9 +65,10 @@ val      min     : float80 -> float80 -> float80
 val      max     : float80 -> float80 -> float80
 
 (*
- * BUG: these are hopefully temporary.
+ * these are hopefully temporary.
  * We use them to blit the float into a buffer area.
- *)
+
 val blit_float32 : float80 -> bytes -> int -> unit
 val blit_float64 : float80 -> bytes -> int -> unit
 val blit_float80 : float80 -> bytes -> int -> unit
+*)