use SWI user_*.

2011-02-13 01:03:08 +00:00
parent 0d0a95ae8a
commit 80f190bc8a
10 changed files with 21 additions and 197 deletions
--- a/library/dialect/swi/fli/blobs.c
+++ b/library/dialect/swi/fli/blobs.c
@@ -73,7 +73,7 @@ lookupBlob(void *blob, size_t len, PL_blob_t *type)
  b->NextOfPE = NIL;
  b->KindOfPE = BlobProperty;
  b->blob_t = type;
-  ae = (AtomEntry *)Yap_AllocCodeSpace(sizeof(AtomEntry)+len);
+  ae = (AtomEntry *)Yap_AllocCodeSpace(sizeof(AtomEntry)+len+sizeof(size_t));
  if (!ae)
    return NULL;
  INIT_RWLOCK(ae->ARWLock);