From: Christophe R. <cr...@us...> - 2004-08-02 12:29:42
|
Update of /cvsroot/sbcl/sbcl/src/compiler/alpha In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29868/src/compiler/alpha Modified Files: arith.lisp Log Message: 0.8.13.17: Merge partly-working fix for bug 61 ... I think this fixes it on sparc, ppc and maybe mips. ... alpha is broken because it seems that just about every backtrace has a "bogus stack frame", maybe arising from the PAL stuff? Dunno. ... x86 is broken because, well, erm, dunno. Index: arith.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/alpha/arith.lisp,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- arith.lisp 30 May 2004 06:25:26 -0000 1.15 +++ arith.lisp 2 Aug 2004 12:29:31 -0000 1.16 @@ -139,6 +139,8 @@ ,@(when (and tagged-type (not arg-swap)) `((define-vop (,(symbolicate "FAST-" translate "-C/FIXNUM=>FIXNUM") fast-fixnum-c-binop) + (:args (x ,@(unless restore-fixnum-mask `(:target r)) + :scs (any-reg))) (:arg-types tagged-num (:constant ,tagged-type)) ,@(when restore-fixnum-mask `((:temporary (:sc non-descriptor-reg) temp))) |