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))