a more efficient tail call by using the new TUCK instruction

2014-10-30 13:09:50 +00:00
parent 0519493ca9
commit 9b0f354c7c
5 changed files with 139 additions and 54 deletions
--- a/src/runtime/c/pgf/data.h
+++ b/src/runtime/c/pgf/data.h
@@ -136,11 +136,12 @@ typedef enum {
  PGF_INSTR_SET_PAD     =  9,
  PGF_INSTR_PUSH_FRAME  = 10,
  PGF_INSTR_PUSH        = 11,
-  PGF_INSTR_EVAL        = 12,
-  PGF_INSTR_DROP        = 15,
-  PGF_INSTR_JUMP        = 16,
-  PGF_INSTR_FAIL        = 17,
-  PGF_INSTR_ADD         = 18,
+  PGF_INSTR_TUCK        = 12,
+  PGF_INSTR_EVAL        = 13,
+  PGF_INSTR_DROP        = 16,
+  PGF_INSTR_JUMP        = 17,
+  PGF_INSTR_FAIL        = 18,
+  PGF_INSTR_ADD         = 19,
 } PgfInstruction;

 typedef GuSeq PgfConcrs;