diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix restore of streams.

This commit is contained in:
ubu32 2011-07-11 21:15:15 -07:00
parent 4a13735cb0
commit 2a51403518
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/PLStream/pl-file.c
View File

@ -329,11 +329,14 @@ initIO()
int i;
#ifdef __YAP_PROLOG__
IOFUNCTIONS buf;
buf = GD->os.iofunctions;
volatile IOFUNCTIONS buf;
buf = *Sinput->functions;
memset(GD, 0, sizeof(gds_t));
GD->os.iofunctions = buf;
memset(LD, 0, sizeof(PL_local_data_t));
GD->os.iofunctions = buf;
Sinput->functions = &GD->os.iofunctions;
Soutput->functions = &GD->os.iofunctions;
Serror->functions = &GD->os.iofunctions;
#endif
streamAliases = newHTable(16);
streamContext = newHTable(16);