fix bug in instruction compression->glist_val <> get_list+unify_local

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@111 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2001-06-29 12:45:18 +00:00
parent a18e3790d0
commit 78129e932f

View File

@ -1342,7 +1342,7 @@ a_glist(void)
#if AGGREGATE_OPS
PInstr *pnext = cpc->nextInst;
if (cpc->rnd2 != 1 && (pnext->op == unify_val_op || pnext->op == unify_local_op)) {
if (cpc->rnd2 != 1 && pnext->op == unify_val_op) {
Ventry *ve = (Ventry *) pnext->rnd1;
pnext->rnd2 = cpc->rnd2;
cpc = pnext;