CMUCL commit: src/compiler/sparc (5 files)
Raymond Toy
rtoy at common-lisp.net
Mon Apr 19 20:21:31 CEST 2010
Date: Monday, April 19, 2010 @ 14:21:31
Author: rtoy
Path: /project/cmucl/cvsroot/src/compiler/sparc
Modified: arith.lisp c-call.lisp insts.lisp macros.lisp parms.lisp
Remove _N"" reader macro from docstrings when possible.
-------------+
arith.lisp | 8 ++++----
c-call.lisp | 4 ++--
insts.lisp | 10 +++++-----
macros.lisp | 26 +++++++++++++-------------
parms.lisp | 26 +++++++++++++-------------
5 files changed, 37 insertions(+), 37 deletions(-)
Index: src/compiler/sparc/arith.lisp
diff -u src/compiler/sparc/arith.lisp:1.47 src/compiler/sparc/arith.lisp:1.48
--- src/compiler/sparc/arith.lisp:1.47 Fri Mar 19 11:19:01 2010
+++ src/compiler/sparc/arith.lisp Mon Apr 19 14:21:31 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/sparc/arith.lisp,v 1.47 2010-03-19 15:19:01 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/sparc/arith.lisp,v 1.48 2010-04-19 18:21:31 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -1297,7 +1297,7 @@
;;; routines.
;;;
(defun emit-multiply (multiplier multiplicand result-high result-low)
- _N"Emit code to multiply MULTIPLIER with MULTIPLICAND, putting the result
+ "Emit code to multiply MULTIPLIER with MULTIPLICAND, putting the result
in RESULT-HIGH and RESULT-LOW. KIND is either :signed or :unsigned.
Note: the lifetimes of MULTIPLICAND and RESULT-HIGH overlap."
(declare (type tn multiplier result-high result-low)
@@ -2577,12 +2577,12 @@
(deftransform * ((x y)
((unsigned-byte 32) (constant-argument (unsigned-byte 32)))
(unsigned-byte 32))
- _N"recode as shifts and adds"
+ "recode as shifts and adds"
(*-transformer y))
#+modular-arith
(deftransform vm::*-mod32 ((x y)
((unsigned-byte 32) (constant-argument (unsigned-byte 32)))
(unsigned-byte 32))
- _N"recode as shifts and adds"
+ "recode as shifts and adds"
(*-transformer y))
Index: src/compiler/sparc/c-call.lisp
diff -u src/compiler/sparc/c-call.lisp:1.28 src/compiler/sparc/c-call.lisp:1.29
--- src/compiler/sparc/c-call.lisp:1.28 Fri Mar 19 11:19:01 2010
+++ src/compiler/sparc/c-call.lisp Mon Apr 19 14:21:31 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/sparc/c-call.lisp,v 1.28 2010-03-19 15:19:01 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/sparc/c-call.lisp,v 1.29 2010-04-19 18:21:31 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -366,7 +366,7 @@
(eq (machine-rep type1) (machine-rep type2)))))
(defun make-callback-trampoline (index fn-type)
- _N"Cons up a piece of code which calls call-callback with INDEX and a
+ "Cons up a piece of code which calls call-callback with INDEX and a
pointer to the arguments."
(let ((return-type (alien-function-type-result-type fn-type)))
(flet ((def-reg-tn (offset)
Index: src/compiler/sparc/insts.lisp
diff -u src/compiler/sparc/insts.lisp:1.54 src/compiler/sparc/insts.lisp:1.55
--- src/compiler/sparc/insts.lisp:1.54 Fri Mar 19 11:19:01 2010
+++ src/compiler/sparc/insts.lisp Mon Apr 19 14:21:31 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/sparc/insts.lisp,v 1.54 2010-03-19 15:19:01 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/sparc/insts.lisp,v 1.55 2010-04-19 18:21:31 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -56,7 +56,7 @@
:opcode-column-width 11)
(defvar *disassem-use-lisp-reg-names* t
- _N"If non-NIL, print registers using the Lisp register names.
+ "If non-NIL, print registers using the Lisp register names.
Otherwise, use the Sparc register names")
(def-vm-support-routine location-number (loc)
@@ -102,7 +102,7 @@
(cond ((null name) nil)
(t (make-symbol (concatenate 'string "%" name)))))
sparc::*register-names*)
- _N"The Lisp names for the Sparc integer registers")
+ "The Lisp names for the Sparc integer registers")
(defparameter sparc-reg-symbols
(map 'vector
@@ -113,7 +113,7 @@
"O0" "O1" "O2" "O3" "O4" "O5" "O6" "O7"
"L0" "L1" "L2" "L3" "L4" "L5" "L6" "L7"
"I0" "I1" "I2" "I3" "I4" "I5" "I6" "I7"))
- _N"The standard names for the Sparc integer registers")
+ "The standard names for the Sparc integer registers")
(defun get-reg-name (index)
(if *disassem-use-lisp-reg-names*
@@ -121,7 +121,7 @@
(aref sparc-reg-symbols index)))
(defvar *note-sethi-inst* nil
- _N"An alist for the disassembler indicating the target register and
+ "An alist for the disassembler indicating the target register and
value used in a SETHI instruction. This is used to make annotations
about function addresses and register values.")
Index: src/compiler/sparc/macros.lisp
diff -u src/compiler/sparc/macros.lisp:1.35 src/compiler/sparc/macros.lisp:1.36
--- src/compiler/sparc/macros.lisp:1.35 Fri Mar 19 11:19:01 2010
+++ src/compiler/sparc/macros.lisp Mon Apr 19 14:21:31 2010
@@ -5,11 +5,11 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/sparc/macros.lisp,v 1.35 2010-03-19 15:19:01 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/sparc/macros.lisp,v 1.36 2010-04-19 18:21:31 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
-;;; $Header: /project/cmucl/cvsroot/src/compiler/sparc/macros.lisp,v 1.35 2010-03-19 15:19:01 rtoy Exp $
+;;; $Header: /project/cmucl/cvsroot/src/compiler/sparc/macros.lisp,v 1.36 2010-04-19 18:21:31 rtoy Exp $
;;;
;;; This file contains various useful macros for generating SPARC code.
;;;
@@ -23,7 +23,7 @@
;;; Instruction-like macros.
(defmacro move (dst src)
- _N"Move SRC into DST unless they are location=."
+ "Move SRC into DST unless they are location=."
(once-only ((n-dst dst)
(n-src src))
`(unless (location= ,n-dst ,n-src)
@@ -109,7 +109,7 @@
(frob function))
(defmacro load-type (target source &optional (offset 0))
- _N"Loads the type bits of a pointer into target independent of
+ "Loads the type bits of a pointer into target independent of
byte-ordering issues."
(once-only ((n-target target)
(n-source source)
@@ -124,14 +124,14 @@
;;; return instructions.
(defmacro lisp-jump (function)
- _N"Jump to the lisp function FUNCTION. LIP is an interior-reg temporary."
+ "Jump to the lisp function FUNCTION. LIP is an interior-reg temporary."
`(progn
(inst j ,function
(- (ash function-code-offset word-shift) vm:function-pointer-type))
(move code-tn ,function)))
(defmacro lisp-return (return-pc &key (offset 0) (frob-code t))
- _N"Return to RETURN-PC."
+ "Return to RETURN-PC."
`(progn
(inst j ,return-pc
(- (* (1+ ,offset) word-bytes) other-pointer-type))
@@ -140,7 +140,7 @@
'(inst nop))))
(defmacro emit-return-pc (label)
- _N"Emit a return-pc header word. LABEL is the label to use for this return-pc."
+ "Emit a return-pc header word. LABEL is the label to use for this return-pc."
`(progn
(align lowtag-bits)
(emit-label ,label)
@@ -174,7 +174,7 @@
;;; MAYBE-LOAD-STACK-TN -- Interface
;;;
(defmacro maybe-load-stack-tn (reg reg-or-stack)
- _N"Move the TN Reg-Or-Stack into Reg if it isn't already there."
+ "Move the TN Reg-Or-Stack into Reg if it isn't already there."
(once-only ((n-reg reg)
(n-stack reg-or-stack))
`(sc-case ,n-reg
@@ -295,7 +295,7 @@
&key (lowtag other-pointer-type)
stack-p)
&body body)
- _N"Do stuff to allocate an other-pointer object of fixed Size with a single
+ "Do stuff to allocate an other-pointer object of fixed Size with a single
word header having the specified Type-Code. The result is placed in
Result-TN, and Temp-TN is a non-descriptor temp (which may be randomly used
by the body.) The body is placed inside the PSEUDO-ATOMIC, and presumably
@@ -546,20 +546,20 @@
(align word-shift)))))
(defmacro error-call (vop error-code &rest values)
- _N"Cause an error. ERROR-CODE is the error to cause."
+ "Cause an error. ERROR-CODE is the error to cause."
(cons 'progn
(emit-error-break vop error-trap error-code values)))
(defmacro cerror-call (vop label error-code &rest values)
- _N"Cause a continuable error. If the error is continued, execution resumes at
+ "Cause a continuable error. If the error is continued, execution resumes at
LABEL."
`(progn
(inst b ,label)
,@(emit-error-break vop cerror-trap error-code values)))
(defmacro generate-error-code (vop error-code &rest values)
- _N"Generate-Error-Code Error-code Value*
+ "Generate-Error-Code Error-code Value*
Emit code for an error with the specified Error-Code and context Values."
`(assemble (*elsewhere*)
(let ((start-lab (gen-label)))
@@ -568,7 +568,7 @@
start-lab)))
(defmacro generate-cerror-code (vop error-code &rest values)
- _N"Generate-CError-Code Error-code Value*
+ "Generate-CError-Code Error-code Value*
Emit code for a continuable error with the specified Error-Code and
context Values. If the error is continued, execution resumes after
the GENERATE-CERROR-CODE form."
Index: src/compiler/sparc/parms.lisp
diff -u src/compiler/sparc/parms.lisp:1.60 src/compiler/sparc/parms.lisp:1.61
--- src/compiler/sparc/parms.lisp:1.60 Fri Mar 19 11:19:01 2010
+++ src/compiler/sparc/parms.lisp Mon Apr 19 14:21:31 2010
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/sparc/parms.lisp,v 1.60 2010-03-19 15:19:01 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/sparc/parms.lisp,v 1.61 2010-04-19 18:21:31 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -87,41 +87,41 @@
(eval-when (compile load eval)
(defconstant word-bits 32
- _N"Number of bits per word where a word holds one lisp descriptor.")
+ "Number of bits per word where a word holds one lisp descriptor.")
(defconstant byte-bits 8
- _N"Number of bits per byte where a byte is the smallest addressable object.")
+ "Number of bits per byte where a byte is the smallest addressable object.")
(defconstant char-bits #-unicode 8 #+unicode 16
- _N"Number of bits needed to represent a character")
+ "Number of bits needed to represent a character")
(defconstant char-bytes (truncate char-bits byte-bits)
- _N"Number of bytes needed to represent a character")
+ "Number of bytes needed to represent a character")
(defconstant word-shift (1- (integer-length (/ word-bits byte-bits)))
- _N"Number of bits to shift between word addresses and byte addresses.")
+ "Number of bits to shift between word addresses and byte addresses.")
(defconstant word-bytes (/ word-bits byte-bits)
- _N"Number of bytes in a word.")
+ "Number of bytes in a word.")
(defconstant lowtag-bits 3
- _N"Number of bits at the low end of a pointer used for type information.")
+ "Number of bits at the low end of a pointer used for type information.")
(defconstant lowtag-mask (1- (ash 1 lowtag-bits))
- _N"Mask to extract the low tag bits from a pointer.")
+ "Mask to extract the low tag bits from a pointer.")
(defconstant lowtag-limit (ash 1 lowtag-bits)
- _N"Exclusive upper bound on the value of the low tag bits from a
+ "Exclusive upper bound on the value of the low tag bits from a
pointer.")
(defconstant fixnum-tag-bits (1- lowtag-bits)
- _N"Number of tag bits used for a fixnum")
+ "Number of tag bits used for a fixnum")
(defconstant fixnum-tag-mask (1- (ash 1 fixnum-tag-bits))
- _N"Mask to get the fixnum tag")
+ "Mask to get the fixnum tag")
(defconstant positive-fixnum-bits (- word-bits fixnum-tag-bits 1)
- _N"Maximum number of bits in a positive fixnum")
+ "Maximum number of bits in a positive fixnum")
(defconstant float-sign-shift 31)
More information about the cmucl-commit
mailing list