From: Juho S. <js...@us...> - 2004-10-12 21:14:51
|
Update of /cvsroot/sbcl/sbcl/src/compiler/ppc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7708/src/compiler/ppc Modified Files: alloc.lisp Log Message: 0.8.15.12: On non-x86 platforms allocate the header TN of the var-alloc VOP in a non-descriptor-register instead of an any-register. Fixes "attempted to scavenge non-descriptor value" warning. Index: alloc.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/ppc/alloc.lisp,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- alloc.lisp 29 Jul 2003 13:01:56 -0000 1.2 +++ alloc.lisp 12 Oct 2004 21:14:40 -0000 1.3 @@ -170,7 +170,8 @@ (:info name words type lowtag) (:ignore name) (:results (result :scs (descriptor-reg))) - (:temporary (:scs (any-reg)) bytes header) + (:temporary (:scs (any-reg)) bytes) + (:temporary (:scs (non-descriptor-reg)) header) (:temporary (:sc non-descriptor-reg :offset nl3-offset) pa-flag) (:generator 6 (inst addi bytes extra (* (1+ words) n-word-bytes)) |