Additional niceties and middle end support for short vector SIMD packs

[sbcl.git] / package-data-list.lisp-expr

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 4b8befe..e6b9b96 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -1204,7 +1204,7 @@ possibly temporariliy, because it might be used internally."
                "LISTEN-SKIP-WHITESPACE"
                "PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
                "PARSE-BODY" "PARSE-LAMBDA-LIST" "PARSE-LAMBDA-LIST-LIKE-THING"
-               "PROPER-LIST-OF-LENGTH-P"
+               "PROPER-LIST-OF-LENGTH-P" "PROPER-LIST-P"
                "LIST-OF-LENGTH-AT-LEAST-P"
                "LIST-WITH-LENGTH-P"
                "SINGLETON-P"
@@ -1370,6 +1370,11 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR"
                "%MAKE-RATIO" "%MAKE-LISP-OBJ"
                "%MAKE-INSTANCE"
+               #!+sb-simd-pack "%MAKE-SIMD-PACK"
+               #!+sb-simd-pack "%MAKE-SIMD-PACK-UB32"
+               #!+sb-simd-pack "%MAKE-SIMD-PACK-UB64"
+               #!+sb-simd-pack "%MAKE-SIMD-PACK-DOUBLE"
+               #!+sb-simd-pack "%MAKE-SIMD-PACK-SINGLE"
                "%MAKE-STRUCTURE-INSTANCE"
                "%MAKE-STRUCTURE-INSTANCE-ALLOCATOR"
                "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1"
@@ -1433,6 +1438,13 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%SET-SYMBOL-HASH"
                "%SIN" "%SIN-QUICK" "%SINGLE-FLOAT"
                "%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING"
+               #!+sb-simd-pack "%SIMD-PACK-TAG"
+               #!+sb-simd-pack "%SIMD-PACK-LOW"
+               #!+sb-simd-pack "%SIMD-PACK-HIGH"
+               #!+sb-simd-pack "%SIMD-PACK-UB32S"
+               #!+sb-simd-pack "%SIMD-PACK-UB64S"
+               #!+sb-simd-pack "%SIMD-PACK-SINGLES"
+               #!+sb-simd-pack "%SIMD-PACK-DOUBLES"
                "%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH"
                "%UNARY-ROUND"
                "%UNARY-TRUNCATE"
@@ -1632,6 +1644,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
                #!+long-float
                "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
+               #!+sb-simd-pack
+               "OBJECT-NOT-SIMD-PACK-ERROR"
                "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
                "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
                "OBJECT-NOT-SIMPLE-ARRAY-ERROR"
@@ -1736,6 +1750,14 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-SIGNIFICAND"
                "SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE"
                "SPECIALIZABLE" "SPECIALIZABLE-VECTOR" "SPECIFIER-TYPE"
+               #!+sb-simd-pack "SIMD-PACK-SINGLE"
+               #!+sb-simd-pack "SIMD-PACK-DOUBLE"
+               #!+sb-simd-pack "SIMD-PACK-INT"
+               #!+sb-simd-pack "SIMD-PACK"
+               #!+sb-simd-pack "SIMD-PACK-P"
+               #!+sb-simd-pack "SIMD-PACK-TYPE"
+               #!+sb-simd-pack "SIMD-PACK-TYPE-ELEMENT-TYPE"
+               #!+sb-simd-pack "*SIMD-PACK-ELEMENT-TYPES*"
                "STACK-REF" "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
                "STRING-FILL*"
                "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE" "SUB-GC"
@@ -2650,6 +2672,11 @@ structure representations"
                #!+long-float "COMPLEX-LONG-FLOAT-WIDETAG"
                #!+long-float "COMPLEX-LONG-REG-SC-NUMBER"
                #!+long-float "COMPLEX-LONG-STACK-SC-NUMBER"
+               #!+sb-simd-pack "SIMD-PACK-TAG-SLOT"
+               #!+sb-simd-pack "SIMD-PACK-HI-VALUE-SLOT"
+               #!+sb-simd-pack "SIMD-PACK-LO-VALUE-SLOT"
+               #!+sb-simd-pack "SIMD-PACK-SIZE"
+               #!+sb-simd-pack "SIMD-PACK-WIDETAG"
                #!-x86-64 #!-x86-64
                "COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
                #!+x86-64