vm/asm: housecleaning: remove deprecated opcodes.

Since we have are breaking binary compatibility in the
upcoming TXR 252, we might as well take the opportunity to
remove deprecated opcodes that the compiler doesn't use.

* share/txr/stdlib/asm.tl (op-fin): Opcode removed.
(op-pprof): Derive directly from op-end rather than op-fin.
(op-movrsi, op-movsmi, op-movrbi, op-movi-pseudo): Opcodes
removed.

* vm.c (vm_fin, vm_movrsi, vm_movsmi, vm_movrbi): Functions
removed.
(vm_execute): FIN, MOVRSI, MOVSMI, MOVRBI cases removed.

* vmop.h: Regenerated.
(vm_op_t): Enum members FIN, MOVRSI, MOVSMI, MOVRBI removed.

1 files changed, 34 insertions, 38 deletions

diff --git a/vmop.h b/vmop.h
index aeec2d0a..a024da8a 100644
--- a/vmop.h
+++ b/vmop.h
@@ -31,44 +31,40 @@ typedef enum vm_op {
   SFRAME = 2,
   DFRAME = 3,
   END = 4,
-  FIN = 5,
-  PROF = 6,
-  CALL = 7,
-  APPLY = 8,
-  GCALL = 9,
-  GAPPLY = 10,
-  MOVRS = 11,
-  MOVSR = 12,
-  MOVRR = 13,
-  MOVRSI = 14, /* deprecated */
-  MOVSMI = 15, /* deprecated */
-  MOVRBI = 16, /* deprecated */
-  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,
-  OLDGETF = 31,
-  GETL1 = 32,
-  GETVB = 33,
-  GETFB = 34,
-  GETL1B = 35,
-  SETV = 36,
-  SETL1 = 37,
-  BINDV = 38,
-  CLOSE = 39,
-  GETLX = 40,
-  SETLX = 41,
-  GETF = 42,
+  PROF = 5,
+  CALL = 6,
+  APPLY = 7,
+  GCALL = 8,
+  GAPPLY = 9,
+  MOVRS = 10,
+  MOVSR = 11,
+  MOVRR = 12,
+  JMP = 13,
+  IF = 14,
+  IFQ = 15,
+  IFQL = 16,
+  SWTCH = 17,
+  UWPROT = 18,
+  BLOCK = 19,
+  RETSR = 20,
+  RETRS = 21,
+  RETRR = 22,
+  ABSCSR = 23,
+  CATCH = 24,
+  HANDLE = 25,
+  GETV = 26,
+  OLDGETF = 27,
+  GETL1 = 28,
+  GETVB = 29,
+  GETFB = 30,
+  GETL1B = 31,
+  SETV = 32,
+  SETL1 = 33,
+  BINDV = 34,
+  CLOSE = 35,
+  GETLX = 36,
+  SETLX = 37,
+  GETF = 38,
 } vm_op_t;
 
 #define VM_LEV_BITS 10