From: Christophe R. <cr...@us...> - 2003-05-28 14:49:46
|
Update of /cvsroot/sbcl/sbcl/src/compiler/x86 In directory sc8-pr-cvs1:/tmp/cvs-serv12500/src/compiler/x86 Modified Files: macros.lisp Log Message: 0.8.0.13: Miscellaneous grab bag of fixes ... use SB!XC:MOST-POSITIVE-FIXNUM in bit-bash type; the expression is no doubt still wrong for 64-bit lisps, but it stands a chance of being right for 32-bit; :) ... NIL is a valid structure slot name; (yes, really!) ... whine about invalid keywords in macro calls even if there are no defined keywords (but just &KEY) in the lambda list; ... prettify the compile-time warning in %COMPILE-TIME-TYPE-ERROR a little; ... a couple of IGNOREs Index: macros.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/macros.lisp,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- macros.lisp 5 May 2003 14:09:14 -0000 1.15 +++ macros.lisp 28 May 2003 14:49:42 -0000 1.16 @@ -111,6 +111,7 @@ (inst mov (make-ea :dword :scale 1 :index ,temp) ,reg))) #!-sb-thread (defmacro store-tl-symbol-value (reg symbol temp) + (declare (ignore temp)) `(store-symbol-value ,reg ,symbol)) (defmacro load-type (target source &optional (offset 0)) @@ -169,6 +170,9 @@ ;;; formalized, in documentation and in macro definition, ;;; with the macro becoming e.g. PSEUDO-ATOMIC-ALLOCATION. (defun allocation (alloc-tn size &optional inline) + ;; FIXME: since it appears that inline allocation is gone, we should + ;; remove the INLINE parameter, and all the above comments. + (declare (ignore inline)) (flet ((load-size (dst-tn size) (unless (and (tn-p size) (location= alloc-tn size)) (inst mov dst-tn size)))) |