From: Nathan F. <nf...@us...> - 2009-05-21 21:03:51
|
Update of /cvsroot/sbcl/sbcl/src/compiler/generic In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv19214/src/compiler/generic Modified Files: array.lisp Log Message: 1.0.28.68: move PPC over to slimmed-down EMIT-ERROR-BREAK interface nyef pointed out that compiler/generic/array.lisp was kinda ugly with the #!+ condition goo it in. This patch is the first step towards moving all backends over to the slimmer EMIT-ERROR-BREAK interface--one that doesn't require duplicating lots of error generation code in VOP generation functions. Index: array.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/array.lisp,v retrieving revision 1.6 retrieving revision 1.7 diff -u -d -r1.6 -r1.7 --- array.lisp 8 May 2008 15:05:22 -0000 1.6 +++ array.lisp 21 May 2009 21:03:37 -0000 1.7 @@ -24,8 +24,8 @@ (:save-p :compute-only) (:generator 1 (error-call vop - #!+(or x86 x86-64) 'nil-array-accessed-error - #!-(or x86 x86-64) nil-array-accessed-error + #!+(or x86 x86-64 ppc) 'nil-array-accessed-error + #!-(or x86 x86-64 ppc) nil-array-accessed-error object))) ;;; It shouldn't be possible to fall through to here in normal user @@ -52,8 +52,8 @@ (:save-p :compute-only) (:generator 1 (error-call vop - #!+(or x86 x86-64) 'nil-array-accessed-error - #!-(or x86 x86-64) nil-array-accessed-error + #!+(or x86 x86-64 ppc) 'nil-array-accessed-error + #!-(or x86 x86-64 ppc) nil-array-accessed-error object))) (define-vop (data-vector-ref-with-offset/simple-array-nil) @@ -71,8 +71,8 @@ (:save-p :compute-only) (:generator 1 (error-call vop - #!+(or x86 x86-64) 'nil-array-accessed-error - #!-(or x86 x86-64) nil-array-accessed-error + #!+(or x86 x86-64 ppc) 'nil-array-accessed-error + #!-(or x86 x86-64 ppc) nil-array-accessed-error object))) (define-vop (data-vector-set/simple-array-nil) @@ -91,8 +91,8 @@ (:save-p :compute-only) (:generator 1 (error-call vop - #!+(or x86 x86-64) 'nil-array-accessed-error - #!-(or x86 x86-64) nil-array-accessed-error + #!+(or x86 x86-64 ppc) 'nil-array-accessed-error + #!-(or x86 x86-64 ppc) nil-array-accessed-error object))) ;;; FIXME: There is probably plenty of other array stuff that looks |