avoid uninitialised memory at overflow.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1627 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2006-05-02 16:44:11 +00:00
parent 9bb06c4c7e
commit 955c6d7b32

View File

@ -11,8 +11,12 @@
* File: index.c *
* comments: Indexing a Prolog predicate *
* *
* Last rev: $Date: 2006-05-02 16:39:06 $,$Author: vsc $ *
* Last rev: $Date: 2006-05-02 16:44:11 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $
* Revision 1.166 2006/05/02 16:39:06 vsc
* bug in indexing code
* fix warning messages for write.c
*
* Revision 1.165 2006/04/27 17:04:08 vsc
* don't use <= to compare with block top (libc may not have block header).
*
@ -4029,6 +4033,7 @@ do_nonvar_group(GroupDef *grp, Term t, UInt compound_term, CELL *sreg, UInt arit
type_sw->ConstEntry =
type_sw->FuncEntry =
type_sw->PairEntry =
type_sw->VarEntry =
nxtlbl;
type_sw->VarEntry = do_var_entries(grp, t, cint, argno, first, clleft, nxtlbl);
grp->LastClause = cls_move(grp->FirstClause, ap, grp->LastClause, compound_term, argno, last_arg);