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

fix c_interface not to crash when people try to recover slots that are

Browse Source 
not there.
fix try_logical and friends to handle case where predicate has arity 0.


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2278 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2008-06-17 13:37:51 +00:00
parent e90f744e5e
commit 39c4a2e67f
8 changed files with 39 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
C/c_interface.c
View File

@@ -10,8 +10,11 @@
* File: c_interface.c *
* comments: c_interface primitives definition *
* *
* Last rev: $Date: 2008-06-04 14:47:18 $,$Author: vsc $ *
* Last rev: $Date: 2008-06-17 13:37:48 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.118 2008/06/04 14:47:18 vsc
* make sure we do trim_trail whenever we mess with B!
*
* Revision 1.117 2008/06/04 13:58:36 vsc
* more fixes to C-interface
*
@@ -438,7 +441,7 @@ X_API long STD_PROTO(YAP_InitSlot,(Term));
X_API Term STD_PROTO(YAP_GetFromSlot,(long));
X_API Term *STD_PROTO(YAP_AddressFromSlot,(long));
X_API void STD_PROTO(YAP_PutInSlot,(long, Term));
X_API void STD_PROTO(YAP_RecoverSlots,(int));
X_API int STD_PROTO(YAP_RecoverSlots,(int));
X_API void STD_PROTO(YAP_Throw,(Term));
X_API void STD_PROTO(YAP_Halt,(int));
X_API Term *STD_PROTO(YAP_TopOfLocalStack,(void));
@@ -1002,10 +1005,10 @@ YAP_InitSlot(Term t)
return Yap_InitSlot(t);
}
X_API void
X_API int
YAP_RecoverSlots(int n)
{
Yap_RecoverSlots(n);
return Yap_RecoverSlots(n);
}
X_API Term
@@ -1440,7 +1443,7 @@ YAP_RunGoal(Term t)
CP = old_CP;
Yap_AllowRestart = TRUE;
} else {
ASP = B->cp_env;
ENV = B->cp_env;
B = B->cp_b;
Yap_AllowRestart = FALSE;
}