From: Thiemo S. <th...@us...> - 2008-12-10 22:16:48
|
Update of /cvsroot/sbcl/sbcl/src/compiler/mips In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv19687/src/compiler/mips Modified Files: insts.lisp vm.lisp Log Message: 1.0.23.28: defconstant -> def!constant in the MIPS backend. Index: insts.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/insts.lisp,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- insts.lisp 2 May 2007 23:04:37 -0000 1.16 +++ insts.lisp 10 Dec 2008 22:04:14 -0000 1.17 @@ -168,12 +168,12 @@ ;;;; Constants used by instruction emitters. -(defconstant special-op #b000000) -(defconstant bcond-op #b000001) -(defconstant cop0-op #b010000) -(defconstant cop1-op #b010001) -(defconstant cop2-op #b010010) -(defconstant cop3-op #b010011) +(def!constant special-op #b000000) +(def!constant bcond-op #b000001) +(def!constant cop0-op #b010000) +(def!constant cop1-op #b010001) +(def!constant cop2-op #b010010) +(def!constant cop3-op #b010011) Index: vm.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/vm.lisp,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- vm.lisp 1 Aug 2008 17:10:22 -0000 1.16 +++ vm.lisp 10 Dec 2008 22:04:14 -0000 1.17 @@ -107,7 +107,7 @@ "-SC-NUMBER")))) (list* `(define-storage-class ,sc-name ,index ,@(cdr class)) - `(defconstant ,constant-name ,index) + `(def!constant ,constant-name ,index) `(export ',constant-name) forms))) (index 0 (1+ index)) @@ -318,20 +318,20 @@ ;;; The SC numbers for register and stack arguments/return values. ;;; -(defconstant register-arg-scn (meta-sc-number-or-lose 'descriptor-reg)) -(defconstant immediate-arg-scn (meta-sc-number-or-lose 'any-reg)) -(defconstant control-stack-arg-scn (meta-sc-number-or-lose 'control-stack)) +(def!constant register-arg-scn (meta-sc-number-or-lose 'descriptor-reg)) +(def!constant immediate-arg-scn (meta-sc-number-or-lose 'any-reg)) +(def!constant control-stack-arg-scn (meta-sc-number-or-lose 'control-stack)) (eval-when (:compile-toplevel :load-toplevel :execute) ;;; Offsets of special stack frame locations -(defconstant ocfp-save-offset 0) -(defconstant lra-save-offset 1) -(defconstant nfp-save-offset 2) +(def!constant ocfp-save-offset 0) +(def!constant lra-save-offset 1) +(def!constant nfp-save-offset 2) ;;; The number of arguments/return values passed in registers. ;;; -(defconstant register-arg-count 6) +(def!constant register-arg-count 6) ;;; The offsets within the register-arg SC that we pass values in, first ;;; value first. @@ -354,7 +354,7 @@ *register-arg-offsets*)) ;;; This is used by the debugger. -(defconstant single-value-return-byte-offset 8) +(def!constant single-value-return-byte-offset 8) ;;; This function is called by debug output routines that want a pretty name ;;; for a TN's location. It returns a thing that can be printed with PRINC. |