From fe7cdece38c588a4481a24e67a89fda07cd2e53a Mon Sep 17 00:00:00 2001
From: Jakob Kaivo <jkk@ung.org>
Date: Mon, 28 Mar 2022 13:43:54 -0400
Subject: remove unused functions

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

(limited to 'big.c')

diff --git a/big.c b/big.c
index 7b58a2f..1b276e2 100644
--- a/big.c
+++ b/big.c
@@ -786,53 +786,3 @@ word x;
     r = cons('-', r);
   return (r);
 }
-
-#ifdef DEBUG
-wff(x)				/* check for well-formation of integer */
-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);
-}
-
-normalise(x)			/* remove trailing zeros */
-word x;
-{
-  if (rest(x))
-    rest(x) = norm1(rest(x));
-  return (wff(x));
-}
-
-norm1(x)
-word x;
-{
-  if (rest(x))
-    rest(x) = norm1(rest(x));
-  return (!digit(x) && !rest(x) ? 0 : x);
-}
-
-#endif
-
-/* stall(s)
-char *s;
-{ fprintf(stderr,"big integer %s not yet implemented\n",s);
-  exit(0);
-}
-
-#define destrev(x,y,z)  while(x)z=x,x=rest(x),rest(z)=y,y=z;
-/* destructively reverse x into y using z as temp */
-
-/* END OF MIRANDA INTEGER PACKAGE */
-- 
cgit v1.2.1