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

cannot optimise try/retry in the presence of or-parallelism

Browse Source
This commit is contained in:
vsc 2010-10-15 01:11:49 +01:00
parent 2444eea5a7
commit fa42de1025
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/amasm.c
View File

@ -2089,6 +2089,7 @@ a_try(op_numbers opcode, CELL lab, CELL opr, int nofalts, int hascut, yamop *cod
} }
return code_p; return code_p;
} }
#ifndef YAPOR
switch (opr) { switch (opr) {
case 2: case 2:
if (opcode == _try_clause) { if (opcode == _try_clause) {
@ -2139,6 +2140,7 @@ a_try(op_numbers opcode, CELL lab, CELL opr, int nofalts, int hascut, yamop *cod
return code_p; return code_p;
} }
} }
#endif
if (pass_no) { if (pass_no) {
code_p->opc = emit_op(opcode); code_p->opc = emit_op(opcode);
code_p->u.Otapl.d = emit_a(lab); code_p->u.Otapl.d = emit_a(lab);