Update of /cvsroot/sbcl/sbcl/src/assembly/ppc
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv19214/src/assembly/ppc
Modified Files:
arith.lisp assem-rtns.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: arith.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/assembly/ppc/arith.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- arith.lisp 21 Feb 2006 22:59:31 -0000 1.7
+++ arith.lisp 21 May 2009 21:03:37 -0000 1.8
@@ -217,7 +217,7 @@
(:res quo any-reg nl2-offset)
(:res rem any-reg nl0-offset))
(aver (location= rem dividend))
- (let ((error (generate-error-code nil division-by-zero-error
+ (let ((error (generate-error-code nil 'division-by-zero-error
dividend divisor)))
(inst cmpwi divisor 0)
(inst beq error))
@@ -242,7 +242,7 @@
(:res rem any-reg nl0-offset))
(aver (location= rem dividend))
- (let ((error (generate-error-code nil division-by-zero-error
+ (let ((error (generate-error-code nil 'division-by-zero-error
dividend divisor)))
(inst cmpwi divisor 0)
(inst beq error))
@@ -267,7 +267,7 @@
(:res quo signed-reg nl2-offset)
(:res rem signed-reg nl0-offset))
- (let ((error (generate-error-code nil division-by-zero-error
+ (let ((error (generate-error-code nil 'division-by-zero-error
dividend divisor)))
(inst cmpwi divisor 0)
(inst beq error))
Index: assem-rtns.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/assembly/ppc/assem-rtns.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- assem-rtns.lisp 2 Nov 2006 15:35:12 -0000 1.3
+++ assem-rtns.lisp 21 May 2009 21:03:37 -0000 1.4
@@ -153,7 +153,7 @@
(:temp target-uwp any-reg nl2-offset))
(declare (ignore start count))
- (let ((error (generate-error-code nil invalid-unwind-error)))
+ (let ((error (generate-error-code nil 'invalid-unwind-error)))
(inst cmpwi block 0)
(inst beq error))
@@ -191,7 +191,7 @@
loop
- (let ((error (generate-error-code nil unseen-throw-tag-error target)))
+ (let ((error (generate-error-code nil 'unseen-throw-tag-error target)))
(inst cmpwi catch 0)
(inst beq error))
|