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

more fixes for !

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1116 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-08-16 21:02:04 +00:00
parent dc6a6f6bd2
commit 15b122b2c9
5 changed files with 86 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
C/exec.c
View File

@@ -1183,7 +1183,7 @@ Yap_execute_goal(Term t, int nargs, Term mod)
CP = saved_cp;
P = saved_p;
ASP = ENV;
*--ASP = MkIntTerm(0);
Yap_StartSlots();
#ifdef DEPTH_LIMIT
DEPTH= ENV[E_DEPTH];
#endif
@@ -1517,7 +1517,7 @@ Yap_InitYaamRegs(void)
UNLOCK(SignalLock);
EX = 0L;
/* for slots to work */
*--ASP = MkIntTerm(0);
Yap_StartSlots();
#if COROUTINING
RESET_VARIABLE((CELL *)Yap_GlobalBase);
DelayedVars = Yap_NewTimedVar((CELL)Yap_GlobalBase);