From 4af8886a4bb8963b15af3b3828d33152281bf9a3 Mon Sep 17 00:00:00 2001
From: Jakob Kaivo <jkk@ung.org>
Date: Sun, 27 Mar 2022 21:03:39 -0400
Subject: remove unused functions normalise(), wff(), and norm1()

---
 big.c | 51 ---------------------------------------------------
 1 file changed, 51 deletions(-)

(limited to 'big.c')

diff --git a/big.c b/big.c
index 255c15c..705610a 100644
--- a/big.c
+++ b/big.c
@@ -991,55 +991,4 @@ word bigtostr8(word x)
   return r;
 }
 
-#ifdef DEBUG
-/* check for well-formation of integer */
-wff(word x)
-{
-  word y = x;
-  if (tag[x] != INT) {
-    printf("BAD TAG %d\n", tag[x]);
-  }
-
-  if (big_is_negative(x) && !digit0(x) && !rest(x)) {
-    printf("NEGATIVE ZERO!\n");
-  }
-
-  if (digit0(x) & (~MAXDIGIT)) {
-    printf("OVERSIZED DIGIT!\n");
-  }
-
-  while (x = rest(x)) {
-    if (tag[x] != INT) {
-      printf("BAD INTERNAL TAG %d\n", tag[x]);
-    } else if (digit(x) & (~MAXDIGIT)) {
-      printf("OVERSIZED DIGIT!\n");
-    } else if (!digit(x) && !rest(x)) {
-      printf("TRAILING ZERO!\n");
-    }
-  }
-
-  return (y);
-}
-
-/* remove trailing zeros */
-normalise(word x)
-{
-  if (rest(x)) {
-    rest(x) = norm1(rest(x));
-  }
-
-  return wff(x);
-}
-
-norm1(word x)
-{
-  if (rest(x)) {
-    rest(x) = norm1(rest(x));
-  }
-
-  return (!digit(x) && !rest(x) ? 0 : x);
-}
-
-#endif
-
 /* END OF MIRANDA INTEGER PACKAGE */
-- 
cgit v1.2.1