dividend 938 src/bignum.c static ScmBignum *bignum_gdiv(ScmBignum *dividend, ScmBignum *divisor, dividend 962 src/bignum.c u = make_bignum(dividend->size + 1); /*will be returned as a remainder */ dividend 967 src/bignum.c m = dividend->size*2 - n; dividend 970 src/bignum.c m = dividend->size*2 - n; dividend 972 src/bignum.c bignum_lshift(u, dividend, d); dividend 1038 src/bignum.c static u_long bignum_sdiv(ScmBignum *dividend, u_long divisor) dividend 1040 src/bignum.c int n = dividend->size - 1; dividend 1041 src/bignum.c u_long *pu = dividend->values; dividend 1059 src/bignum.c ScmObj Scm_BignumDivSI(ScmBignum *dividend, long divisor, long *remainder) dividend 1067 src/bignum.c q = SCM_BIGNUM(Scm_BignumCopy(dividend)); dividend 1072 src/bignum.c q = make_bignum(dividend->size + 1); dividend 1073 src/bignum.c br = bignum_gdiv(dividend, bv, q); dividend 1076 src/bignum.c if (remainder) *remainder = (dividend->sign < 0)? -rr : rr; dividend 1077 src/bignum.c q->sign = dividend->sign * d_sign; dividend 1083 src/bignum.c ScmObj Scm_BignumDivRem(ScmBignum *dividend, ScmBignum *divisor) dividend 1088 src/bignum.c if (Scm_BignumAbsCmp(dividend, divisor) < 0) { dividend 1089 src/bignum.c return Scm_Cons(SCM_MAKE_INT(0), SCM_OBJ(dividend)); dividend 1092 src/bignum.c q = make_bignum(dividend->size - divisor->size + 1); dividend 1093 src/bignum.c r = bignum_gdiv(dividend, divisor, q); dividend 1094 src/bignum.c q->sign = dividend->sign * divisor->sign; dividend 1095 src/bignum.c r->sign = dividend->sign;