Changeset 366

Timestamp:

Jan 24, 2004, 3:21:04 PM (21 years ago)

Author:

Gary Byers

Message:

New GPR mode-names for 64-bit storage classes.

File:

• trunk/ccl/compiler/backend.lisp (modified) (2 diffs)

trunk/ccl/compiler/backend.lisp

@@ -37 +37 @@
   (target-arch-name nil :type symbol)
   (target-foreign-type-data nil :type (or null foreign-type-data))
-  (lap-macros nil))
+  (lap-macros nil)
+  (target-lisp-node-size 0 :type fixnum))
 
 (defmethod print-object ((b backend) s)
@@ -62 +63 @@
     (:u8 . 5)
     (:s8 . 6)
-    (:address . 7)))
+    (:address . 7)
+    (:u64 . 8)
+    (:s64 . 9)))
 
 (defun gpr-mode-name-value (name)