debugger fixes
make sure we always go back to current module, even during initizlization. git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1062 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -388,11 +388,11 @@ TermToSuspendedVar(Term gs, Term var)
|
||||
vs = (sus_tag *)Yap_ReadTimedVar(DelayedVars);
|
||||
if (H0 - (CELL *)vs < 1024)
|
||||
return(FALSE);
|
||||
Yap_UpdateTimedVar(DelayedVars, (CELL)(vs+1));
|
||||
RESET_VARIABLE(&(vs->ActiveSus));
|
||||
vs->sus_id = susp_ext;
|
||||
vs->SG = terms_to_suspended_goals(gs);
|
||||
Yap_unify(var,(CELL)&(vs->ActiveSus));
|
||||
Yap_UpdateTimedVar(DelayedVars, (CELL)(vs+1));
|
||||
return(TRUE);
|
||||
}
|
||||
|
||||
|
Reference in New Issue
Block a user