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:
parent
a18e3790d0
commit
78129e932f
@ -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;
|
||||
|
Reference in New Issue
Block a user