From: Nathan F. <nf...@us...> - 2006-06-06 01:29:07
|
Update of /cvsroot/sbcl/sbcl/src/compiler/alpha In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv20726/src/compiler/alpha Modified Files: array.lisp Log Message: 0.9.13.25: Remove vestiges of raw-slot indirection in structures for non-HPPA ports. ... #!{-,+}hppa where appropriate; ... purge %RAW-REF-FOO and associated SET VOPs on #-HPPA ports; ... tested on PPC. Index: array.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/array.lisp,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- array.lisp 14 Jul 2005 16:30:42 -0000 1.21 +++ array.lisp 4 Jun 2006 14:25:07 -0000 1.22 @@ -525,45 +525,6 @@ (inst fmove value-imag result-imag))))) -;;; These VOPs are used for implementing float slots in structures -;;; (whose raw data is an unsigned-32 vector). -;;; -(define-vop (raw-ref-single data-vector-ref/simple-array-single-float) - (:translate %raw-ref-single) - (:arg-types sb!c::raw-vector positive-fixnum)) -;;; -(define-vop (raw-set-single data-vector-set/simple-array-single-float) - (:translate %raw-set-single) - (:arg-types sb!c::raw-vector positive-fixnum single-float)) -;;; -(define-vop (raw-ref-double data-vector-ref/simple-array-double-float) - (:translate %raw-ref-double) - (:arg-types sb!c::raw-vector positive-fixnum)) -;;; -(define-vop (raw-set-double data-vector-set/simple-array-double-float) - (:translate %raw-set-double) - (:arg-types sb!c::raw-vector positive-fixnum double-float)) - -(define-vop (raw-ref-complex-single - data-vector-ref/simple-array-complex-single-float) - (:translate %raw-ref-complex-single) - (:arg-types sb!c::raw-vector positive-fixnum)) -;;; -(define-vop (raw-set-complex-single - data-vector-set/simple-array-complex-single-float) - (:translate %raw-set-complex-single) - (:arg-types sb!c::raw-vector positive-fixnum complex-single-float)) -;;; -(define-vop (raw-ref-complex-double - data-vector-ref/simple-array-complex-double-float) - (:translate %raw-ref-complex-double) - (:arg-types sb!c::raw-vector positive-fixnum)) -;;; -(define-vop (raw-set-complex-double - data-vector-set/simple-array-complex-double-float) - (:translate %raw-set-complex-double) - (:arg-types sb!c::raw-vector positive-fixnum complex-double-float)) - ;;; These vops are useful for accessing the bits of a vector irrespective of ;;; what type of vector it is. ;;; |