diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix incompatibilities with string patch

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/write.c
View File

@ -197,8 +197,8 @@ write_mpint(MP_INT *big, wrf writewch) {
static void static void
writebig(Term t, int p, int depth, int rinfixarg, struct write_globs *wglb, struct rewind_term *rwt) 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; CELL *pt = RepAppl(t)+1;
#ifdef USE_GMP
if (pt[0] == BIG_INT) if (pt[0] == BIG_INT)
{ {
MP_INT *big = Yap_BigIntOfTerm(t); MP_INT *big = Yap_BigIntOfTerm(t);

2
H/Yap.h
View File

@ -328,6 +328,8 @@ typedef unsigned char *CODEADDR;
#define CellSize sizeof(CELL) #define CellSize sizeof(CELL)
#define SmallSize sizeof(SMALLUNSGN) #define SmallSize sizeof(SMALLUNSGN)
#define ALIGN_YAPTYPE(X,TYPE) (((CELL)(X)+(sizeof(TYPE)-1)) & ~(sizeof(TYPE)-1))
/************************************************************************************************* /*************************************************************************************************
type casting macros type casting macros
*************************************************************************************************/ *************************************************************************************************/

2
H/alloc.h
View File

@ -74,8 +74,6 @@ typedef struct FREEB {
#define AdjustSize(X) ((X+YAP_ALIGN) & YAP_ALIGNMASK) #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 */ /* SIZE should be a power of 2 */
#define ALIGN_SIZE(X,SIZE) (((CELL)(X)+((SIZE)-1)) & ~((SIZE)-1)) #define ALIGN_SIZE(X,SIZE) (((CELL)(X)+((SIZE)-1)) & ~((SIZE)-1))