From 5ef03f2d0fa39ff0f94be2f0101da52ca9253560 Mon Sep 17 00:00:00 2001 From: Vitor Santos Costa Date: Sat, 14 Mar 2009 10:06:55 +0000 Subject: [PATCH] fix BLOB operations and get rid of warning --- C/c_interface.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/C/c_interface.c b/C/c_interface.c index c808839ec..01c12cc81 100644 --- a/C/c_interface.c +++ b/C/c_interface.c @@ -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); }