X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fparms.lisp;h=8d14f7eb1e728577f46c323575ba0b0a2ae976ba;hb=a3d4610158f227d53cb5eac287dd2661e975fc70;hp=bd405c7903d1a4f8b252f19c078df310bb72a34e;hpb=3ea89bab9e4600ba80b6bc931481100fca74fa9d;p=sbcl.git

diff --git a/src/compiler/x86-64/parms.lisp b/src/compiler/x86-64/parms.lisp
index bd405c7..8d14f7e 100644
--- a/src/compiler/x86-64/parms.lisp
+++ b/src/compiler/x86-64/parms.lisp
@@ -20,7 +20,7 @@
 ;;; and register specs, we use the Intel convention. But whenever we
 ;;; are talking about stuff the rest of the lisp system might be
 ;;; interested in, we use ``word'' to mean the size of a descriptor
-;;; object, which is 32 bits.
+;;; object, which is 64 bits.
 
 ;;;; machine architecture parameters
 
@@ -106,7 +106,14 @@
 ;;; The default dynamic space size is lower on OpenBSD to allow SBCL to
 ;;; run under the default 512M data size limit.
 
-(!gencgc-space-setup #x20000000 #x1000000000 #!+openbsd #x1bcf0000)
+(!gencgc-space-setup #x20000000
+                     #x1000000000
+
+                     ;; :default-dynamic-space-size
+                     #!+openbsd #x1bcf0000
+
+                     ;; :alignment
+                     #!+win32 #!+win32 nil #x10000)
 
 (def!constant linkage-table-entry-size 16)
 
@@ -196,4 +203,8 @@
     sb!kernel:two-arg-ior
     sb!kernel:two-arg-xor
     sb!kernel:two-arg-gcd
-    sb!kernel:two-arg-lcm))
+    sb!kernel:two-arg-lcm
+    sb!kernel:%coerce-callable-to-fun))
+
+#!+sb-simd-pack
+(defvar *simd-pack-element-types* '(integer single-float double-float))