From: Christophe R. <cr...@us...> - 2004-01-08 16:26:36
|
Update of /cvsroot/sbcl/sbcl/src/compiler/ppc In directory sc8-pr-cvs1:/tmp/cvs-serv2461/src/compiler/ppc Modified Files: system.lisp Log Message: 0.8.7.10: Various things that are definitely fixes for something ... s/DO-PENDING-INTERRUPT/RECEIVE-PENDING-INTERRUPT/ in ppc/system.lisp (as suggested by Lennart Staflin sbcl-help 2004-01-01). This may not fix everything, but it's clearly part of *a* problem if not *the* problem. ... define and use a fixnump() static inline function in gencgc.c and purify.c, correcting along the way the problem in ptrans_code (CSR sbcl-devel 2004-01-08) Let's see what difference that makes, shall we? Index: system.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/ppc/system.lisp,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- system.lisp 10 Nov 2003 23:26:38 -0000 1.4 +++ system.lisp 8 Jan 2004 16:26:33 -0000 1.5 @@ -210,18 +210,16 @@ ;;;; Other random VOPs. -(defknown sb!unix::do-pending-interrupt () (values)) -(define-vop (sb!unix::do-pending-interrupt) +(defknown sb!unix::receive-pending-interrupt () (values)) +(define-vop (sb!unix::receive-pending-interrupt) (:policy :fast-safe) - (:translate sb!unix::do-pending-interrupt) + (:translate sb!unix::receive-pending-interrupt) (:generator 1 (inst unimp pending-interrupt-trap))) (define-vop (halt) (:generator 1 (inst unimp halt-trap))) - - ;;;; Dynamic vop count collection support |