From 59a5d0bc0a859ac526c00db1311ea9622f7baaab Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Wed, 14 May 2003 14:28:17 +0000 Subject: [PATCH] Make the standard Sparc register names be symbols so that *print-case* will be honored when printing out the register names. --- compiler/sparc/insts.lisp | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp index 6219f80c1..307e6b65c 100644 --- a/compiler/sparc/insts.lisp +++ b/compiler/sparc/insts.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.39 2003/02/25 17:05:12 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.40 2003/05/14 14:28:17 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -104,10 +104,14 @@ Otherwise, use the Sparc register names") "The Lisp names for the Sparc integer registers") (defparameter sparc-reg-symbols - #("%G0" "%G1" "%G2" "%G3" "%G4" "%G5" NIL NIL - "%O0" "%O1" "%O2" "%O3" "%O4" "%O5" "%O6" "%O7" - "%L0" "%L1" "%L2" "%L3" "%L4" "%L5" "%L6" "%L7" - "%I0" "%I1" "%I2" "%I3" "%I4" "%I5" NIL "%I7") + (map 'vector + #'(lambda (name) + (cond ((null name) nil) + (t (make-symbol (concatenate 'string "%" name))))) + #("G0" "G1" "G2" "G3" "G4" "G5" "G6" "G7" + "O0" "O1" "O2" "O3" "O4" "O5" "O6" "O7" + "L0" "L1" "L2" "L3" "L4" "L5" "L6" "L7" + "I0" "I1" "I2" "I3" "I4" "I5" "I6" "I7")) "The standard names for the Sparc integer registers") (defun get-reg-name (index) -- GitLab