diff options
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 4 | ||||
| -rw-r--r-- | share/txr/stdlib/vm-param.tl | 1 |
2 files changed, 0 insertions, 5 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index f245e9f5..d1ee6664 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -348,10 +348,6 @@ (defmeth compiler comp-atom (me oreg form) (cond ((null form) (new (frag '(t 0) nil))) - ((or (and (fixnump form) - (<= (width form) (- %imm-width% 3))) - (chrp form)) - (new (frag oreg ^((movi ,oreg ,form))))) (t (let ((dreg me.(get-dreg form))) (new (frag dreg nil)))))) diff --git a/share/txr/stdlib/vm-param.tl b/share/txr/stdlib/vm-param.tl index 1198831b..0e278291 100644 --- a/share/txr/stdlib/vm-param.tl +++ b/share/txr/stdlib/vm-param.tl @@ -29,7 +29,6 @@ (defsymacro %lev-bits% 10) (defsymacro %max-lev% 63) (defsymacro %max-v-lev% (macro-time (ppred %max-lev%))) -(defsymacro %imm-width% 32) (defsymacro %sm-lev-size% 64) (defsymacro %max-sm-lev-idx% (macro-time (pred %sm-lev-size%))) (defsymacro %max-sm-lev% 15) |