Factor out read-var-integer into a function.

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

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index e6b9b96..91a5c88 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -242,6 +242,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "CHECK-SYMBOL"
                ;; FIXME: 32/64-bit issues
                "CHECK-UNSIGNED-BYTE-32" "CHECK-UNSIGNED-BYTE-64"
+               "CHECK-MOD-FIXNUM"
                "CLOSURE-INIT" "CLOSURE-REF" "CLOSURE-INIT-FROM-FP"
                "CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
                "*CODE-COVERAGE-INFO*"
@@ -373,30 +374,33 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "*ASSEMBLY-OPTIMIZE*"
                "LARGE-ALLOC"
                "%SET-SIMPLE-FUN-SELF"
-               "VM-SUPPORT-ROUTINES-IMMEDIATE-CONSTANT-SC"
-               "VM-SUPPORT-ROUTINES-BOXED-IMMEDIATE-SC-P"
-               "VM-SUPPORT-ROUTINES-LOCATION-PRINT-NAME"
-               "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE-OF"
-               "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE"
-               "VM-SUPPORT-ROUTINES-MAKE-CALL-OUT-TNS"
-               "VM-SUPPORT-ROUTINES-STANDARD-ARG-LOCATION"
-               "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-PASSING-LOCATION"
-               "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-PASSING-LOCATION"
-               "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-SAVE-LOCATION"
-               "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-SAVE-LOCATION"
-               "VM-SUPPORT-ROUTINES-MAKE-ARG-COUNT-LOCATION"
-               "VM-SUPPORT-ROUTINES-MAKE-NFP-TN"
-               "VM-SUPPORT-ROUTINES-MAKE-STACK-POINTER-TN"
-               "VM-SUPPORT-ROUTINES-MAKE-NUMBER-STACK-POINTER-TN"
-               "VM-SUPPORT-ROUTINES-MAKE-UNKNOWN-VALUES-LOCATIONS"
-               "VM-SUPPORT-ROUTINES-SELECT-COMPONENT-FORMAT"
-               "VM-SUPPORT-ROUTINES-MAKE-NLX-SP-TN"
-               "VM-SUPPORT-ROUTINES-MAKE-DYNAMIC-STATE-TNS"
-               "VM-SUPPORT-ROUTINES-MAKE-NLX-ENTRY-ARG-START-LOCATION"
-               "VM-SUPPORT-ROUTINES-GENERATE-CALL-SEQUENCE"
-               "VM-SUPPORT-ROUTINES-GENERATE-RETURN-SEQUENCE"
-               "VM-SUPPORT-ROUTINES-EMIT-NOP"
-               "VM-SUPPORT-ROUTINES-LOCATION-NUMBER"
+
+               "IMMEDIATE-CONSTANT-SC"
+               "BOXED-IMMEDIATE-SC-P"
+               "COMBINATION-IMPLEMENTATION-STYLE"
+               "CONVERT-CONDITIONAL-MOVE-P"
+               "LOCATION-PRINT-NAME"
+               "PRIMITIVE-TYPE-OF"
+               "PRIMITIVE-TYPE"
+               "MAKE-CALL-OUT-TNS"
+               "STANDARD-ARG-LOCATION"
+               "MAKE-RETURN-PC-PASSING-LOCATION"
+               "MAKE-OLD-FP-PASSING-LOCATION"
+               "MAKE-OLD-FP-SAVE-LOCATION"
+               "MAKE-RETURN-PC-SAVE-LOCATION"
+               "MAKE-ARG-COUNT-LOCATION"
+               "MAKE-NFP-TN"
+               "MAKE-STACK-POINTER-TN"
+               "MAKE-NUMBER-STACK-POINTER-TN"
+               "MAKE-UNKNOWN-VALUES-LOCATIONS"
+               "SELECT-COMPONENT-FORMAT"
+               "MAKE-NLX-SP-TN"
+               "MAKE-DYNAMIC-STATE-TNS"
+               "MAKE-NLX-ENTRY-ARG-START-LOCATION"
+               "GENERATE-CALL-SEQUENCE"
+               "GENERATE-RETURN-SEQUENCE"
+               "EMIT-NOP"
+               "LOCATION-NUMBER"
 
                "WITH-SOURCE-LOCATION"
                "*SOURCE-LOCATION-THUNKS*"
@@ -868,7 +872,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"
@@ -1303,7 +1319,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 +1348,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"
@@ -1371,10 +1399,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%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"
@@ -1441,10 +1465,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                #!+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"
@@ -1634,7 +1654,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "OBJECT-NOT-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-FIXNUM-ERROR"
                "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUN-ERROR"
                "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-INTEGER-ERROR"
-               "OBJECT-NOT-LIST-ERROR"
+               "OBJECT-NOT-LIST-ERROR" "OBJECT-NOT-MOD-ERROR"
                #!+long-float "OBJECT-NOT-LONG-FLOAT-ERROR"
                "OBJECT-NOT-NUMBER-ERROR" "OBJECT-NOT-RATIO-ERROR"
                "OBJECT-NOT-RATIONAL-ERROR" "OBJECT-NOT-REAL-ERROR"
@@ -1753,8 +1773,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                #!+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*"