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

rme at clozure.com rme at clozure.com
Tue Sep 9 17:54:29 UTC 2014


Author: rme
Date: Tue Sep  9 17:54:28 2014
New Revision: 16193

Log:
Update tables of array element type names for x8664 and ppc64.

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	Tue Sep  9 17:54:28 2014
@@ -595,7 +595,7 @@
     (unsigned-byte 32)
     (unsigned-byte 64)
     bogus
-    bogus
+    (complex double-float)
     single-float
     fixnum
     bogus
@@ -605,7 +605,7 @@
     bogus
     bogus
     base-char
-    bogus
+    (complex single-float)
     bogus
     bogus
     bogus
@@ -628,7 +628,7 @@
 #+x8664-target
 (progn
 =

-  ;;; 1, 8, 16-bit element types
+  ;;; other element types
   (defparameter *immheader-0-array-element-types*
     #(bogus
       bogus
@@ -639,10 +639,10 @@
       bogus
       bogus
       bogus
-      bogus
+      (complex double-float)
       (signed-byte 16)
       (unsigned-byte 16)
-      base-char
+      bogus
       (signed-byte 8)
       (unsigned-byte 8)
       bit))
@@ -679,7 +679,7 @@
       bogus
       bogus
       bogus
-      bogus
+      (complex single-float)
       fixnum
       (signed-byte 64)
       (unsigned-byte 64)



More information about the Openmcl-cvs-notifications mailing list