[Openmcl-cvs-notifications] r10140 - /trunk/source/level-1/l1-aprims.lisp

[rme at clozure.com]

Author: rme
Date: Sat Jul 19 01:13:19 2008
New Revision: 10140

Log:
array element subtypes for x8632;  most-positive-fixnum =3D>
target::target-most-positive-fixnum.

Modified:
    trunk/source/level-1/l1-aprims.lisp

Modified: trunk/source/level-1/l1-aprims.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/l1-aprims.lisp (original)
+++ trunk/source/level-1/l1-aprims.lisp Sat Jul 19 01:13:19 2008
@@ -192,9 +192,9 @@
       (progn
 	(unless (typep index 'unsigned-byte)
 	  (report-bad-arg index 'unsigned-byte))
-	(do* ((n index (- n most-positive-fixnum)))
+	(do* ((n index (- n target::target-most-positive-fixnum)))
 	     ((typep n 'fixnum) (nthcdr n list))
-	  (unless (setq list (nthcdr most-positive-fixnum list))
+	  (unless (setq list (nthcdr target::target-most-positive-fixnum list))
 	    (return))))))
 =

 =

@@ -540,6 +540,30 @@
     (if  (=3D subtype ppc32::subtag-simple-vector) t
         (svref array-element-subtypes =

                (ash (- subtype ppc32::min-cl-ivector-subtag) (- ppc32::nta=
gbits)))))
+  )
+
+#+x8632-target
+(progn
+  (defparameter array-element-subtypes
+    #(single-float =

+      (unsigned-byte 32)
+      (signed-byte 32)
+      fixnum
+      base-char                         ;ucs4
+      (unsigned-byte 8)
+      (signed-byte 8)
+      base-char
+      (unsigned-byte 16)
+      (signed-byte 16)
+      double-float
+      bit))
+  =

+  ;; given uvector subtype - what is the corresponding element-type
+  (defun element-subtype-type (subtype)
+    (declare (fixnum subtype))
+    (if  (=3D subtype x8632::subtag-simple-vector) t
+        (svref array-element-subtypes =

+               (ash (- subtype x8632::min-cl-ivector-subtag) (- x8632::nta=
gbits)))))
   )
 =

 #+ppc64-target