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