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

save should set slots.

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-11-25 16:33:25 +00:00
parent 576d37510c
commit 969dcfa98c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/save.c
View File

@ -608,6 +608,8 @@ do_save(int mode) {
static Int static Int
p_save(void) p_save(void)
{ {
Int res;
#if defined(YAPOR) && !defined(THREADS) #if defined(YAPOR) && !defined(THREADS)
if (number_workers != 1) { if (number_workers != 1) {
Yap_Error(SYSTEM_ERROR,TermNil,"cannot perform save: more than a worker/thread running"); Yap_Error(SYSTEM_ERROR,TermNil,"cannot perform save: more than a worker/thread running");
@ -620,7 +622,10 @@ p_save(void)
} }
#endif #endif
which_save = 1; which_save = 1;
return(do_save(DO_EVERYTHING)); Yap_StartSlots();
res = do_save(DO_EVERYTHING);
Yap_CloseSlots();
return res;
} }
/* Saves a complete prolog environment */ /* Saves a complete prolog environment */