Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: b351955)
Do not shrink bignum registers.
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Fri, 29 Jan 2010 13:10:49 +0000 (14:10 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Fri, 29 Jan 2010 13:10:49 +0000 (14:10 +0100)
src/c/big.d patch | blob | blame | history

diff --git a/src/c/big.d b/src/c/big.d
index 19187ed..166300f 100644 (file)
--- a/src/c/big.d
+++ b/src/c/big.d
@@ -25,6 +25,7 @@
 void
 _ecl_big_register_free(cl_object x)
 {
+        return;
         /* We only need to free the integer when it gets too large */
         if (x->big.big_dim > 3 * ECL_BIG_REGISTER_SIZE) {
                 mpz_realloc2(x->big.big_num, ECL_BIG_REGISTER_SIZE * GMP_LIMB_BITS);
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)