diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/amasm.c
View File

@ -1342,7 +1342,7 @@ a_glist(void)
#if AGGREGATE_OPS #if AGGREGATE_OPS
PInstr *pnext = cpc->nextInst; 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; Ventry *ve = (Ventry *) pnext->rnd1;
pnext->rnd2 = cpc->rnd2; pnext->rnd2 = cpc->rnd2;
cpc = pnext; cpc = pnext;