From 4af8886a4bb8963b15af3b3828d33152281bf9a3 Mon Sep 17 00:00:00 2001 From: Jakob Kaivo 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(-) 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