steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vm: don't ctx-pop() in bignum_divmod.

db4
John Benediktsson 2013-03-22 08:26:01 -07:00
parent 9c025abc67
commit 49a7d37dcd
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
vm/math.cpp
View File

@ -140,11 +140,14 @@ void factor_vm::primitive_bignum_divint()
void factor_vm::primitive_bignum_divmod()
{
cell *s0 = (cell *)(ctx->datastack);
cell *s1 = (cell *)(ctx->datastack - sizeof(cell));
bignum *y = untag<bignum>(*s0);
bignum *x = untag<bignum>(*s1);
bignum *q, *r;
POP_BIGNUMS(x,y);
bignum_divide(x,y,&q,&r);
ctx->replace(tag<bignum>(q));
ctx->push(tag<bignum>(r));
bignum_divide(x, y, &q, &r);
*s1 = tag<bignum>(q);
*s0 = tag<bignum>(r);
}
void factor_vm::primitive_bignum_mod()