fix reinitialization of streams at Restore.

2011-03-28 22:55:28 +01:00
parent 889e146f0d
commit 598452c069
3 changed files with 9 additions and 3 deletions
--- a/packages/PLStream/pl-file.c
+++ b/packages/PLStream/pl-file.c
@@ -328,6 +328,10 @@ initIO()
  const atom_t *np;
  int i;

+#ifdef __YAP_PROLOG__
+  memset(GD, 0, sizeof(gds_t));
+  memset(LD, 0, sizeof(PL_local_data_t));
+#endif
  streamAliases = newHTable(16);
  streamContext = newHTable(16);
  PL_register_blob_type(&stream_blob);