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

VM: reallot_array already data_roots the array, so callers don't need to 

do it too
db4
Björn Lindqvist 2014-06-13 16:35:37 +02:00 committed by John Benediktsson
parent 7d95fb8172
commit e862f70a16
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
vm/bignum.cpp
View File

@ -1233,19 +1233,13 @@ bignum* factor_vm::allot_bignum_zeroed(bignum_length_type length,
return (result); return (result);
} }
/* can allocate if not in nursery or size is larger */
/* Allocates memory conditionally */
#define BIGNUM_REDUCE_LENGTH(source, length) \
source = reallot_array(source, length + 1)
/* Allocates memory */ /* Allocates memory */
bignum* factor_vm::bignum_shorten_length(bignum* bn, bignum* factor_vm::bignum_shorten_length(bignum* bn,
bignum_length_type length) { bignum_length_type length) {
bignum_length_type current_length = (BIGNUM_LENGTH(bn)); bignum_length_type current_length = (BIGNUM_LENGTH(bn));
BIGNUM_ASSERT((length >= 0) || (length <= current_length)); BIGNUM_ASSERT((length >= 0) || (length <= current_length));
if (length < current_length) { if (length < current_length) {
GC_BIGNUM(bn); bn = reallot_array(bn, length + 1);
BIGNUM_REDUCE_LENGTH(bn, length);
BIGNUM_SET_NEGATIVE_P(bn, (length != 0) && (BIGNUM_NEGATIVE_P(bn))); BIGNUM_SET_NEGATIVE_P(bn, (length != 0) && (BIGNUM_NEGATIVE_P(bn)));
} }
return (bn); return (bn);
@ -1260,9 +1254,8 @@ bignum* factor_vm::bignum_trim(bignum* bn) {
; ;
scan += 1; scan += 1;
if (scan < end) { if (scan < end) {
GC_BIGNUM(bn);
bignum_length_type length = (scan - start); bignum_length_type length = (scan - start);
BIGNUM_REDUCE_LENGTH(bn, length); bn = reallot_array(bn, length + 1);
BIGNUM_SET_NEGATIVE_P(bn, (length != 0) && (BIGNUM_NEGATIVE_P(bn))); BIGNUM_SET_NEGATIVE_P(bn, (length != 0) && (BIGNUM_NEGATIVE_P(bn)));
} }
return (bn); return (bn);