[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-serv12279

Modified Files:
	operands.lisp 
Log Message:
Added a protocol for adding "extra" prefixes (such as NOPs) to
instructions as they are inserted in a code-stream. This is needed for
Movitz to be able to align call instructions such that
return-addresses are distinguisable from immediate values, which is
required by stack discipline.

Date: Thu Sep  2 11:01:49 2004
Author: ffjeld

Index: ia-x86/operands.lisp
diff -u ia-x86/operands.lisp:1.4 ia-x86/operands.lisp:1.5
--- ia-x86/operands.lisp:1.4	Tue Feb 10 01:03:42 2004
+++ ia-x86/operands.lisp	Thu Sep  2 11:01:44 2004
@@ -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 $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -137,7 +137,7 @@
 (defun abstract-operand-to-offset (operand template instr env)
   (sign-extend (mod (- (operand-resolve-to-number operand env)
 		       (assemble-env-current-pc env)
-		       (template-instr-and-prefix-length template instr))
+		       (template-instr-and-prefix-length template instr env))
 		    #x100000000)
 	       4))