From 78129e932fd0b0d493f86fe5b5cd76078fccfa4b Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 29 Jun 2001 12:45:18 +0000
Subject: [PATCH] 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
---
 C/amasm.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/amasm.c b/C/amasm.c
index 03df221c7..8029e854c 100644
--- a/C/amasm.c
+++ b/C/amasm.c
@@ -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;