From: Christophe R. <cr...@us...> - 2004-08-02 12:29:40
|
Update of /cvsroot/sbcl/sbcl/src/assembly/x86 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29868/src/assembly/x86 Modified Files: support.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: support.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/assembly/x86/support.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- support.lisp 11 Nov 2000 22:57:14 -0000 1.3 +++ support.lisp 2 Aug 2004 12:29:30 -0000 1.4 @@ -11,7 +11,7 @@ (!def-vm-support-routine generate-call-sequence (name style vop) (ecase style - (:raw + ((:raw :none) (values `((inst call (make-fixup ',name :assembly-routine))) nil)) @@ -21,11 +21,7 @@ (inst call (make-fixup ',name :assembly-routine)) (note-this-location ,vop :single-value-return) (move esp-tn ebx-tn)) - '((:save-p :compute-only)))) - (:none - (values - `((inst jmp (make-fixup ',name :assembly-routine))) - nil)))) + '((:save-p :compute-only)))))) (!def-vm-support-routine generate-return-sequence (style) (ecase style |