akr	2013-06-22 21:48:45 +0900 (Sat, 22 Jun 2013)

  New Revision: 41569

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=41569

  Log:
    * bignum.c (rb_integer_unpack): Don't allocate a Bignum if possible.

  Modified files:
    trunk/ChangeLog
    trunk/bignum.c

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 41568)
+++ ChangeLog	(revision 41569)
@@ -1,3 +1,7 @@ https://github.com/ruby/ruby/blob/trunk/ChangeLog#L1
+Sat Jun 22 21:46:18 2013  Tanaka Akira  <akr@f...>
+
+	* bignum.c (rb_integer_unpack): Don't allocate a Bignum if possible.
+
 Sat Jun 22 21:03:58 2013  Tanaka Akira  <akr@f...>
 
 	* pack.c (pack_unpack): Remove specialized unpackers for integers.
Index: bignum.c
===================================================================
--- bignum.c	(revision 41568)
+++ bignum.c	(revision 41569)
@@ -1787,6 +1787,7 @@ rb_integer_unpack(const void *words, siz https://github.com/ruby/ruby/blob/trunk/bignum.c#L1787
     int sign;
     int nlp_bits;
     BDIGIT *ds;
+    BDIGIT fixbuf[2] = { 0, 0 };
 
     validate_integer_pack_format(numwords, wordsize, nails, flags,
             INTEGER_PACK_MSWORD_FIRST|
@@ -1803,14 +1804,44 @@ rb_integer_unpack(const void *words, siz https://github.com/ruby/ruby/blob/trunk/bignum.c#L1804
 
     if (LONG_MAX-1 < num_bdigits)
         rb_raise(rb_eArgError, "too big to unpack as an integer");
-    val = bignew((long)num_bdigits, 0);
-    ds = BDIGITS(val);
+    if (num_bdigits <= numberof(fixbuf) && !(flags & INTEGER_PACK_FORCE_BIGNUM)) {
+        val = Qfalse;
+        ds = fixbuf;
+    }
+    else {
+        val = bignew((long)num_bdigits, 0);
+        ds = BDIGITS(val);
+    }
     sign = bary_unpack_internal(ds, num_bdigits, words, numwords, wordsize, nails, flags, nlp_bits);
 
     if (sign == -2) {
-        rb_big_resize(val, (long)num_bdigits+1);
-        BDIGITS(val)[num_bdigits] = 1;
+        if (val) {
+            rb_big_resize(val, (long)num_bdigits+1);
+            BDIGITS(val)[num_bdigits] = 1;
+        }
+        else if (num_bdigits == numberof(fixbuf)) {
+            val = bignew((long)num_bdigits+1, 0);
+	    MEMCPY(BDIGITS(val), fixbuf, BDIGIT, num_bdigits);
+            BDIGITS(val)[num_bdigits++] = 1;
+        }
+        else {
+            ds[num_bdigits++] = 1;
+        }
     }
+
+    if (!val) {
+        BDIGIT_DBL u = fixbuf[0] + BIGUP(fixbuf[1]);
+        if (u == 0)
+            return LONG2FIX(0);
+	if (0 < sign && POSFIXABLE(u))
+            return LONG2FIX(u);
+	if (sign < 0 && (fixbuf[1] >> (BITSPERDIG-1)) == 0 &&
+                NEGFIXABLE(-(BDIGIT_DBL_SIGNED)u))
+            return LONG2FIX(-(BDIGIT_DBL_SIGNED)u);
+        val = bignew((long)num_bdigits, 0 <= sign);
+        MEMCPY(BDIGITS(val), fixbuf, BDIGIT, num_bdigits);
+    }
+
     if ((flags & INTEGER_PACK_FORCE_BIGNUM) && sign != 0 &&
         bary_zero_p(BDIGITS(val), RBIGNUM_LEN(val)))
         sign = 0;

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/