More efficient move-from-signed on x86-64 with 63-bit fixnums

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

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 2731792..4638b51 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -868,7 +868,19 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
 
                ;; timer
                "TIMER" "MAKE-TIMER" "TIMER-NAME" "TIMER-SCHEDULED-P"
-               "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS"))
+               "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS"
+
+               ;; SIMD pack
+               #!+sb-simd-pack "SIMD-PACK"
+               #!+sb-simd-pack "SIMD-PACK-P"
+               #!+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"
+               #!+sb-simd-pack "%SIMD-PACK-UB32S"
+               #!+sb-simd-pack "%SIMD-PACK-UB64S"
+               #!+sb-simd-pack "%SIMD-PACK-DOUBLES"
+               #!+sb-simd-pack "%SIMD-PACK-SINGLES"))
 
    #s(sb-cold:package-data
       :name "SB!FORMAT"
@@ -1204,7 +1216,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"
@@ -1303,7 +1315,18 @@ integration' (said CMU CL architecture.tex) and that probably was and
 is a good idea, but see SB-SYS re. blurring of boundaries."
       :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM"
                  "SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY")
-      :reexport ("DEF!STRUCT" "DEF!MACRO")
+      :reexport ("DEF!STRUCT"
+                 "DEF!MACRO"
+                 #!+sb-simd-pack "SIMD-PACK"
+                 #!+sb-simd-pack "SIMD-PACK-P"
+                 #!+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"
+                 #!+sb-simd-pack "%SIMD-PACK-UB32S"
+                 #!+sb-simd-pack "%SIMD-PACK-UB64S"
+                 #!+sb-simd-pack "%SIMD-PACK-DOUBLES"
+                 #!+sb-simd-pack "%SIMD-PACK-SINGLES")
       :export ("%ACOS"
                "%ACOSH"
                "%ADJOIN"
@@ -1321,6 +1344,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%ARRAY-FILL-POINTER-P" "%ARRAY-RANK"
                #!+(or x86 x86-64 ppc)
                "%ARRAY-ATOMIC-INCF/WORD"
+               #!+ash-right-vops "%ASH/RIGHT"
                "%ASSOC"
                "%ASSOC-EQ"
                "%ASSOC-IF"
@@ -1370,6 +1394,7 @@ 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"
                "%MAKE-STRUCTURE-INSTANCE"
                "%MAKE-STRUCTURE-INSTANCE-ALLOCATOR"
                "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1"
@@ -1433,6 +1458,9 @@ 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"
                "%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH"
                "%UNARY-ROUND"
                "%UNARY-TRUNCATE"
@@ -1632,6 +1660,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 +1766,12 @@ 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-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"
@@ -2334,7 +2370,7 @@ be submitted as a CDR"
 
                "CANONIZE-TEST" "CANONIZE-KEY"
 
-               "LENGTH" "ELT"
+               "EMPTYP" "LENGTH" "ELT"
                "MAKE-SEQUENCE-LIKE" "ADJUST-SEQUENCE"
 
                "COUNT" "COUNT-IF" "COUNT-IF-NOT"
@@ -2650,6 +2686,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