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

fix BLOB operations and get rid of warning

This commit is contained in:
Vitor Santos Costa 2009-03-14 10:06:55 +00:00
parent 4ab17198b7
commit 5ef03f2d0f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/c_interface.c
View File

@ -509,7 +509,8 @@ X_API Term STD_PROTO(YAP_OpenList,(int));
X_API Term STD_PROTO(YAP_ExtendList,(Term, Term));
X_API int STD_PROTO(YAP_CloseList,(Term, Term));
X_API int STD_PROTO(YAP_IsAttVar,(Term));
X_API Term STD_PROTO(YAP_AttsOfVar,(Term));
X_API Term STD_PROTO(YAP_AttsOfVar,(Term));
X_API Term STD_PROTO(YAP_TermHash,(Term));
static int (*do_getf)(void);
@ -694,7 +695,7 @@ YAP_MkBlobTerm(unsigned int sz)
dst = (MP_INT *)(H+2);
dst->_mp_size = 0L;
dst->_mp_alloc = sz;
H += (1+sizeof(MP_INT)/sizeof(CELL));
H += (2+sizeof(MP_INT)/sizeof(CELL));
H[sz] = EndSpecials;
H += sz+1;
RECOVER_H();
@ -711,7 +712,7 @@ YAP_BlobOfTerm(Term t)
return NULL;
if (!IsBigIntTerm(t))
return NULL;
src = (MP_INT *)(RepAppl(t)+1);
src = (MP_INT *)(RepAppl(t)+2);
return (void *)(src+1);
}