fix incompatibilities with string patch
This commit is contained in:
parent
f2072e14b3
commit
e1fdbd7537
@ -197,8 +197,8 @@ write_mpint(MP_INT *big, wrf writewch) {
|
||||
static void
|
||||
writebig(Term t, int p, int depth, int rinfixarg, struct write_globs *wglb, struct rewind_term *rwt)
|
||||
{
|
||||
#ifdef USE_GMP
|
||||
CELL *pt = RepAppl(t)+1;
|
||||
#ifdef USE_GMP
|
||||
if (pt[0] == BIG_INT)
|
||||
{
|
||||
MP_INT *big = Yap_BigIntOfTerm(t);
|
||||
|
2
H/Yap.h
2
H/Yap.h
@ -328,6 +328,8 @@ typedef unsigned char *CODEADDR;
|
||||
#define CellSize sizeof(CELL)
|
||||
#define SmallSize sizeof(SMALLUNSGN)
|
||||
|
||||
#define ALIGN_YAPTYPE(X,TYPE) (((CELL)(X)+(sizeof(TYPE)-1)) & ~(sizeof(TYPE)-1))
|
||||
|
||||
/*************************************************************************************************
|
||||
type casting macros
|
||||
*************************************************************************************************/
|
||||
|
Reference in New Issue
Block a user