Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv12217

Modified Files: ia-x86.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:29 2004 Author: ffjeld

Index: ia-x86/ia-x86.lisp diff -u ia-x86/ia-x86.lisp:1.3 ia-x86/ia-x86.lisp:1.4 --- ia-x86/ia-x86.lisp:1.3 Tue Feb 10 01:03:23 2004 +++ ia-x86/ia-x86.lisp Thu Sep 2 11:01:29 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 17 18:01:26 1999 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: ia-x86.lisp,v 1.3 2004/02/10 00:03:23 ffjeld Exp $ +;;;; $Id: ia-x86.lisp,v 1.4 2004/09/02 09:01:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -23,18 +23,22 @@ ((operands :type list :initform '() - :initarg operands + :initarg :operands :accessor instruction-operands) (prefixes :type list - :initarg prefixes + :initarg :prefixes :initform '() :accessor instruction-prefixes) (user-size - :initarg user-size + :initarg :user-size :reader instruction-user-size) + (user-finalizer + :initarg :user-finalizer + :initform nil + :reader instruction-finalizer) (original-datum - :initarg datum + :initarg :datum :accessor instruction-original-datum)))

(defmethod print-object ((obj instruction) stream)