Add syscall/sysret instructions.

diff --git a/src/compiler/x86-64/insts.lisp b/src/compiler/x86-64/insts.lisp
index 6edbb0e..1a6462b 100644 (file)
--- a/src/compiler/x86-64/insts.lisp
+++ b/src/compiler/x86-64/insts.lisp
@@ -2773,6 +2773,20 @@
   (:emitter
    (emit-byte segment #b11001001)))
 \f
+;;;; syscall/sysret
+
+(define-instruction syscall (segment)
+  (:printer two-bytes ((op '(#b00001111 #b00000101))))
+  (:emitter
+   (emit-byte segment #b00001111)
+   (emit-byte segment #b00000101)))
+
+(define-instruction sysret (segment)
+  (:printer two-bytes ((op '(#b00001111 #b00000111))))
+  (:emitter
+   (emit-byte segment #b00001111)
+   (emit-byte segment #b00000111)))
+\f
 ;;;; interrupt instructions
 
 (defun snarf-error-junk (sap offset &optional length-only)