1 files changed, 11 insertions, 0 deletions
diff --git a/bignum.c b/bignum.c
index 06228416bf..aba88df04d 100644
--- a/bignum.c
+++ b/bignum.c
@@ -748,6 +748,17 @@ big2ulong(x, type)
 }
 
 unsigned long
+rb_big2ulong_pack(x)   
+    VALUE x;  
+{   
+    unsigned long num = big2ulong(x, "unsigned long", Qfalse);
+    if (!RBIGNUM(x)->sign) {
+	return -num;
+    }
+    return num;
+}  
+
+unsigned long
 rb_big2ulong(x)
     VALUE x;
 {