--- 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<

+    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<

+    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