1.0.7.26: asymptotically faster FIND-SLOT-DEFINITION

[sbcl.git] / src / compiler / x86-64 / move.lisp

diff --git a/src/compiler/x86-64/move.lisp b/src/compiler/x86-64/move.lisp
index a5de78c..1a5279c 100644 (file)
--- a/src/compiler/x86-64/move.lisp
+++ b/src/compiler/x86-64/move.lisp
@@ -11,6 +11,19 @@
 
 (in-package "SB!VM")
 
+(defun make-byte-tn (tn)
+  (aver (sc-is tn any-reg descriptor-reg unsigned-reg signed-reg))
+  (make-random-tn :kind :normal
+                  :sc (sc-or-lose 'byte-reg)
+                  :offset (tn-offset tn)))
+
+(defun make-dword-tn (tn)
+  (aver (sc-is tn any-reg descriptor-reg character-reg
+               unsigned-reg signed-reg))
+  (make-random-tn :kind :normal
+                  :sc (sc-or-lose 'dword-reg)
+                  :offset (tn-offset tn)))
+
 (defun zeroize (tn)
   (let ((offset (tn-offset tn)))
     ;; Using the 32-bit instruction accomplishes the same thing and is