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

fix bug in all_calls

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2157 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2008-03-22 23:35:00 +00:00
parent 18568bd46f
commit ba2023436a
3 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/c_interface.c
View File

@ -10,8 +10,11 @@
* File: c_interface.c * * File: c_interface.c *
* comments: c_interface primitives definition * * comments: c_interface primitives definition *
* * * *
* Last rev: $Date: 2008-03-13 18:41:50 $,$Author: vsc $ * * Last rev: $Date: 2008-03-22 23:35:00 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.107 2008/03/13 18:41:50 vsc
* -q flag
*
* Revision 1.106 2008/02/12 17:03:50 vsc * Revision 1.106 2008/02/12 17:03:50 vsc
* SWI-portability changes * SWI-portability changes
* *
@ -1746,7 +1749,7 @@ YAP_Init(YAP_init_args *yap_init)
#endif /* YAPOR */ #endif /* YAPOR */
#endif /* YAPOR || TABLING */ #endif /* YAPOR || TABLING */
RECOVER_MACHINE_REGS(); RECOVER_MACHINE_REGS();
} }
if (yap_init->YapPrologRCFile) { if (yap_init->YapPrologRCFile) {
Yap_PutValue(Yap_FullLookupAtom("$consult_on_boot"), MkAtomTerm(Yap_LookupAtom(yap_init->YapPrologRCFile))); Yap_PutValue(Yap_FullLookupAtom("$consult_on_boot"), MkAtomTerm(Yap_LookupAtom(yap_init->YapPrologRCFile)));
/* /*

8
C/cdmgr.c
View File

@ -11,8 +11,12 @@
* File: cdmgr.c * * File: cdmgr.c *
* comments: Code manager * * comments: Code manager *
* * * *
* Last rev: $Date: 2008-03-17 18:31:16 $,$Author: vsc $ * * Last rev: $Date: 2008-03-22 23:35:00 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.220 2008/03/17 18:31:16 vsc
* fix breakage in module system
* disable stack writing in error for now
*
* Revision 1.219 2008/02/22 15:08:33 vsc * Revision 1.219 2008/02/22 15:08:33 vsc
* Big update to support more SICStus/SWI like message handling * Big update to support more SICStus/SWI like message handling
* fix YAPSHAREDIR * fix YAPSHAREDIR
@ -3339,7 +3343,7 @@ all_cps(choiceptr b_ptr)
static Term static Term
all_calls(void) all_calls(void)
{ {
Term ts[3]; Term ts[4];
Functor f = Yap_MkFunctor(AtomLocal,4); Functor f = Yap_MkFunctor(AtomLocal,4);
ts[0] = MkIntegerTerm((Int)P); ts[0] = MkIntegerTerm((Int)P);

2
C/save.c
View File

@ -1706,8 +1706,8 @@ Restore(char *s, char *lib_dir)
int restore_mode; int restore_mode;
OPCODE old_ops[_std_top+1]; OPCODE old_ops[_std_top+1];
CELL MyTrail, MyStack, MyHeap, MyState; CELL MyTrail, MyStack, MyHeap, MyState;
if ((restore_mode = OpenRestore(s, lib_dir, &MyState, &MyTrail, &MyStack, &MyHeap)) == FAIL_RESTORE) if ((restore_mode = OpenRestore(s, lib_dir, &MyState, &MyTrail, &MyStack, &MyHeap)) == FAIL_RESTORE)
return(FALSE); return(FALSE);
Yap_ShutdownLoadForeign(); Yap_ShutdownLoadForeign();