first support for restoring blobs.

2011-03-08 00:22:32 +00:00
parent cfc806500d
commit e4275b6361
3 changed files with 19 additions and 1 deletions
--- a/H/rheap.h
+++ b/H/rheap.h
@@ -1574,6 +1574,15 @@ RestoreEntries(PropEntry *pp, int int_key USES_REGS)
      pp->NextOfPE =
 	PropAdjust(pp->NextOfPE);
      break;
+    case BlobProperty:
+      pp->NextOfPE =
+	PropAdjust(pp->NextOfPE);
+      {
+	BlobPropEntry *bpe = (BlobPropEntry *)pp;
+	bpe->blob_t =
+	  BlobTypeAdjust(bpe->blob_t);
+      }
+      break;
    default:
      /* OOPS */
      Yap_Error(SYSTEM_ERROR, TermNil,