Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv3751
Modified Files: operands.lisp Log Message: Reformatted some defclass forms, and removed some type-declarations that are more likely to break things than being helpful in any way.
Date: Mon Feb 9 18:46:23 2004 Author: ffjeld
Index: ia-x86/operands.lisp diff -u ia-x86/operands.lisp:1.2 ia-x86/operands.lisp:1.3 --- ia-x86/operands.lisp:1.2 Fri Jan 16 06:54:14 2004 +++ ia-x86/operands.lisp Mon Feb 9 18:46:23 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 20012000, 2002-2003, +;;;; Copyright (C) 20012000, 2002-2004, ;;;; 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.2 2004/01/16 11:54:14 ffjeld Exp $ +;;;; $Id: operands.lisp,v 1.3 2004/02/09 23:46:23 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -186,9 +186,10 @@ (setf (cdr x) x))))) ; make circular one-list.
(defclass operand-number (abstract-operand) - ((number :type integer - :initarg number - :reader operand-number))) + ((number + :type integer + :initarg number + :reader operand-number)))
(defmethod operand-listform ((operand operand-number)) (list* 'quote @@ -207,9 +208,9 @@ ;;; ----------------------------------------------------------------
(defclass operand-immediate (concrete-operand) - ((value :type (unsigned-byte 32) - :initarg value - :accessor operand-value))) + ((value + :initarg value + :accessor operand-value)))
(defmethod operand-listform ((obj operand-immediate)) (operand-value obj)) @@ -280,7 +281,6 @@
(defclass operand-rel-pointer (operand-memory) ((offset - :type (signed-byte 32) :accessor operand-offset :initarg offset)))