more patches to support Anderson's JIT.

2009-04-08 00:32:36 +01:00
parent b2ad3bd000
commit b92b026c90
12 changed files with 77 additions and 10 deletions
--- a/H/rclause.h
+++ b/H/rclause.h
@@ -129,7 +129,7 @@ restore_opcodes(yamop *pc)
      pc->u.aFlp.n = ArityAdjust(pc->u.aFlp.n);
      pc->u.aFlp.native = ExternalFunctionAdjust(pc->u.aFlp.native);
      pc->u.aFlp.native_next = PtoOpAdjust(pc->u.aFlp.native_next);
-      pc->u.aFlp.native = PtoPredAdjust(pc->u.aFlp.native);
+      pc->u.aFlp.p = PtoPredAdjust(pc->u.aFlp.p);
      pc = NEXTOP(pc,aFlp);
      break;
      /* instructions type c */