Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv28778
Modified Files: operands.lisp Log Message: Don't sign-extend already sign-extended displacement.
Date: Sat Aug 13 22:31:51 2005 Author: ffjeld
Index: ia-x86/operands.lisp diff -u ia-x86/operands.lisp:1.5 ia-x86/operands.lisp:1.6 --- ia-x86/operands.lisp:1.5 Thu Sep 2 11:01:44 2004 +++ ia-x86/operands.lisp Sat Aug 13 22:31:51 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 20012000, 2002-2004, +;;;; Copyright (C) 20012000, 2002-2005, ;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: operands.lisp @@ -9,7 +9,7 @@ ;;;; Created at: Wed Feb 16 14:02:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: operands.lisp,v 1.5 2004/09/02 09:01:44 ffjeld Exp $ +;;;; $Id: operands.lisp,v 1.6 2005/08/13 20:31:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -945,7 +945,7 @@ operand (setf register (decode-set (find-register-decode-set 'r/m32-01) r/m) - offset (realpart (sign-extend-complex displacement))))) + offset (realpart displacement)))) (values operand))
(defmethod operand-encode ((operand operand-indirect-register) @@ -1687,7 +1687,7 @@ (with-slots (offset) operand (setf offset - (realpart (sign-extend-complex (slot-value instr-symbolic 'displacement))))) + (realpart (slot-value instr-symbolic 'displacement)))) (values operand))
(defmethod operand-encode ((operand operand-rel-pointer)