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

[Frode Vatvedt Fjeld]

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)