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

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

5
C/c_interface.c
View File

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