[movitz-cvs] CVS update: ia-x86/operands.lisp

[Frode Vatvedt Fjeld]

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)