fix assembly of table_try_single (report from Paolo Frasconi).

2010-08-19 09:32:35 +01:00 · 2010-08-19 09:32:35 +01:00 · 6e17b2053f
commit 6e17b2053f
parent ca3177889c
1 changed files with 1 additions and 1 deletions
--- a/C/amasm.c
+++ b/C/amasm.c
@ -3087,7 +3087,7 @@ do_pass(int pass_no, yamop **entry_codep, int assembling, int *clause_has_blobsp
      }
      code_p = cl_u->sc.ClCode;
    }
-    IPredArity = cip->cpc->rnd2;	/* number of args */
+    IPredArity = cip->CurrentPred->ArityOfPE;	/* number of args */
    *entry_codep = code_p;
    if (tabled) {
 #if TABLING