Tweaks to get sb-simd 1.3 to compile
authorD Herring <dherring@at.tentpost.dot.com>
Sun, 27 Jan 2008 01:02:36 +0000 (26 20:02 -0500)
committerD Herring <dherring@at.tentpost.dot.com>
Thu, 31 Jan 2008 21:54:20 +0000 (31 16:54 -0500)
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

src/compiler/generic/early-objdef.lisp
src/compiler/generic/objdef.lisp
src/compiler/generic/primtype.lisp

index b90d8a8..483e4a8 100644 (file)
   ratio                             ; 00001110
   single-float                      ; 00010010
   double-float                      ; 00010110
+  xmm
   complex                           ; 00011010
   complex-single-float              ; 00011110
   complex-double-float              ; 00100010
   unused01
   #!+(and sb-lutex sb-thread)
   lutex                             ; 01011110
-  unused02                          ; 01100010
   unused03                          ; 01100110
   unused04                          ; 01101010
   unused05                          ; 01101110
index 5bdd76a..c2e9c8f 100644 (file)
   #!-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)
index 2ee50b0..bb9ac71 100644 (file)
@@ -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")