vm/asm: new prof instruction.

* share/txr/stdlib/asm.tl (prof): New opcode.
(op-prof): New opcode class.

* vm.c (vm_prof_callback, vm_prof): New static functions.
(vm_execute): Handle PROF opcode via vm_prof.

* vmop.h: Regenerated.

1 files changed, 34 insertions, 33 deletions

diff --git a/vmop.h b/vmop.h
index d1e26f34..48bfa903 100644
--- a/vmop.h
+++ b/vmop.h
@@ -32,37 +32,38 @@ typedef enum vm_op {
   DFRAME = 3,
   END = 4,
   FIN = 5,
-  CALL = 6,
-  APPLY = 7,
-  GCALL = 8,
-  GAPPLY = 9,
-  MOVRS = 10,
-  MOVSR = 11,
-  MOVRR = 12,
-  MOVRSI = 13,
-  MOVSMI = 14,
-  MOVRBI = 15,
-  JMP = 16,
-  IF = 17,
-  IFQ = 18,
-  IFQL = 19,
-  SWTCH = 20,
-  UWPROT = 21,
-  BLOCK = 22,
-  RETSR = 23,
-  RETRS = 24,
-  RETRR = 25,
-  ABSCSR = 26,
-  CATCH = 27,
-  HANDLE = 28,
-  GETV = 29,
-  GETF = 30,
-  GETL1 = 31,
-  GETVB = 32,
-  GETFB = 33,
-  GETL1B = 34,
-  SETV = 35,
-  SETL1 = 36,
-  BINDV = 37,
-  CLOSE = 38,
+  PROF = 6,
+  CALL = 7,
+  APPLY = 8,
+  GCALL = 9,
+  GAPPLY = 10,
+  MOVRS = 11,
+  MOVSR = 12,
+  MOVRR = 13,
+  MOVRSI = 14,
+  MOVSMI = 15,
+  MOVRBI = 16,
+  JMP = 17,
+  IF = 18,
+  IFQ = 19,
+  IFQL = 20,
+  SWTCH = 21,
+  UWPROT = 22,
+  BLOCK = 23,
+  RETSR = 24,
+  RETRS = 25,
+  RETRR = 26,
+  ABSCSR = 27,
+  CATCH = 28,
+  HANDLE = 29,
+  GETV = 30,
+  GETF = 31,
+  GETL1 = 32,
+  GETVB = 33,
+  GETFB = 34,
+  GETL1B = 35,
+  SETV = 36,
+  SETL1 = 37,
+  BINDV = 38,
+  CLOSE = 39,
 } vm_op_t;