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

fix for older compilers that do not support declaration of vars

Browse Source 
in the middle of the function code.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1347 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rslopes 2005-07-19 17:12:18 +00:00
parent 3cb65ee103
commit 3ec000378a
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
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: 2005-05-31 00:23:47 $,$Author: ricroc $ * * Last rev: $Date: 2005-07-19 17:12:18 $,$Author: rslopes $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.68 2005/05/31 00:23:47 ricroc
* remove abort_yapor function
*
* Revision 1.67 2005/04/10 04:35:19 vsc * Revision 1.67 2005/04/10 04:35:19 vsc
* AllocMemoryFromYap should now handle large requests the right way. * AllocMemoryFromYap should now handle large requests the right way.
* *
@ -1126,7 +1129,8 @@ YAP_Init(YAP_init_args *yap_init)
yap_init->DelayedReleaseLoad yap_init->DelayedReleaseLoad
); );
Yap_InitExStacks (Trail, Stack); Yap_InitExStacks (Trail, Stack);
BACKUP_MACHINE_REGS();
{ BACKUP_MACHINE_REGS();
Yap_InitYaamRegs(); Yap_InitYaamRegs();
#if HAVE_MPI #if HAVE_MPI
@ -1152,6 +1156,7 @@ YAP_Init(YAP_init_args *yap_init)
if (restore_result == FAIL_RESTORE) { if (restore_result == FAIL_RESTORE) {
yap_init->ErrorNo = Yap_Error_TYPE; yap_init->ErrorNo = Yap_Error_TYPE;
yap_init->ErrorCause = Yap_ErrorMessage; yap_init->ErrorCause = Yap_ErrorMessage;
/* shouldn't RECOVER_MACHINE_REGS(); be here ??? */
return YAP_BOOT_FROM_SAVED_ERROR; return YAP_BOOT_FROM_SAVED_ERROR;
} }
#endif #endif
@ -1183,7 +1188,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 != NULL) { if (yap_init->YapPrologRCFile != NULL) {
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)));
/* /*