got rid of ecvt outdated function. -- noch

src/lib/v4/x86_64/Reals.Mod

@@ -2,10 +2,10 @@ MODULE Reals;
   (* JT, 5.2.90 / RC 9.12.91 conversion between reals and strings for HP-700, MB 9.12.91, JT for Ofront, 16.3. 95*)
 
   IMPORT S := SYSTEM;
-
+(*
   PROCEDURE -ecvt (x: LONGREAL; ndigit, decpt, sign: LONGINT): LONGINT
       "(LONGINT)ecvt (x, ndigit, decpt, sign)";
-
+*)
   PROCEDURE Ten*(e: INTEGER): REAL;
     VAR r, power: LONGREAL;
   BEGIN r := 1.0;
@@ -64,7 +64,7 @@ MODULE Reals;
       d[k] := CHR(i MOD 10 + 48); i := i DIV 10; INC(k)
     END
   END Convert;
-(*
+
   PROCEDURE ConvertL*(x: LONGREAL; n: INTEGER; VAR d: ARRAY OF CHAR);
     VAR i, k: LONGINT;
   BEGIN
@@ -73,7 +73,7 @@ MODULE Reals;
       d[k] := CHR(i MOD 10 + 48); i := i DIV 10; INC(k)
     END
   END ConvertL;
- *)
+(*
   PROCEDURE ConvertL*(x: LONGREAL; n: INTEGER; VAR d: ARRAY OF CHAR);
     VAR decpt, sign, i: LONGINT; buf: LONGINT;
   BEGIN
@@ -84,7 +84,7 @@ MODULE Reals;
     i := n - i - 1;
     WHILE i >= 0 DO d[i] := "0"; DEC(i) END ;
   END ConvertL;
-
+*)
   PROCEDURE Unpack(VAR b, d: ARRAY OF S.BYTE);
     VAR i, k: SHORTINT; len: LONGINT;
   BEGIN i := 0; len := LEN(b);