diff options
-rw-r--r-- | big.c | 12 | ||||
-rw-r--r-- | big.h | 2 | ||||
-rw-r--r-- | reduce.c | 4 |
3 files changed, 9 insertions, 9 deletions
@@ -188,7 +188,7 @@ static struct big_div big__longdiv(word x, word y) } else if (lx == ly) { if (big_compare(x, y) >= 0) { - x = bigsub(x, y); + x = big_subtract(x, y); d = 1; } else { d = 0; @@ -201,15 +201,15 @@ static struct big_div big__longdiv(word x, word y) } if ((d -= 2) > 0) { - x = bigsub(x, big__stimes(y, d)); + x = big_subtract(x, big__stimes(y, d)); } else { d = 0; } if (big_compare(x, y) >= 0) { - x = bigsub(x, y), d++; + x = big_subtract(x, y), d++; if (big_compare(x, y) >= 0) { - x = bigsub(x, y); + x = big_subtract(x, y); d++; } } @@ -446,7 +446,7 @@ word big_add(word x, word y) } -word bigsub(word x, word y) +word big_subtract(word x, word y) { if (big_is_positive(x)) { if (big_is_positive(y)) { @@ -582,7 +582,7 @@ word big_remainder(word x, word y) if (s2) { if (!bigzero(bd.rem)) { - bd.rem = bigsub(y, bd.rem); + bd.rem = big_subtract(y, bd.rem); } } @@ -36,7 +36,7 @@ word big_add(word,word); word big_pow(word,word); word bigscan(char *); void bigsetup(void); -word bigsub(word,word); +word big_subtract(word,word); word bigtimes(word,word); word bigtostr(word); word bigtostr8(word); @@ -531,7 +531,7 @@ word e; upleft; lastarg= reduce(lastarg); /* ### */ if(tag[lastarg]==INT) - { hold = bigsub(lastarg,arg1); + { hold = big_subtract(lastarg,arg1); if(big_is_positive(hold))hd[e]=arg2,tl[e]=hold; else hd[e]=I,e=tl[e]=FAIL; } else hd[e]=I,e=tl[e]=FAIL; @@ -2056,7 +2056,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(bigsub(arg1,lastarg)); + else simpl(big_subtract(arg1,lastarg)); goto DONE; case READY(TIMES): |