CMUCL commit: src/compiler (5 files)
Raymond Toy
rtoy at common-lisp.net
Mon Apr 19 19:49:02 CEST 2010
Date: Monday, April 19, 2010 @ 13:49:02
Author: rtoy
Path: /project/cmucl/cvsroot/src/compiler
Modified: generic/objdef.lisp generic/primtype.lisp generic/utils.lisp
x86/c-call.lisp x86/macros.lisp
Remove _N"" reader macro from docstrings when possible.
-----------------------+
generic/objdef.lisp | 16 ++++++++--------
generic/primtype.lisp | 4 ++--
generic/utils.lisp | 12 ++++++------
x86/c-call.lisp | 4 ++--
x86/macros.lisp | 18 +++++++++---------
5 files changed, 27 insertions(+), 27 deletions(-)
Index: src/compiler/generic/objdef.lisp
diff -u src/compiler/generic/objdef.lisp:1.62 src/compiler/generic/objdef.lisp:1.63
--- src/compiler/generic/objdef.lisp:1.62 Fri Mar 19 11:19:01 2010
+++ src/compiler/generic/objdef.lisp Mon Apr 19 13:49:02 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/generic/objdef.lisp,v 1.62 2010-03-19 15:19:01 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/generic/objdef.lisp,v 1.63 2010-04-19 17:49:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -72,29 +72,29 @@
(eval-when (compile eval load)
(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 type-bits 8
- _N"Number of bits used in the header word of a data block for typeing.")
+ "Number of bits used in the header word of a data block for typeing.")
(defconstant type-mask (1- (ash 1 type-bits))
- _N"Mask to extract the type from a header word.")
+ "Mask to extract the type from a header word.")
); eval-when
(defparameter target-most-positive-fixnum (1- (ash 1 #-amd64 29 #+amd64 61))
- _N"most-positive-fixnum in the target architecture.")
+ "most-positive-fixnum in the target architecture.")
(defparameter target-most-negative-fixnum (ash -1 #-amd64 29 #+amd64 61)
- _N"most-negative-fixnum in the target architecture.")
+ "most-negative-fixnum in the target architecture.")
;;; The main types. These types are represented by the low three bits of the
Index: src/compiler/generic/primtype.lisp
diff -u src/compiler/generic/primtype.lisp:1.26 src/compiler/generic/primtype.lisp:1.27
--- src/compiler/generic/primtype.lisp:1.26 Fri Mar 19 11:19:01 2010
+++ src/compiler/generic/primtype.lisp Mon Apr 19 13:49:02 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/generic/primtype.lisp,v 1.26 2010-03-19 15:19:01 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/generic/primtype.lisp,v 1.27 2010-04-19 17:49:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -220,7 +220,7 @@
((complex long-float) . simple-array-complex-long-float)
#+double-double ((complex double-double-float) . simple-array-complex-double-double-float)
(t . simple-vector))
- _N"An a-list for mapping simple array element types to their
+ "An a-list for mapping simple array element types to their
corresponding primitive types.")
Index: src/compiler/generic/utils.lisp
diff -u src/compiler/generic/utils.lisp:1.11 src/compiler/generic/utils.lisp:1.12
--- src/compiler/generic/utils.lisp:1.11 Fri Mar 19 11:19:01 2010
+++ src/compiler/generic/utils.lisp Mon Apr 19 13:49:02 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/generic/utils.lisp,v 1.11 2010-03-19 15:19:01 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/generic/utils.lisp,v 1.12 2010-04-19 17:49:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -25,7 +25,7 @@
;;;; Handy routine for making fixnums:
(defun fixnumize (num)
- _N"Make a fixnum out of NUM. (i.e. shift by two bits if it will fit.)"
+ "Make a fixnum out of NUM. (i.e. shift by two bits if it will fit.)"
;; the bounds must be hardcoded for cross-compilation
(if (<= #-amd64 #x-20000000 #+amd64 #x-2000000000000000
num
@@ -42,7 +42,7 @@
(and (member symbol static-symbols) t)))
(defun static-symbol-offset (symbol)
- _N"Returns the byte offset of the static symbol Symbol."
+ "Returns the byte offset of the static symbol Symbol."
(if symbol
(let ((posn (position symbol static-symbols)))
(unless posn (error _"~S is not a static symbol." symbol))
@@ -54,7 +54,7 @@
0))
(defun offset-static-symbol (offset)
- _N"Given a byte offset, Offset, returns the appropriate static symbol."
+ "Given a byte offset, Offset, returns the appropriate static symbol."
(if (zerop offset)
nil
(multiple-value-bind
@@ -68,7 +68,7 @@
(elt static-symbols n))))
(defun static-function-offset (name)
- _N"Return the (byte) offset from NIL to the start of the fdefn object
+ "Return the (byte) offset from NIL to the start of the fdefn object
for the static function NAME."
(let ((static-syms (length static-symbols))
(static-function-index (position name static-functions)))
@@ -82,7 +82,7 @@
(* fdefn-raw-addr-slot word-bytes))))
(defun offset-static-function (offset)
- _N"Given a byte offset, Offset, returns the appropriate static function
+ "Given a byte offset, Offset, returns the appropriate static function
symbol."
(let* ((static-syms (length static-symbols))
(offsets (+ (* static-syms (pad-data-block symbol-size))
Index: src/compiler/x86/c-call.lisp
diff -u src/compiler/x86/c-call.lisp:1.21 src/compiler/x86/c-call.lisp:1.22
--- src/compiler/x86/c-call.lisp:1.21 Fri Mar 19 11:19:01 2010
+++ src/compiler/x86/c-call.lisp Mon Apr 19 13:49:02 2010
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group at cs.cmu.edu.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/x86/c-call.lisp,v 1.21 2010-03-19 15:19:01 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/x86/c-call.lisp,v 1.22 2010-04-19 17:49:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -267,7 +267,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))
(segment (make-segment))
Index: src/compiler/x86/macros.lisp
diff -u src/compiler/x86/macros.lisp:1.27 src/compiler/x86/macros.lisp:1.28
--- src/compiler/x86/macros.lisp:1.27 Fri Mar 19 11:19:01 2010
+++ src/compiler/x86/macros.lisp Mon Apr 19 13:49:02 2010
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group at cs.cmu.edu.
;;;
(ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/x86/macros.lisp,v 1.27 2010-03-19 15:19:01 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/x86/macros.lisp,v 1.28 2010-04-19 17:49:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -50,7 +50,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)
@@ -103,7 +103,7 @@
(- other-pointer-type))))
(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)
@@ -253,7 +253,7 @@
(values))
(defun allocation (alloc-tn size &optional inline dynamic-extent)
- _N"Allocate an object with a size in bytes given by Size.
+ "Allocate an object with a size in bytes given by Size.
The size may be an integer or a TN.
If Inline is a VOP node-var then it is used to make an appropriate
speed vs size decision. If Dynamic-Extent is true, and otherwise
@@ -271,7 +271,7 @@
(defmacro with-fixed-allocation ((result-tn type-code size &optional inline)
&rest forms)
- _N"Allocate an other-pointer object of fixed Size with a single
+ "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."
`(pseudo-atomic
@@ -311,20 +311,20 @@
(inst byte (aref ,vector i)))))))))
(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
,@(emit-error-break vop cerror-trap error-code values)
(inst jmp ,label)))
(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)))
@@ -333,7 +333,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."
More information about the cmucl-commit
mailing list