fix trouble with B=NULL for compiler
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@828 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
bd383b7e3f
commit
d22fe2107c
@ -2675,7 +2675,6 @@ Yap_cclause(Term inp_clause, int NOfArgs, int mod)
|
||||
{ /* compile a prolog clause, copy of clause myst be in ARG1 */
|
||||
/* returns address of code for clause */
|
||||
Term head, body;
|
||||
CELL *SaveH;
|
||||
yamop *acode;
|
||||
|
||||
volatile int maxvnum = 512;
|
||||
@ -2808,7 +2807,9 @@ Yap_cclause(Term inp_clause, int NOfArgs, int mod)
|
||||
}
|
||||
reset_vars();
|
||||
H = HB;
|
||||
HB = B->cp_h;
|
||||
if (B != NULL) {
|
||||
HB = B->cp_h;
|
||||
}
|
||||
if (Yap_ErrorMessage)
|
||||
return (0);
|
||||
#ifdef DEBUG
|
||||
|
Reference in New Issue
Block a user