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

fix problem with catching handling.

Browse Source
This commit is contained in:
Vítor Santos Costa 2012-04-15 00:01:02 +01:00
parent 683377b520
commit 34ccb95dd3
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/qlyr.c
View File

@ -993,6 +993,15 @@ p_read_module_preds( USES_REGS1 )
return TRUE; return TRUE;
} }
static void
ReInitCatch(void)
{
Term t = Yap_MkNewApplTerm(PredHandleThrow->FunctorOfPred, PredHandleThrow->ArityOfPE);
YAP_RunGoalOnce(t);
}
static Int static Int
p_read_program( USES_REGS1 ) p_read_program( USES_REGS1 )
{ {
@ -1016,7 +1025,7 @@ p_read_program( USES_REGS1 )
Sclose( stream ); Sclose( stream );
/* back to the top level we go */ /* back to the top level we go */
Yap_CloseSlots(PASS_REGS1); Yap_CloseSlots(PASS_REGS1);
ReInitCatch();
Yap_RestartYap( 3 ); Yap_RestartYap( 3 );
return TRUE; return TRUE;
} }
@ -1030,6 +1039,7 @@ Yap_Restore(char *s, char *lib_dir)
return -1; return -1;
read_module(stream); read_module(stream);
Sclose( stream ); Sclose( stream );
ReInitCatch();
return DO_ONLY_CODE; return DO_ONLY_CODE;
} }