X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Finsts.lisp;h=720ad62ee83e5cb0abc5a1126ac1b28ae76b16cc;hb=0a2d9c98c53cfe7b3874ca96b11dd629a360aa42;hp=68508599e31b36429f487cad5cd60a431d837bc3;hpb=25692c34027ea51a6b51057bf803f19fe3a575d7;p=sbcl.git

diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp
index 6850859..720ad62 100644
--- a/src/compiler/x86/insts.lisp
+++ b/src/compiler/x86/insts.lisp
@@ -1285,6 +1285,11 @@
      (emit-byte segment (if (eq size :byte) #b10110000 #b10110001))
      (emit-ea segment dst (reg-tn-encoding src)))))
 
+(define-instruction pause (segment)
+  (:printer two-bytes ((op '(#xf3 #x90))))
+  (:emitter
+   (emit-byte segment #xf3)
+   (emit-byte segment #x90)))
 
 (defun emit-prefix (segment name)
   (ecase name