From dde722d640c8a9da7a2d216a5f7250dbb70294a5 Mon Sep 17 00:00:00 2001 From: Martin Cracauer Date: Fri, 3 May 2013 18:19:30 -0400 Subject: [PATCH] Commiting fix by Doug Katzman: disassembler missing ",8" on SHLD --- NEWS | 1 + src/compiler/x86-64/insts.lisp | 3 ++- src/compiler/x86/insts.lisp | 3 ++- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index 43a5400..a9e68ea 100644 --- a/NEWS +++ b/NEWS @@ -1,5 +1,6 @@ ;;;; -*- coding: utf-8; fill-column: 78 -*- changes relative to sbcl-1.1.7: + * bug fix: disassembler missing ",8" on SHLD * enhancement: RUN-PROGRAM supports a :DIRECTORY argument to set the working directory of the spawned process. (lp#791800) (patch by Matthias Benkard) diff --git a/src/compiler/x86-64/insts.lisp b/src/compiler/x86-64/insts.lisp index 0a982cd..2b1f5f1 100644 --- a/src/compiler/x86-64/insts.lisp +++ b/src/compiler/x86-64/insts.lisp @@ -2206,7 +2206,8 @@ (eval-when (:compile-toplevel :execute) (defun double-shift-inst-printer-list (op) `((ext-reg-reg/mem-no-width ((op ,(logior op #b100)) - (imm nil :type imm-byte))) + (imm nil :type imm-byte)) + (:name :tab reg/mem ", " reg ", " imm)) (ext-reg-reg/mem-no-width ((op ,(logior op #b101))) (:name :tab reg/mem ", " reg ", " 'cl))))) diff --git a/src/compiler/x86/insts.lisp b/src/compiler/x86/insts.lisp index 0509468..aef17c5 100644 --- a/src/compiler/x86/insts.lisp +++ b/src/compiler/x86/insts.lisp @@ -1621,7 +1621,8 @@ (eval-when (:compile-toplevel :execute) (defun double-shift-inst-printer-list (op) `((ext-reg-reg/mem ((op ,(logior op #b10)) (width 0) - (imm nil :type signed-imm-byte))) + (imm nil :type signed-imm-byte)) + (:name :tab reg/mem ", " reg ", " imm)) (ext-reg-reg/mem ((op ,(logior op #b10)) (width 1)) (:name :tab reg/mem ", " reg ", " 'cl))))) -- 1.7.10.4