fix 32 bit atoms to ensure alignment at 8 bytes (broken with blobs).

2010-12-02 11:49:58 +00:00
parent 514758e65b
commit b02507ed22
3 changed files with 9 additions and 6 deletions
--- a/library/dialect/swi/fli/blobs.c
+++ b/library/dialect/swi/fli/blobs.c
@@ -85,11 +85,11 @@ PL_blob_data(atom_t a, size_t *len, struct PL_blob_t **type)
      return x->StrOfAE;
  }
  if ( len )
-    *len = x->rep.blob.length;
+    *len = x->rep.blob[0].length;
  if ( type )
    *type = RepBlobProp(x->PropsOfAE)->blob_t;

-  return x->rep.blob.data;
+  return x->rep.blob[0].data;
 }

 PL_EXPORT(void)