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