From d3f196d2152aa4c9c9b85ad0fc7c6b7f99e0308b Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Fri, 13 Feb 2015 02:23:22 +0400
Subject: [PATCH] got rid of ecvt outdated function. -- noch

Former-commit-id: 2bd826c965bc05336819c86e672537ffeea7703f
---
 src/lib/v4/x86_64/Reals.Mod               | 10 +++++-----
 voc.REMOVED.git-id                        |  2 +-
 vocstatic.linux.gcc.x86_64.REMOVED.git-id |  2 +-
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/lib/v4/x86_64/Reals.Mod b/src/lib/v4/x86_64/Reals.Mod
index 16fede64..0cf886b9 100644
--- a/src/lib/v4/x86_64/Reals.Mod
+++ b/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);
diff --git a/voc.REMOVED.git-id b/voc.REMOVED.git-id
index 852c4d01..22dc672b 100644
--- a/voc.REMOVED.git-id
+++ b/voc.REMOVED.git-id
@@ -1 +1 @@
-303730978f4aabdae4d0a6ce062e538b6ea76b88
\ No newline at end of file
+a83463f1bd176d0b864cc0a3b180832597048124
\ No newline at end of file
diff --git a/vocstatic.linux.gcc.x86_64.REMOVED.git-id b/vocstatic.linux.gcc.x86_64.REMOVED.git-id
index 852c4d01..22dc672b 100644
--- a/vocstatic.linux.gcc.x86_64.REMOVED.git-id
+++ b/vocstatic.linux.gcc.x86_64.REMOVED.git-id
@@ -1 +1 @@
-303730978f4aabdae4d0a6ce062e538b6ea76b88
\ No newline at end of file
+a83463f1bd176d0b864cc0a3b180832597048124
\ No newline at end of file