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

move to Yap-4.5.7

Browse Source 
Fix clause size


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1236 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2005-01-28 23:14:41 +00:00
parent be638d705c
commit 2ce853ec5f
15 changed files with 101 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
C/init.c
View File

@@ -110,9 +110,6 @@ jmp_buf Yap_CompilerBotch;
/************ variables concerned with Error Handling *************/
sigjmp_buf Yap_RestartEnv; /* used to restart after an abort execution */
/******** whether Yap is responsible for signal handling******************/
int Yap_PrologShouldHandleInterrupts;
/********* IO support *****/
/********* parsing ********************************************/
@@ -128,6 +125,9 @@ char Yap_FileNameBuf[YAP_FILENAME_MAX],
#endif /* THREADS */
/******** whether Yap is responsible for signal handling******************/
int Yap_PrologShouldHandleInterrupts;
/********* readline support *****/
#if HAVE_LIBREADLINE
@@ -499,7 +499,7 @@ Yap_InitCPred(char *Name, unsigned long int Arity, CPredicate code, int flags)
}
} else {
cl->ClFlags = 0;
cl->ClSize = sz-sizeof(StaticClause);
cl->ClSize = sz;
cl->usc.ClPred = pe;
p_code = cl->ClCode;
}
@@ -557,7 +557,7 @@ Yap_InitCmpPred(char *Name, unsigned long int Arity, CmpPredicate cmp_code, int
return;
}
} else {
cl->ClSize = sz-sizeof(StaticClause);
cl->ClSize = sz;
cl->usc.ClPred = pe;
cl->ClFlags = 0;
p_code = cl->ClCode;