From: Christophe R. <cr...@us...> - 2003-07-16 08:26:05
|
Update of /cvsroot/sbcl/sbcl/src/compiler/hppa In directory sc8-pr-cvs1:/tmp/cvs-serv14620/src/compiler/hppa Modified Files: array.lisp c-call.lisp Log Message: 0.8.1.34: Merge vector_nil_string_branch ... many other incremental fixes, including * decrease of number of places array properties need to be specified; * rework of build order so that unknown types are never specialized; * primitive types need to know the specifier, not the ctype, so make it so; * fixes to the kernel classoid hierarchy, so more likely to be consistent internally. The good news is that, should it prove necessary, reverting this patch so that (vector nil) isn't a string is probably not very much work; all that needs to be changed are the kernel classoid supertypes and the STRING and SIMPLE-STRING definitions (and unparses). On the other hand, I'd be interested in trying to fix any performance problem "the right way" before reverting this behaviour. Index: array.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/hppa/array.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- array.lisp 19 Aug 2002 12:14:00 -0000 1.1 +++ array.lisp 16 Jul 2003 08:26:02 -0000 1.2 @@ -104,7 +104,7 @@ (def-full-data-vector-frobs simple-vector * descriptor-reg any-reg) - (def-partial-data-vector-frobs simple-string base-char :byte nil base-char-reg) + (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 :byte nil unsigned-reg signed-reg) Index: c-call.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/hppa/c-call.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- c-call.lisp 19 Aug 2002 12:14:00 -0000 1.1 +++ c-call.lisp 16 Jul 2003 08:26:02 -0000 1.2 @@ -106,7 +106,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) |