[Sbcl-commits] CVS: sbcl/src/compiler/mips array.lisp,1.1,1.1.22.1 c-call.lisp,1.1,1.1.22.1

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/mips
In directory sc8-pr-cvs1:/tmp/cvs-serv11109/src/compiler/mips

Modified Files:
      Tag: vector_nil_string_branch
	array.lisp c-call.lisp 
Log Message:
0.8.0.78.vector-nil-string.13:
	Update other architectures for (vector nil) as string
	... just replace simple-string with simple-base-string as the
	primitive type.  Untested as yet; will be tested on sparc 
	post-commit.


Index: array.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/array.lisp,v
retrieving revision 1.1
retrieving revision 1.1.22.1
diff -u -d -r1.1 -r1.1.22.1
--- array.lisp	1 Sep 2002 22:34:18 -0000	1.1
+++ array.lisp	27 Jun 2003 09:08:28 -0000	1.1.22.1
@@ -112,7 +112,7 @@
   (def-full-data-vector-frobs simple-vector *
     descriptor-reg any-reg null zero)
   
-  (def-partial-data-vector-frobs simple-string base-char 
+  (def-partial-data-vector-frobs simple-base-string base-char 
     :byte nil base-char-reg)
   
   (def-partial-data-vector-frobs simple-array-unsigned-byte-8 positive-fixnum

Index: c-call.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/c-call.lisp,v
retrieving revision 1.1
retrieving revision 1.1.22.1
diff -u -d -r1.1 -r1.1.22.1
--- c-call.lisp	1 Sep 2002 22:34:18 -0000	1.1
+++ c-call.lisp	27 Jun 2003 09:08:28 -0000	1.1.22.1
@@ -138,7 +138,7 @@
   (:translate foreign-symbol-address)
   (:policy :fast-safe)
   (:args)
-  (:arg-types (:constant simple-string))
+  (:arg-types (:constant simple-base-string))
   (:info foreign-symbol)
   (:results (res :scs (sap-reg)))
   (:result-types system-area-pointer)