Blob Blame Raw
--- src/gmpints.c.orig	2016-03-19 16:35:29.000000000 -0600
+++ src/gmpints.c	2016-04-02 07:38:28.517903402 -0600
@@ -377,6 +377,41 @@ Obj ObjInt_UInt( UInt i )
   }
 }
 
+Obj ObjInt_LongLong( long long i )
+{
+  Obj gmp;
+  unsigned long long ull;
+  size_t j;
+
+  if ( (-(1LL<<NR_SMALL_INT_BITS) <= i) && (i < 1LL<<NR_SMALL_INT_BITS ))
+    return INTOBJ_INT((Int) i);
+
+  if ( i >= 0LL ) {
+    gmp = NewBag( T_INTPOS, sizeof(i) );
+    ull = (unsigned long long) i;
+  }
+  else {
+    gmp = NewBag( T_INTNEG, sizeof(i) );
+    ull = (unsigned long long) -i;
+  }
+  for ( j = 0U; j < sizeof(i) / sizeof(TypLimb); j++ )
+    ((TypLimb *)ADDR_OBJ( gmp ))[j] = ull >> (j * sizeof(TypLimb));
+  return GMP_NORMALIZE( gmp );
+}
+
+Obj ObjInt_ULongLong( unsigned long long i )
+{
+  Obj gmp;
+  size_t j;
+
+  if ( i < 1ULL<<NR_SMALL_INT_BITS )
+    return INTOBJ_INT((Int) i);
+  gmp = NewBag( T_INTPOS, sizeof(i) );
+  for ( j = 0U; j < sizeof(i) / sizeof(TypLimb); j++ )
+    ((TypLimb *)ADDR_OBJ( gmp ))[j] = i >> (j * sizeof(TypLimb));
+  return GMP_NORMALIZE( gmp );
+}
+
 
 /****************************************************************************
 **
--- src/gmpints.h.orig	2016-03-19 16:35:29.000000000 -0600
+++ src/gmpints.h	2016-04-02 07:38:28.518903322 -0600
@@ -87,6 +87,21 @@ typedef mp_size_t   TypGMPSize;
 Obj ObjInt_Int(Int i);
 Obj ObjInt_UInt(UInt i);
 
+
+/**************************************************************************
+** The following two functions convert a C long long or unsigned long long
+** respectively into* a GAP integer, either an immediate, small integer if
+** possible or otherwise a new GAP bag with TNUM T_INTPOS or T_INTNEG.
+**
+*F ObjInt_LongLong(long long i)
+*F ObjInt_ULongLong(unsigned long long i)
+**
+****************************************************************************/
+
+Obj ObjInt_LongLong(long long i);
+Obj ObjInt_ULongLong(unsigned long long i);
+
+
 /****************************************************************************
 **
 */
--- src/integer.c.orig	2016-03-19 16:35:29.000000000 -0600
+++ src/integer.c	2016-04-02 07:38:28.520903161 -0600
@@ -216,6 +216,58 @@ Obj ObjInt_UInt(UInt i)
 }
 
 
+/**************************************************************************
+** The following two functions convert a C long long or unsigned long long
+** respectively into a GAP integer, either an immediate, small integer if
+** possible or otherwise a new GAP bag with TNUM T_INTPOS or T_INTNEG.
+**
+*F ObjInt_LongLong(long long i)
+*F ObjInt_ULongLong(unsigned long long i)
+**
+****************************************************************************/
+
+#define NDIGITS_RAW (sizeof (long long) / sizeof (TypDigit))
+#define NDIGITS (NDIGITS_RAW >= 4U ? NDIGITS_RAW : 4U)
+
+Obj ObjInt_LongLong(long long i)
+{
+    Obj n;
+    long long bound = 1LL << NR_SMALL_INT_BITS;
+    if (i >= bound) {
+        /* We have to make a big integer */
+        size_t j;
+        n = NewBag(T_INTPOS, NDIGITS);
+        for ( j = 0U; j < NDIGITS; j++ )
+            ADDR_INT(n)[j] = (TypDigit) (i >> (j * NR_DIGIT_BITS));
+        return n;
+    } else if (-i > bound) {
+        size_t j;
+        n = NewBag(T_INTNEG, NDIGITS);
+        for ( j = 0U; j < NDIGITS; j++ )
+            ADDR_INT(n)[j] = (TypDigit) ((-i) >> (j * NR_DIGIT_BITS));
+        return n;
+    } else {
+        return INTOBJ_INT((Int) i);
+    }
+}
+
+Obj ObjInt_ULongLong(unsigned long long i)
+{
+    Obj n;
+    unsigned long long bound = 1ULL << NR_SMALL_INT_BITS;
+    if (i >= bound) {
+        /* We have to make a big integer */
+        size_t j;
+        n = NewBag(T_INTPOS, NDIGITS);
+        for ( j = 0U; j < NDIGITS; j++ )
+            ADDR_INT(n)[j] = (TypDigit) (i >> (j * NR_DIGIT_BITS));
+        return n;
+    } else {
+        return INTOBJ_INT((Int) i);
+    }
+}
+
+
 
 /****************************************************************************
 **
--- src/integer.h.orig	2016-03-19 16:35:29.000000000 -0600
+++ src/integer.h	2016-04-02 07:38:28.521903081 -0600
@@ -59,6 +59,20 @@ Obj ObjInt_Int(Int i);
 Obj ObjInt_UInt(UInt i);
 
 
+/**************************************************************************
+** The following two functions convert a C long long or unsigned long long
+** respectively into a GAP integer, either an immediate, small integer if
+** possible or otherwise a new GAP bag with TNUM T_INTPOS or T_INTNEG.
+**
+*F ObjInt_LongLong(long long i)
+*F ObjInt_ULongLong(unsigned long long i)
+**
+****************************************************************************/
+
+Obj ObjInt_LongLong(long long i);
+Obj ObjInt_ULongLong(unsigned long long i);
+
+
 /****************************************************************************
 **
 *F  PrintInt( <int> ) . . . . . . . . . . . . . . . print an integer constant