From: Daniel B. <da...@us...> - 2003-07-21 00:57:09
|
Update of /cvsroot/sbcl/sbcl/src/compiler/mips In directory sc8-pr-cvs1:/tmp/cvs-serv7006/src/compiler/mips Modified Files: parms.lisp Log Message: 0.8.1.50 Alpha fixes before 0.8.2 ... correct type declaration for FOREIGN-SYMBOL-ADDRESS-AS-INTEGER (add N-MACHINE-WORD-BITS to all backends for this purpose) ... correct argument order in the depths of DATA-VECTOR-SET-C/ (DEF-SMALL-DATA-VECTOR-FROBS), so Alpha now passes bit array tests run-tests.sh now prints the filename of the failing test just before stopping, which should save on the effort required to misinterpret the backtrace delete final full stop from " cd tests && sh ./run-tests.sh." in make.sh so I can triple-click the line to do exactly that commit patch for BASE-CHAR-COMPARE/C that Christophe sent me (alpha/char.lisp). I hope this is what he wanted ... Index: parms.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/parms.lisp,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- parms.lisp 2 Jul 2003 14:32:12 -0000 1.4 +++ parms.lisp 21 Jul 2003 00:57:06 -0000 1.5 @@ -3,6 +3,10 @@ (def!constant n-word-bits 32 "Number of bits per word where a word holds one lisp descriptor.") +;;; the natural width of a machine word (as seen in e.g. register width, +;;; address space) +(def!constant n-machine-word-bits 32) + (def!constant n-byte-bits 8 "Number of bits per byte where a byte is the smallest addressable object.") |