fix incompatibilities with string patch

This commit is contained in:
Ricardo Rocha 2011-06-21 16:53:17 +01:00
parent f2072e14b3
commit e1fdbd7537
3 changed files with 3 additions and 3 deletions

View File

@ -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);

View File

@ -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
*************************************************************************************************/

View File

@ -74,8 +74,6 @@ typedef struct FREEB {
#define AdjustSize(X) ((X+YAP_ALIGN) & YAP_ALIGNMASK)
#define ALIGN_YAPTYPE(X,TYPE) (((CELL)(X)+(sizeof(TYPE)-1)) & ~(sizeof(TYPE)-1))
/* SIZE should be a power of 2 */
#define ALIGN_SIZE(X,SIZE) (((CELL)(X)+((SIZE)-1)) & ~((SIZE)-1))