disable inlining in tabled predicates (maybe a bit too harsh).

2009-07-22 17:00:49 -05:00
parent 014209c22f
commit d9a48c4014
2 changed files with 4 additions and 4 deletions
--- a/C/amasm.c
+++ b/C/amasm.c
@@ -1438,7 +1438,7 @@ a_p(op_numbers opcode, clause_info *clinfo, yamop *code_p, int pass_no, struct i
 {				/* emit opcode & predicate code address */
  Prop fe = (Prop) (cip->cpc->rnd1);
  CELL Flags = RepPredProp(fe)->PredFlags;
-  if (Flags & AsmPredFlag) {
+  if (Flags & AsmPredFlag && !(cip->CurrentPred->PredFlags & TabledPredFlag)) {
    op_numbers op;
    int is_test = FALSE;