From 0d563e2329eeb9b1cd5650c5f69c7934b79defab Mon Sep 17 00:00:00 2001 From: emarsden <emarsden> Date: Tue, 15 Apr 2003 14:55:20 +0000 Subject: [PATCH] Add printers for BSR and and BSF instructions on x86. From Alexey Dejneka via SBCL. --- compiler/x86/insts.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/compiler/x86/insts.lisp b/compiler/x86/insts.lisp index ead27339c..22793faba 100644 --- a/compiler/x86/insts.lisp +++ b/compiler/x86/insts.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/insts.lisp,v 1.26 2003/03/11 02:20:30 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/insts.lisp,v 1.27 2003/04/15 14:55:20 emarsden Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1661,6 +1661,7 @@ ;;;; Bit Manipulation (define-instruction bsf (segment dst src) + (:printer ext-reg-reg/mem ((op #b1011110) (width 0))) (:emitter (let ((size (matching-operand-size dst src))) (when (eq size :byte) @@ -1671,6 +1672,7 @@ (emit-ea segment src (reg-tn-encoding dst))))) (define-instruction bsr (segment dst src) + (:printer ext-reg-reg/mem ((op #b1011110) (width 1))) (:emitter (let ((size (matching-operand-size dst src))) (when (eq size :byte) -- GitLab