diff options
| -rw-r--r-- | genvmop.txr | 3 | ||||
| -rw-r--r-- | share/txr/stdlib/asm.tl | 5 | ||||
| -rw-r--r-- | vmop.h | 6 |
3 files changed, 10 insertions, 4 deletions
diff --git a/genvmop.txr b/genvmop.txr index a9d46165..73864d08 100644 --- a/genvmop.txr +++ b/genvmop.txr @@ -12,7 +12,8 @@ typedef enum vm_op { @ (repeat) - @{oc.symbol :filter :upcase} = @{oc.code}, + @{oc.symbol :filter :upcase} = @{oc.code},@(if oc.deprecated + " /* deprecated */") @ (end) } vm_op_t; @(end) diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index 8dd64ec4..9ded42c0 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -27,6 +27,7 @@ (load "vm-param") (defstruct oc-base nil + (:static deprecated nil) (:method synerr (me fmt . args) (error `opcode @{me.symbol}: @fmt` . args)) @@ -484,6 +485,7 @@ real.(asm asm syntax))))) (defopcode op-movrsi movrsi auto + (:static deprecated t) (:method asm (me asm syntax) me.(chk-arg-count 2 syntax) (tree-bind (dst imm) asm.(parse-args me syntax '(d si)) @@ -493,6 +495,7 @@ ^(,me.symbol ,(operand-to-sym dst) ,(bits-to-obj imm 10)))) (defopcode op-movsmi movsmi auto + (:static deprecated t) (:method asm (me asm syntax) me.(chk-arg-count 2 syntax) (tree-bind (dst imm) asm.(parse-args me syntax '(ds mi)) @@ -503,6 +506,7 @@ ^(,me.symbol ,(small-op-to-sym dst) ,(bits-to-obj imm 16)))) (defopcode op-movrbi movrbi auto + (:static deprecated t) (:method asm (me asm syntax) me.(chk-arg-count 2 syntax) (tree-bind (dst imm) asm.(parse-args me syntax '(d bi)) @@ -514,6 +518,7 @@ ^(,me.symbol ,(operand-to-sym dst) ,(bits-to-obj imm 32))))) (defopcode op-movi-pseudo movi nil + (:static deprecated t) (:method asm (me asm syntax) (tree-bind (dst src) asm.(parse-args me syntax '(d bi)) (let ((real [%oc-hash% (cond @@ -40,9 +40,9 @@ typedef enum vm_op { MOVRS = 11, MOVSR = 12, MOVRR = 13, - MOVRSI = 14, - MOVSMI = 15, - MOVRBI = 16, + MOVRSI = 14, /* deprecated */ + MOVSMI = 15, /* deprecated */ + MOVRBI = 16, /* deprecated */ JMP = 17, IF = 18, IFQ = 19, |