Commit e2bf2258 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Don't sign-extend already sign-extended displacement.

parent 90d6b4c7
;;;;------------------------------------------------------------------
;;;;
;;;; 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.4 2004/02/10 00:03:42 ffjeld Exp $
;;;; $Id: operands.lisp,v 1.5 2004/09/02 09:01:44 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -945,7 +945,7 @@ returned."))
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 @@ returned."))
(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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment