From: D Herring <dherring@at.tentpost.dot.com>
Date: Sun, 27 Jan 2008 01:02:36 +0000 (-0500)
Subject: Tweaks to get sb-simd 1.3 to compile
X-Git-Url: https://repo.or.cz/w/sbcl/simd.git/commitdiff_plain/aef20fcdb716d77f82ab846c740919ce347fc849

Tweaks to get sb-simd 1.3 to compile

Unit tests said:
Finished running tests.
Status:
 Expected failure:    debug.impure.lisp / (UNDEFINED-FUNCTION BUG-353)
 Expected failure:    external-format.impure.lisp / (CHARACTER-DECODE-LARGE
                                                     FORCE-END-OF-FILE)
 Failure:             run-program.impure.lisp / RUN-PROGRAM-ED
test failed, expected 104 return code, got 1
---

diff --git a/src/compiler/generic/early-objdef.lisp b/src/compiler/generic/early-objdef.lisp
index b90d8a8d2..483e4a8f6 100644
--- a/src/compiler/generic/early-objdef.lisp
+++ b/src/compiler/generic/early-objdef.lisp
@@ -125,6 +125,7 @@
   ratio                             ; 00001110
   single-float                      ; 00010010
   double-float                      ; 00010110
+  xmm
   complex                           ; 00011010
   complex-single-float              ; 00011110
   complex-double-float              ; 00100010
@@ -150,7 +151,6 @@
   unused01
   #!+(and sb-lutex sb-thread)
   lutex                             ; 01011110
-  unused02                          ; 01100010
   unused03                          ; 01100110
   unused04                          ; 01101010
   unused05                          ; 01101110
diff --git a/src/compiler/generic/objdef.lisp b/src/compiler/generic/objdef.lisp
index 5bdd76a35..c2e9c8f36 100644
--- a/src/compiler/generic/objdef.lisp
+++ b/src/compiler/generic/objdef.lisp
@@ -78,6 +78,10 @@
   #!-x86-64 (filler)
   (value :c-type "double" :length #!-x86-64 2 #!+x86-64 1))
 
+(define-primitive-object (xmm :lowtag other-pointer-lowtag
+                              :widetag xmm-widetag)
+    (value :c-type "char *" :length 8))
+
 #!+long-float
 (define-primitive-object (long-float :lowtag other-pointer-lowtag
                                      :widetag long-float-widetag)
diff --git a/src/compiler/generic/primtype.lisp b/src/compiler/generic/primtype.lisp
index 2ee50b094..bb9ac718a 100644
--- a/src/compiler/generic/primtype.lisp
+++ b/src/compiler/generic/primtype.lisp
@@ -96,6 +96,8 @@
 (!def-primitive-type complex-double-float (complex-double-reg descriptor-reg)
   :type (complex double-float))
 
+(/show0 "about to !DEF-PRIMITIVE-TYPE XMM")
+(!def-primitive-type xmm (xmm-reg descriptor-reg))
 
 ;;; primitive other-pointer array types
 (/show0 "primtype.lisp 96")