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:
vsc 2003-05-19 16:47:58 +00:00
parent bd383b7e3f
commit d22fe2107c
1 changed files with 3 additions and 2 deletions

View File

@ -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