From: Christophe R. <cr...@us...> - 2005-04-05 11:04:26
|
Update of /cvsroot/sbcl/sbcl/src/compiler/hppa In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16524/src/compiler/hppa Modified Files: vm.lisp Log Message: 0.8.21.17: Fix fixnum / sb!xc:fixnum xc bug (as in discussion with Bruno Haible sbcl-devel 2005-03/2005-04) ... don't use the CL:FIXNUM type in immediate-constant-sc; ... write and use a test in before-xc. Index: vm.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/hppa/vm.lisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- vm.lisp 1 Nov 2004 12:36:05 -0000 1.5 +++ vm.lisp 5 Apr 2005 11:03:32 -0000 1.6 @@ -277,7 +277,8 @@ (sc-number-or-lose 'zero)) (null (sc-number-or-lose 'null)) - ((or fixnum system-area-pointer character) + ((or (integer #.sb!xc:most-negative-fixnum #.sb!xc:most-positive-fixnum) + system-area-pointer character) (sc-number-or-lose 'immediate)) (symbol (if (static-symbol-p value) |