From 84695a80b3704b18568d159f150f8435b8646114 Mon Sep 17 00:00:00 2001 From: Jakob Kaivo Date: Mon, 28 Mar 2022 16:35:55 -0400 Subject: rename bigplus() to big_add() --- big.c | 4 ++-- big.h | 2 +- reduce.c | 4 ++-- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/big.c b/big.c index 3d7f84b..06b7e57 100644 --- a/big.c +++ b/big.c @@ -429,7 +429,7 @@ word big_negate(word x) return make(INT, SIGNBIT | hd[x], tl[x]); } -word bigplus(word x, word y) +word big_add(word x, word y) { if (big_is_positive(x)) { if (big_is_positive(y)) { @@ -513,7 +513,7 @@ word bigtimes(word x, word y) word s = big_is_negative(y); for (word n = 0, d = digit0(y); y; n++, d = digit(y)) { if (d) { - r = bigplus(r, big__shift(n, big__stimes(x, d))); + r = big_add(r, big__shift(n, big__stimes(x, d))); } y = rest(y); diff --git a/big.h b/big.h index d0a1495..6a98f12 100644 --- a/big.h +++ b/big.h @@ -32,7 +32,7 @@ word big_divide(word, word); word big_remainder(word,word); word big_negate(word); word bigoscan(char *,char *); -word bigplus(word,word); +word big_add(word,word); word bigpow(word,word); word bigscan(char *); void bigsetup(void); diff --git a/reduce.c b/reduce.c index a75f0a4..b5e7284 100644 --- a/reduce.c +++ b/reduce.c @@ -2045,7 +2045,7 @@ L3: if(arg1==NIL)lexfail(lastarg); setdbl(e,get_dbl(arg1)+force_dbl(lastarg)); else if(tag[lastarg]==DOUBLE) setdbl(e,big_tod(arg1)+get_dbl(lastarg)); - else simpl(bigplus(arg1,lastarg)); + else simpl(big_add(arg1,lastarg)); goto DONE; case READY(MINUS): @@ -2275,7 +2275,7 @@ word x,y; return(sto_dbl(get_dbl(x)+force_dbl(y))); if(tag[y]==DOUBLE) return(sto_dbl(big_tod(x)+get_dbl(y))); - return(bigplus(x,y)); + return(big_add(x,y)); } void fn_error(s) -- cgit v1.2.1