CMUCL commit: intl-branch src (8 files)
Raymond Toy
rtoy at common-lisp.net
Wed Feb 10 23:47:04 CET 2010
Date: Wednesday, February 10, 2010 @ 17:47:04
Author: rtoy
Path: /project/cmucl/cvsroot/src
Tag: intl-branch
Modified: compiler/debug.lisp compiler/dfo.lisp compiler/disassem.lisp
compiler/dump.lisp compiler/eval-comp.lisp compiler/eval.lisp
i18n/locale/cmucl.pot i18n/locale/ko/LC_MESSAGES/cmucl.po
Mark translatable strings; regenerate cmucl.pot and ko/cmucl.po
accordingly.
-------------------------------------+
compiler/debug.lisp | 10
compiler/dfo.lisp | 4
compiler/disassem.lisp | 240 ++++----
compiler/dump.lisp | 20
compiler/eval-comp.lisp | 12
compiler/eval.lisp | 26
i18n/locale/cmucl.pot | 897 +++++++++++++++++++++++++++++++++
i18n/locale/ko/LC_MESSAGES/cmucl.po | 907 +++++++++++++++++++++++++++++++++-
8 files changed, 1958 insertions(+), 158 deletions(-)
Index: src/compiler/debug.lisp
diff -u src/compiler/debug.lisp:1.37.14.1 src/compiler/debug.lisp:1.37.14.2
--- src/compiler/debug.lisp:1.37.14.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/debug.lisp Wed Feb 10 17:47: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/debug.lisp,v 1.37.14.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/debug.lisp,v 1.37.14.2 2010-02-10 22:47:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -21,7 +21,7 @@
(defvar *args* ()
- "This variable is bound to the format arguments when an error is signalled
+ _N"This variable is bound to the format arguments when an error is signalled
by Barf or Burp.")
(defvar *ignored-errors* (make-hash-table :test #'equal))
@@ -43,7 +43,7 @@
(setf (gethash string *ignored-errors*) t)))))
(defvar *burp-action* :warn
- "Action taken by the Burp function when a possible compiler bug is detected.
+ _N"Action taken by the Burp function when a possible compiler bug is detected.
One of :Warn, :Error or :None.")
(declaim (type (member :warn :error :none) *burp-action*))
@@ -1314,7 +1314,7 @@
;;; List-Conflicts -- Interface
;;;
(defun list-conflicts (tn)
- "Return a list of a the TNs that conflict with TN. Sort of, kind of. For
+ _N"Return a list of a the TNs that conflict with TN. Sort of, kind of. For
debugging use only. Probably doesn't work on :COMPONENT TNs."
(assert (member (tn-kind tn) '(:normal :environment :debug-environment)))
(let ((confs (tn-global-conflicts tn)))
@@ -1357,7 +1357,7 @@
;;; Nth-VOP -- Interface
;;;
(defun nth-vop (thing n)
- "Return the Nth VOP in the IR2-Block pointed to by Thing."
+ _N"Return the Nth VOP in the IR2-Block pointed to by Thing."
(let ((block (block-info (block-or-lose thing))))
(do ((i 0 (1+ i))
(vop (ir2-block-start-vop block) (vop-next vop)))
Index: src/compiler/dfo.lisp
diff -u src/compiler/dfo.lisp:1.27.42.1 src/compiler/dfo.lisp:1.27.42.2
--- src/compiler/dfo.lisp:1.27.42.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/dfo.lisp Wed Feb 10 17:47: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/dfo.lisp,v 1.27.42.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/dfo.lisp,v 1.27.42.2 2010-02-10 22:47:02 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -318,7 +318,7 @@
(real-top com)))
(has-top
(setf (component-kind com) :top-level)
- (setf (component-name com) "Top-Level Form")
+ (setf (component-name com) _"Top-Level Form")
(top com))
(t
(delete-component com))))))
Index: src/compiler/disassem.lisp
diff -u src/compiler/disassem.lisp:1.55.14.1 src/compiler/disassem.lisp:1.55.14.2
--- src/compiler/disassem.lisp:1.55.14.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/disassem.lisp Wed Feb 10 17:47:03 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/disassem.lisp,v 1.55.14.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/disassem.lisp,v 1.55.14.2 2010-02-10 22:47:03 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -99,11 +99,11 @@
;;; ----------------------------------------------------------------
(defvar *opcode-column-width* nil
- "The width of the column in which instruction-names are printed.
+ _N"The width of the column in which instruction-names are printed.
NIL means use the default. A value of zero gives the effect of not
aligning the arguments at all.")
(defvar *note-column* 45
- "The column in which end-of-line comments for notes are started.")
+ _N"The column in which end-of-line comments for notes are started.")
(defconstant default-opcode-column-width 6)
(defconstant default-location-column-width 8)
@@ -129,7 +129,7 @@
;;; ----------------------------------------------------------------
(defmacro set-disassem-params (&rest args)
- "Specify global disassembler params for C:*TARGET-BACKEND*.
+ _N"Specify global disassembler params for C:*TARGET-BACKEND*.
Keyword arguments include:
:INSTRUCTION-ALIGNMENT number
@@ -144,7 +144,7 @@
(gen-preamble-form args))
(defmacro define-argument-type (name &rest args)
- "DEFINE-ARGUMENT-TYPE Name {Key Value}*
+ _N"DEFINE-ARGUMENT-TYPE Name {Key Value}*
Define a disassembler argument type NAME (which can then be referenced in
another argument definition using the :TYPE keyword argument). Keyword
arguments are:
@@ -173,7 +173,7 @@
(gen-arg-type-def-form name args))
(defmacro define-instruction-format (header &rest fields)
- "DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*
+ _N"DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*
Define an instruction format NAME for the disassembler's use. LENGTH is
the length of the format in bits.
Possible FORMAT-KEYs:
@@ -245,7 +245,7 @@
(multiple-value-bind (bytes rbits)
(truncate bits vm:byte-bits)
(when (not (zerop rbits))
- (error "~d bits is not a byte-multiple" bits))
+ (error _"~d bits is not a byte-multiple" bits))
bytes))
(defun sign-extend (int size)
@@ -256,13 +256,13 @@
int))
(defun aligned-p (address size)
- "Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary."
+ _N"Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary."
(declare (type address address)
(type alignment size))
(zerop (logand (1- size) address)))
(defun align (address size)
- "Return ADDRESS aligned *upward* to a SIZE byte boundary."
+ _N"Return ADDRESS aligned *upward* to a SIZE byte boundary."
(declare (type address address)
(type alignment size))
(logandc1 (1- size) (+ (1- size) address)))
@@ -292,14 +292,14 @@
;;; recursively filtering things that usually don't change.
(defun sharing-cons (old-cons car cdr)
- "If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return
+ _N"If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return
OLD-CONS, otherwise return (cons CAR CDR)."
(if (and (eq car (car old-cons)) (eq cdr (cdr old-cons)))
old-cons
(cons car cdr)))
(defun sharing-mapcar (fun list)
- "A simple (one list arg) mapcar that avoids consing up a new list
+ _N"A simple (one list arg) mapcar that avoids consing up a new list
as long as the results of calling FUN on the elements of LIST are
eq to the original."
(and list
@@ -524,7 +524,7 @@
(valsrc-source thing))
((functionp thing)
(pd-error
- "Can't dump functions, so function ref form must be quoted: ~s"
+ _"Can't dump functions, so function ref form must be quoted: ~s"
thing))
((self-evaluating-p thing)
thing)
@@ -567,7 +567,7 @@
(defun arg-or-lose (name funstate)
(let ((arg (find name (funstate-args funstate) :key #'arg-name)))
(when (null arg)
- (pd-error "Unknown argument ~s" name))
+ (pd-error _"Unknown argument ~s" name))
arg))
(defun get-arg-temp (arg kind funstate)
@@ -654,7 +654,7 @@
(when (and (not allow-multiple-p)
(listp forms)
(/= (length forms) 1))
- (pd-error "~s must not have multiple values" arg))
+ (pd-error _"~s must not have multiple values" arg))
(maybe-listify forms)))
;;; ----------------------------------------------------------------
@@ -672,7 +672,7 @@
(defun arg-form-kind-or-lose (kind)
(or (getf *arg-form-kinds* kind)
- (pd-error "Unknown arg-form kind ~s" kind)))
+ (pd-error _"Unknown arg-form kind ~s" kind)))
(defun find-arg-form-producer (kind)
(arg-form-kind-producer (arg-form-kind-or-lose kind)))
@@ -771,7 +771,7 @@
(not (atom adjusted-forms))
(/= (Length adjusted-forms) 1))
(pd-error
- "Cannot label a multiple-field argument ~
+ _"Cannot label a multiple-field argument ~
unless using a function: ~s" arg)
`((lookup-label ,form))))
adjusted-forms)))
@@ -785,7 +785,7 @@
(def-arg-form-kind (:printed)
:producer #'(lambda (&rest noise)
(declare (ignore noise))
- (pd-error "Bogus! Can't use the :printed value of an arg!"))
+ (pd-error _"Bogus! Can't use the :printed value of an arg!"))
:checker #'(lambda (new-arg old-arg)
(valsrc-equal (arg-printer new-arg) (arg-printer old-arg))))
@@ -821,7 +821,7 @@
(fields (arg-fields arg))
(consts body))
(when (not (= (length fields) (length consts)))
- (pd-error "number of constants doesn't match number of fields ~
+ (pd-error _"number of constants doesn't match number of fields ~
in: (~s :constant~{ ~s~})"
subj body))
(compare-fields-form (gen-arg-forms arg :numeric funstate)
@@ -841,7 +841,7 @@
(= (byte-size bs1) (byte-size bs2)))
(arg-fields arg1)
(arg-fields arg2)))
- (pd-error "Can't compare differently sized fields: ~
+ (pd-error _"Can't compare differently sized fields: ~
(~s :same-as ~s)" subj (car body)))
(compare-fields-form (gen-arg-forms arg1 :numeric funstate)
(gen-arg-forms arg2 :numeric funstate))))
@@ -856,12 +856,12 @@
((and (consp key) (null body))
(compile-test subj key funstate))
(t
- (pd-error "Bogus test-form: ~s" test)))))
+ (pd-error _"Bogus test-form: ~s" test)))))
;;; ----------------------------------------------------------------
(defun find-first-field-name (tree)
- "Returns the first non-keyword symbol in a depth-first search of TREE."
+ _N"Returns the first non-keyword symbol in a depth-first search of TREE."
(cond ((null tree)
nil)
((and (symbolp tree) (not (keywordp tree)))
@@ -927,7 +927,7 @@
`(,(if (arg-use-label arg) 'local-princ16 'local-princ)
,(arg-value-form arg funstate)))
(t
- (pd-error "Illegal printer: ~s" printer-src)))))
+ (pd-error _"Illegal printer: ~s" printer-src)))))
(defun compile-printer-body (source funstate)
(cond ((null source)
@@ -937,7 +937,7 @@
((eq source :tab)
`(local-tab-to-arg-column))
((keywordp source)
- (pd-error "Unknown printer element: ~s" source))
+ (pd-error _"Unknown printer element: ~s" source))
((symbolp source)
(compile-print source funstate))
((atom source)
@@ -946,7 +946,7 @@
(unless (or (stringp (cadr source))
(and (listp (cadr source))
(eq (caadr source) 'function)))
- (pd-error "First arg to :USING must be a string or #'function"))
+ (pd-error _"First arg to :USING must be a string or #'function"))
(compile-print (caddr source) funstate
(cons (eval (cadr source)) (cadr source))))
((eq (car source) :plus-integer)
@@ -1046,7 +1046,7 @@
(defun pick-printer-choice (choices args)
(dolist (choice choices
- (pd-error "No suitable choice found in ~s" choices))
+ (pd-error _"No suitable choice found in ~s" choices))
(when (all-arg-refs-relevent-p choice args)
(return choice))))
@@ -1077,7 +1077,7 @@
(null
(arg-value
(or (find subj args :key #'arg-name)
- (pd-error "Unknown argument ~s" subj)))))
+ (pd-error _"Unknown argument ~s" subj)))))
;; otherwise, defer to run-time
form))
((:or :and :not)
@@ -1134,7 +1134,7 @@
printer)))))
(defun preprocess-printer (printer args)
- "Returns a version of the disassembly-template PRINTER with compile-time
+ _N"Returns a version of the disassembly-template PRINTER with compile-time
tests (e.g. :constant without a value), and any :CHOOSE operators resolved
properly for the args ARGS. (:CHOOSE Sub*) simply returns the first Sub in
which every field reference refers to a valid arg."
@@ -1165,7 +1165,7 @@
,args ,constraint-var)))
(cond (,cache-var
#+nil
- (Format t "~&; Using cached function ~s~%"
+ (Format t _"~&; Using cached function ~s~%"
(cached-fun-name ,cache-var))
(values (cached-fun-name ,cache-var) nil))
(t
@@ -1176,7 +1176,7 @@
:funstate ,funstate-var
:constraint ,constraint-var)))
#+nil
- (format t "~&; Making new function ~s~%"
+ (format t _"~&; Making new function ~s~%"
(cached-fun-name ,cache-var))
(values ,name-var
`(progn
@@ -1284,7 +1284,7 @@
(defun set-arg-from-type (arg type-name table)
(let ((type-arg (find type-name table :key #'arg-name)))
(when (null type-arg)
- (pd-error "Unknown argument type: ~s" type-name))
+ (pd-error _"Unknown argument type: ~s" type-name))
(setf (arg-printer arg) (arg-printer type-arg))
(setf (arg-prefilter arg) (arg-prefilter type-arg))
(setf (arg-sign-extend-p arg) (arg-sign-extend-p type-arg))
@@ -1330,7 +1330,7 @@
(when fields-p
(when (null format-length)
(error
- "~@<In arg ~s: ~3i~:_~
+ _"~@<In arg ~s: ~3i~:_~
Can't specify fields except using DEFINE-INSTRUCTION-FORMAT.~:>"
arg-name))
(setf (arg-fields arg)
@@ -1338,7 +1338,7 @@
(when (> (+ (byte-position bytespec)
(byte-size bytespec))
format-length)
- (error "~@<In arg ~s: ~3i~:_~
+ (error _"~@<In arg ~s: ~3i~:_~
Field ~s doesn't fit in an ~
instruction-format ~d bits wide.~:>"
arg-name
@@ -1416,7 +1416,7 @@
;;; ----------------------------------------------------------------
(defun gen-preamble-form (args)
- "Generate a form to specify global disassembler params. See the
+ _N"Generate a form to specify global disassembler params. See the
documentation for SET-DISASSEM-PARAMS for more info."
(destructuring-bind
(&key instruction-alignment
@@ -1469,7 +1469,7 @@
',descrip-forms))))
(defun gen-arg-type-def-form (name args &optional (evalp t))
- "Generate a form to define a disassembler argument type. See
+ _N"Generate a form to define a disassembler argument type. See
DEFINE-ARGUMENT-TYPE for more info."
(multiple-value-bind (args wrapper-defs)
(munge-fun-refs args evalp t name)
@@ -1505,7 +1505,7 @@
,',arg-val-form))))))
(defun gen-format-def-form (header descrips &optional (evalp t))
- "Generate a form to define an instruction format. See
+ _N"Generate a form to define an instruction format. See
DEFINE-INSTRUCTION-FORMAT for more info."
(when (atom header)
(setf header (list header)))
@@ -1565,7 +1565,7 @@
((null fields))
(let ((field-mask (dchunk-make-mask (car fields))))
(when (/= (dchunk-and mask field-mask) dchunk-zero)
- (pd-error "Field ~s in arg ~s overlaps some other field"
+ (pd-error _"Field ~s in arg ~s overlaps some other field"
(car fields)
(arg-name arg)))
(dchunk-insertf id (car fields) (car values))
@@ -1579,7 +1579,7 @@
(defun format-or-lose (name table)
(or (gethash name table)
- (pd-error "Unknown instruction format ~s" name)))
+ (pd-error _"Unknown instruction format ~s" name)))
(defun filter-overrides (overrides evalp)
(mapcar #'(lambda (override)
@@ -1646,7 +1646,7 @@
;;; combining instructions where one specializes another
(defun inst-specializes-p (special general)
- "Returns non-NIL if the instruction SPECIAL is a more specific version of
+ _N"Returns non-NIL if the instruction SPECIAL is a more specific version of
GENERAL (i.e., the same instruction, but with more constraints)."
(declare (type instruction special general))
(let ((smask (inst-mask special))
@@ -1657,12 +1657,12 @@
;;; a bit arbitrary, but should work ok...
(defun specializer-rank (inst)
- "Returns an integer corresponding to the specifivity of the instruction INST."
+ _N"Returns an integer corresponding to the specifivity of the instruction INST."
(declare (type instruction inst))
(* (dchunk-count-bits (inst-mask inst)) 4))
(defun order-specializers (insts)
- "Order the list of instructions INSTS with more specific (more constant
+ _N"Order the list of instructions INSTS with more specific (more constant
bits, or same-as argument constains) ones first. Returns the ordered list."
(declare (type list insts))
(sort insts
@@ -1670,10 +1670,10 @@
(> (specializer-rank i1) (specializer-rank i2)))))
(defun specialization-error (insts)
- (error "Instructions either aren't related or conflict in some way:~% ~s" insts))
+ (error _"Instructions either aren't related or conflict in some way:~% ~s" insts))
(defun try-specializing (insts)
- "Given a list of instructions INSTS, Sees if one of these instructions is a
+ _N"Given a list of instructions INSTS, Sees if one of these instructions is a
more general form of all the others, in which case they are put into its
specializers list, and it is returned. Otherwise an error is signaled."
(declare (type list insts))
@@ -1688,7 +1688,7 @@
(cond ((null masters)
(specialization-error insts))
((cdr masters)
- (error "Multiple specializing masters: ~s" masters))
+ (error _"Multiple specializing masters: ~s" masters))
(t
(let ((master (car masters)))
(setf (inst-specializers master)
@@ -1701,13 +1701,13 @@
(declaim (inline inst-matches-p choose-inst-specialization))
(defun inst-matches-p (inst chunk)
- "Returns non-NIL if all constant-bits in INST match CHUNK."
+ _N"Returns non-NIL if all constant-bits in INST match CHUNK."
(declare (type instruction inst)
(type dchunk chunk))
(dchunk= (dchunk-and (inst-mask inst) chunk) (inst-id inst)))
(defun choose-inst-specialization (inst chunk)
- "Given an instruction object, INST, and a bit-pattern, CHUNK, picks the
+ _N"Given an instruction object, INST, and a bit-pattern, CHUNK, picks the
most specific instruction on INST's specializer list who's constraints are
met by CHUNK. If none do, then INST is returned."
(declare (type instruction inst)
@@ -1740,7 +1740,7 @@
;;; searching for an instruction in instruction space
(defun find-inst (chunk inst-space)
- "Returns the instruction object within INST-SPACE corresponding to the
+ _N"Returns the instruction object within INST-SPACE corresponding to the
bit-pattern CHUNK, or NIL if there isn't one."
(declare (type dchunk chunk)
(type (or null inst-space instruction) inst-space))
@@ -1763,7 +1763,7 @@
;;; building the instruction space
(defun build-inst-space (insts &optional (initial-mask dchunk-one))
- "Returns an instruction-space object corresponding to the list of
+ _N"Returns an instruction-space object corresponding to the list of
instructions INSTS. If the optional parameter INITIAL-MASK is supplied, only
bits it has set are used."
;; This is done by finding any set of bits that's common to
@@ -1831,7 +1831,7 @@
(bytes-to-bits (inst-length inst))))
(defun print-inst-space (inst-space &optional (indent 0))
- "Prints a nicely formatted version of INST-SPACE."
+ _N"Prints a nicely formatted version of INST-SPACE."
(etypecase inst-space
(null)
(instruction
@@ -1858,7 +1858,7 @@
(ispace-choices inst-space)))))
(defun print-backend-inst-space (&optional (backend c:*target-backend*))
- "Print the inst space for the specified backend"
+ _N"Print the inst space for the specified backend"
(let ((ext:*gc-verbose* nil))
(print-inst-space (get-inst-space (c:backend-disassem-params backend)))))
@@ -1898,13 +1898,13 @@
(eval-when (eval load compile) ; used in a defconstant
(defun words-to-bytes (num)
- "Converts a word-offset NUM to a byte-offset."
+ _N"Converts a word-offset NUM to a byte-offset."
(declare (type offset num))
(ash num vm:word-shift))
)
(defun bytes-to-words (num)
- "Converts a byte-offset NUM to a word-offset."
+ _N"Converts a byte-offset NUM to a word-offset."
(declare (type offset num))
(ash num (- vm:word-shift)))
@@ -1995,16 +1995,16 @@
(format stream "+~d~@[ in ~s~]" (dstate-cur-offs dstate) (dstate-segment dstate))))
(defmacro dstate-get-prop (dstate name)
- "Get the value of the property called NAME in DSTATE. Also setf'able."
+ _N"Get the value of the property called NAME in DSTATE. Also setf'able."
`(getf (dstate-properties ,dstate) ,name))
(defun dstate-cur-addr (dstate)
- "Returns the absolute address of the current instruction in DSTATE."
+ _N"Returns the absolute address of the current instruction in DSTATE."
(the address (+ (seg-virtual-location (dstate-segment dstate))
(dstate-cur-offs dstate))))
(defun dstate-next-addr (dstate)
- "Returns the absolute address of the next instruction in DSTATE."
+ _N"Returns the absolute address of the next instruction in DSTATE."
(the address (+ (seg-virtual-location (dstate-segment dstate))
(dstate-next-offs dstate))))
@@ -2034,13 +2034,13 @@
(fun-address (kernel:funcallable-instance-function function)))))
(defun fun-insts-offset (function)
- "Offset of FUNCTION from the start of its code-component's instruction area."
+ _N"Offset of FUNCTION from the start of its code-component's instruction area."
(declare (type compiled-function function))
(- (fun-address function)
(system:sap-int (kernel:code-instructions (fun-code function)))))
(defun fun-offset (function)
- "Offset of FUNCTION from the start of its code-component."
+ _N"Offset of FUNCTION from the start of its code-component."
(declare (type compiled-function function))
(words-to-bytes (kernel:get-closure-length function)))
@@ -2049,17 +2049,17 @@
;;; one or more functions).
(defun code-inst-area-length (code-component)
- "Returns the length of the instruction area in CODE-COMPONENT."
+ _N"Returns the length of the instruction area in CODE-COMPONENT."
(declare (type kernel:code-component code-component))
(kernel:code-header-ref code-component vm:code-trace-table-offset-slot))
(defun code-inst-area-address (code-component)
- "Returns the address of the instruction area in CODE-COMPONENT."
+ _N"Returns the address of the instruction area in CODE-COMPONENT."
(declare (type kernel:code-component code-component))
(system:sap-int (kernel:code-instructions code-component)))
(defun code-first-function (code-component)
- "Returns the first function in CODE-COMPONENT."
+ _N"Returns the first function in CODE-COMPONENT."
(declare (type kernel:code-component code-component))
(kernel:code-header-ref code-component vm:code-trace-table-offset-slot))
@@ -2110,11 +2110,11 @@
(+ (dstate-cur-offs dstate)
(1- lra-size))))
vm:return-pc-header-type))
- (note (format nil "Possible ~A header word" '.lra) dstate))
+ (note (format nil _"Possible ~A header word" '.lra) dstate))
nil)
(defun fun-header-hook (stream dstate)
- "Print the function-header (entry-point) pseudo-instruction at the current
+ _N"Print the function-header (entry-point) pseudo-instruction at the current
location in DSTATE to STREAM."
(declare (type (or null stream) stream)
(type disassem-state dstate))
@@ -2214,7 +2214,7 @@
(incf (dstate-next-offs dstate) alignment)))
(defun map-segment-instructions (function segment dstate &optional stream)
- "Iterate through the instructions in SEGMENT, calling FUNCTION
+ _N"Iterate through the instructions in SEGMENT, calling FUNCTION
for each instruction, with arguments of CHUNK, STREAM, and DSTATE."
(declare (type function function)
(type segment segment)
@@ -2281,7 +2281,7 @@
;;; ----------------------------------------------------------------
(defun add-segment-labels (segment dstate)
- "Make an initial non-printing disassembly pass through DSTATE, noting any
+ _N"Make an initial non-printing disassembly pass through DSTATE, noting any
addresses that are referenced by instructions in this segment."
;; add labels at the beginning with a label-number of nil; we'll notice
;; later and fill them in (and sort them)
@@ -2300,7 +2300,7 @@
(setf (dstate-notes dstate) nil)))
(defun number-labels (dstate)
- "If any labels in DSTATE have been added since the last call to this
+ _N"If any labels in DSTATE have been added since the last call to this
function, give them label-numbers, enter them in the hash-table, and make
sure the label list is in sorted order."
(let ((labels (dstate-labels dstate)))
@@ -2323,7 +2323,7 @@
;;; ----------------------------------------------------------------
(defun get-inst-space (params)
- "Get the instruction-space from PARAMS, creating it if necessary."
+ _N"Get the instruction-space from PARAMS, creating it if necessary."
(declare (type params params))
(let ((ispace (params-inst-space params)))
(when (null ispace)
@@ -2381,7 +2381,7 @@
(ceiling (integer-length (logxor from (+ from length))) 4)))
(defun print-current-address (stream dstate)
- "Print the current address in DSTATE to STREAM, plus any labels that
+ _N"Print the current address in DSTATE to STREAM, plus any labels that
correspond to it, and leave the cursor in the instruction column."
(declare (type stream stream)
(type disassem-state dstate))
@@ -2440,7 +2440,7 @@
, at body))
(defun print-notes-and-newline (stream dstate)
- "Print a newline to STREAM, inserting any pending notes in DSTATE as
+ _N"Print a newline to STREAM, inserting any pending notes in DSTATE as
end-of-line comments. If there is more than one note, a separate line
will be used for each one."
(declare (type stream stream)
@@ -2459,7 +2459,7 @@
(setf (dstate-notes dstate) nil)))
(defun print-bytes (num stream dstate)
- "Disassemble NUM bytes to STREAM as simple `BYTE' instructions"
+ _N"Disassemble NUM bytes to STREAM as simple `BYTE' instructions"
(declare (type offset num)
(type stream stream)
(type disassem-state dstate))
@@ -2472,7 +2472,7 @@
(format stream "#x~2,'0x" (system:sap-ref-8 sap (+ offs start-offs))))))
(defun print-words (num stream dstate)
- "Disassemble NUM machine-words to STREAM as simple `WORD' instructions"
+ _N"Disassemble NUM machine-words to STREAM as simple `WORD' instructions"
(declare (type offset num)
(type stream stream)
(type disassem-state dstate))
@@ -2501,7 +2501,7 @@
(defvar *default-dstate-hooks* (list #'lra-hook))
(defun make-dstate (params &optional (fun-hooks *default-dstate-hooks*))
- "Make a disassembler-state object."
+ _N"Make a disassembler-state object."
(declare (type params params))
(let ((sap
;; a random address
@@ -2581,7 +2581,7 @@
code virtual-location
debug-function source-form-cache
hooks)
- "Return a memory segment located at the system-area-pointer returned by
+ _N"Return a memory segment located at the system-area-pointer returned by
SAP-MAKER and LENGTH bytes long in the disassem-state object DSTATE.
Optional keyword arguments include :VIRTUAL-LOCATION (by default the same as
the address), :DEBUG-FUNCTION, :SOURCE-FORM-CACHE (a source-form-cache
@@ -2627,7 +2627,7 @@
(declare (type compiled-function function))
(let* ((self (fun-self function))
(code (kernel:function-code-header self)))
- (format t "Code-header ~s: size: ~s, trace-table-offset: ~s~%"
+ (format t _"Code-header ~s: size: ~s, trace-table-offset: ~s~%"
code
(kernel:code-header-ref code vm:code-code-size-slot)
(kernel:code-header-ref code vm:code-trace-table-offset-slot))
@@ -2637,7 +2637,7 @@
(let ((fun-offset (kernel:get-closure-length fun)))
;; There is function header fun-offset words from the
;; code header.
- (format t "Fun-header ~s at offset ~d (words): ~s~a => ~s~%"
+ (format t _"Fun-header ~s at offset ~d (words): ~s~a => ~s~%"
fun
fun-offset
(kernel:code-header-ref
@@ -2663,13 +2663,13 @@
(ecase (di:debug-source-from debug-source)
(:file
(cond ((not (probe-file name))
- (warn "The source file ~s no longer seems to exist" name)
+ (warn _"The source file ~s no longer seems to exist" name)
nil)
(t
(let ((start-positions
(di:debug-source-start-positions debug-source)))
(cond ((null start-positions)
- (warn "No start positions map")
+ (warn _"No start positions map")
nil)
(t
(let* ((local-tlf-index
@@ -2682,7 +2682,7 @@
(file-write-date name))
(file-position f char-offset))
(t
- (warn "Source file ~s has been modified; ~@
+ (warn _"Source file ~s has been modified; ~@
Using form offset instead of file index"
name)
(let ((*read-suppress* t))
@@ -2727,7 +2727,7 @@
(cond ((null top-level-form)
nil)
((>= form-number (length mapping-table))
- (warn "Bogus form-number in form! The source file has probably ~@
+ (warn _"Bogus form-number in form! The source file has probably ~@
been changed too much to cope with")
(when cache
;; disable future warnings
@@ -2769,12 +2769,12 @@
)
(defun dstate-debug-variables (dstate)
- "Return the vector of debug-variables currently associated with DSTATE."
+ _N"Return the vector of debug-variables currently associated with DSTATE."
(declare (type disassem-state dstate))
(storage-info-debug-variables (seg-storage-info (dstate-segment dstate))))
(defun find-valid-storage-location (offset lg-name dstate)
- "Given the OFFSET of a location within the location-group called LG-NAME,
+ _N"Given the OFFSET of a location within the location-group called LG-NAME,
see if there's a current mapping to a source variable in DSTATE, and if so,
return the offset of that variable in the current debug-variable vector."
(declare (type offset offset)
@@ -2820,7 +2820,7 @@
))))))))
(defun grow-vector (vec new-len &optional initial-element)
- "Return a new vector which has the same contents as the old one VEC, plus
+ _N"Return a new vector which has the same contents as the old one VEC, plus
new cells (for a total size of NEW-LEN). The additional elements are
initailized to INITIAL-ELEMENT."
(declare (type vector vec)
@@ -2834,7 +2834,7 @@
new))
(defun storage-info-for-debug-function (debug-function)
- "Returns a STORAGE-INFO struction describing the object-to-source
+ _N"Returns a STORAGE-INFO struction describing the object-to-source
variable mappings from DEBUG-FUNCTION."
(declare (type di:debug-function debug-function))
(let ((sc-vec (c::backend-sc-numbers c:*native-backend*))
@@ -2847,14 +2847,14 @@
:debug-variables debug-variables))
(let ((debug-var (aref debug-variables debug-var-offset)))
#+nil
- (format t ";;; At offset ~d: ~s~%" debug-var-offset debug-var)
+ (format t _";;; At offset ~d: ~s~%" debug-var-offset debug-var)
(let* ((sc-offset
(di::compiled-debug-variable-sc-offset debug-var))
(sb-name
(c:sb-name
(c:sc-sb (aref sc-vec (c:sc-offset-scn sc-offset))))))
#+nil
- (format t ";;; SET: ~s[~d]~%"
+ (format t _";;; SET: ~s[~d]~%"
sb-name (c:sc-offset-offset sc-offset))
(unless (null sb-name)
(let ((group (cdr (assoc sb-name groups))))
@@ -2902,7 +2902,7 @@
:block-boundary))))
(defun add-source-tracking-hooks (segment debug-function &optional sfcache)
- "Add hooks to track to track the source code in SEGMENT during
+ _N"Add hooks to track to track the source code in SEGMENT during
disassembly. SFCACHE can be either NIL or it can be a SOURCE-FORM-CACHE
structure, in which case it is used to cache forms from files."
(declare (type segment segment)
@@ -3000,15 +3000,15 @@
(case kind
(:external)
((nil)
- (anh "No-arg-parsing entry point"))
+ (anh _"No-arg-parsing entry point"))
(t
(anh #'(lambda (stream)
- (format stream "~s entry point" kind)))))))))
+ (format stream _"~s entry point" kind)))))))))
;;; ----------------------------------------------------------------
(defun fun-header-pc (function)
- "Return the PC of FUNCTION's header."
+ _N"Return the PC of FUNCTION's header."
(declare (type compiled-function function))
(let ((code (fun-code function)))
(* (- (kernel:function-word-offset function)
@@ -3016,10 +3016,10 @@
vm:word-bytes)))
(defvar *disassemble-flets* t
- "If non-NIL, disassemble flets/labels too")
+ _N"If non-NIL, disassemble flets/labels too")
(defun get-function-segments (function)
- "Returns a list of the segments of memory containing machine code
+ _N"Returns a list of the segments of memory containing machine code
instructions for FUNCTION."
(declare (type compiled-function function))
(let* ((code (fun-code function))
@@ -3098,7 +3098,7 @@
&optional
(start-offs 0)
(length (code-inst-area-length code)))
- "Returns a list of the segments of memory containing machine code
+ _N"Returns a list of the segments of memory containing machine code
instructions for the code-component CODE. If START-OFFS and/or LENGTH is
supplied, only that part of the code-segment is used (but these are
constrained to lie within the code-segment)."
@@ -3148,7 +3148,7 @@
#+nil
(defun find-function-segment (fun)
- "Return the address of the instructions for function and its length.
+ _N"Return the address of the instructions for function and its length.
The length is computed using a heuristic, and so may not be accurate."
(declare (type compiled-function fun))
(let* ((code
@@ -3171,7 +3171,7 @@
;;; ----------------------------------------------------------------
(defun segment-overflow (segment dstate)
- "Returns two values: the amount by which the last instruction in the
+ _N"Returns two values: the amount by which the last instruction in the
segment goes past the end of the segment, and the offset of the end of the
segment from the beginning of that instruction. If all instructions fit
perfectly, this will return 0 and 0."
@@ -3188,7 +3188,7 @@
(- seglen last-start))))
(defun label-segments (seglist dstate)
- "Computes labels for all the memory segments in SEGLIST and adds them to
+ _N"Computes labels for all the memory segments in SEGLIST and adds them to
DSTATE. It's important to call this function with all the segments you're
interested in, so it can find references from one to another."
(declare (type list seglist)
@@ -3208,7 +3208,7 @@
(dstate-labels dstate))))
(defun disassemble-segment (segment stream dstate)
- "Disassemble the machine code instructions in SEGMENT to STREAM."
+ _N"Disassemble the machine code instructions in SEGMENT to STREAM."
(declare (type segment segment)
(type stream stream)
(type disassem-state dstate))
@@ -3225,7 +3225,7 @@
stream)))
(defun disassemble-segments (segments stream dstate)
- "Disassemble the machine code instructions in each memory segment in
+ _N"Disassemble the machine code instructions in each memory segment in
SEGMENTS in turn to STREAM."
(declare (type list segments)
(type stream stream)
@@ -3258,7 +3258,7 @@
(defun disassemble-function (function &key (stream *standard-output*)
(use-labels t)
(backend c:*native-backend*))
- "Disassemble the machine code instructions for FUNCTION."
+ _N"Disassemble the machine code instructions for FUNCTION."
(declare (type compiled-function function)
(type stream stream)
(type (member t nil) use-labels)
@@ -3276,7 +3276,7 @@
(function-lambda-expression function)
(declare (ignore name))
(when closurep
- (error "Cannot compile a lexical closure"))
+ (error _"Cannot compile a lexical closure"))
(compile nil lambda)))
(defun compiled-function-or-lose (thing &optional (name thing))
@@ -3293,13 +3293,13 @@
(error 'simple-type-error
:datum name
:expected-type '(satisfies valid-function-name-p)
- :format-control "Can't make a compiled function from ~S"
+ :format-control _"Can't make a compiled function from ~S"
:format-arguments (list name)))))
(defun disassemble (object &key (stream *standard-output*)
(use-labels t)
(backend c:*native-backend*))
- "Disassemble the machine code associated with OBJECT, which can be a
+ _N"Disassemble the machine code associated with OBJECT, which can be a
function, a lambda expression, or a symbol with a function definition. If
it is not already compiled, the compiler is called to produce something to
disassemble."
@@ -3324,7 +3324,7 @@
code-component
(use-labels t)
(backend c:*backend*))
- "Disassembles the given area of memory starting at ADDRESS and LENGTH long.
+ _N"Disassembles the given area of memory starting at ADDRESS and LENGTH long.
Note that if CODE-COMPONENT is NIL and this memory could move during a GC,
you'd better disable it around the call to this function."
(declare (type (or address system:system-area-pointer) address)
@@ -3346,7 +3346,7 @@
(kernel:code-instructions code-component)))))
(when (or (< code-offs 0)
(> code-offs (code-inst-area-length code-component)))
- (error "Address ~x not in the code component ~s."
+ (error _" Address ~x not in the code component ~s."
address code-component))
(get-code-segments code-component code-offs length))
(list (make-memory-segment address length)))))
@@ -3358,7 +3358,7 @@
(stream *standard-output*)
(use-labels t)
(backend c:*native-backend*))
- "Disassemble the machine code instructions associated with
+ _N"Disassemble the machine code instructions associated with
CODE-COMPONENT (this may include multiple entry points)."
(declare (type (or null kernel:code-component compiled-function)
code-component)
@@ -3486,7 +3486,7 @@
(sort disassem-segments #'< :key #'seg-virtual-location)))
(defun disassemble-assem-segment (assem-segment stream backend)
- "Disassemble the machine code instructions associated with
+ _N"Disassemble the machine code instructions associated with
ASSEM-SEGMENT (of type new-assem:segment)."
(declare (type new-assem:segment assem-segment)
(type stream stream)
@@ -3508,11 +3508,11 @@
(,vm:symbol-package-slot . symbol-package))
#'<
:key #'car)
- "An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a
+ _N"An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a
symbol object that we know about.")
(defun grok-symbol-slot-ref (address)
- "Given ADDRESS, try and figure out if which slot of which symbol is being
+ _N"Given ADDRESS, try and figure out if which slot of which symbol is being
refered to. Of course we can just give up, so it's not a big deal...
Returns two values, the symbol and the name of the access function of the
slot."
@@ -3534,19 +3534,19 @@
(defconstant nil-addr (kernel:get-lisp-obj-address nil))
(defun grok-nil-indexed-symbol-slot-ref (byte-offset)
- "Given a BYTE-OFFSET from NIL, try and figure out if which slot of which
+ _N"Given a BYTE-OFFSET from NIL, try and figure out if which slot of which
symbol is being refered to. Of course we can just give up, so it's not a big
deal... Returns two values, the symbol and the access function."
(declare (type offset byte-offset))
(grok-symbol-slot-ref (+ nil-addr byte-offset)))
(defun get-nil-indexed-object (byte-offset)
- "Returns the lisp object located BYTE-OFFSET from NIL."
+ _N"Returns the lisp object located BYTE-OFFSET from NIL."
(declare (type offset byte-offset))
(kernel:make-lisp-obj (+ nil-addr byte-offset)))
(defun get-code-constant (byte-offset dstate)
- "Returns two values; the lisp-object located at BYTE-OFFSET in the constant
+ _N"Returns two values; the lisp-object located at BYTE-OFFSET in the constant
area of the code-object in the current segment and T, or NIL and NIL if
there is no code-object in the current segment."
(declare (type offset byte-offset)
@@ -3583,14 +3583,14 @@
(defvar *foreign-symbols-by-addr* nil)
(defun invert-address-hash (htable &optional (addr-hash (make-hash-table)))
- "Build an address-name hash-table from the name-address hash"
+ _N"Build an address-name hash-table from the name-address hash"
(maphash #'(lambda (name address)
(setf (gethash address addr-hash) name))
htable)
addr-hash)
(defun find-assembler-routine (address)
- "Returns the name of the primitive lisp assembler routine or foreign
+ _N"Returns the name of the primitive lisp assembler routine or foreign
symbol located at ADDRESS, or NIL if there isn't one."
(declare (type address address))
(when (null *assembler-routines-by-addr*)
@@ -3652,7 +3652,7 @@
;;; optional routines to make notes about code
(defun note (note dstate)
- "Store NOTE (which can be either a string or a function with a single
+ _N"Store NOTE (which can be either a string or a function with a single
stream argument) to be printed as an end-of-line comment after the current
instruction is disassembled."
(declare (type (or string function) note)
@@ -3669,7 +3669,7 @@
(prin1-short `',thing stream)))
(defun note-code-constant (byte-offset dstate)
- "Store a note about the lisp constant located BYTE-OFFSET bytes from the
+ _N"Store a note about the lisp constant located BYTE-OFFSET bytes from the
current code-component, to be printed as an end-of-line comment after the
current instruction is disassembled."
(declare (type offset byte-offset)
@@ -3683,7 +3683,7 @@
const))
(defun note-code-constant-absolute (addr dstate)
- "Store a note about the lisp constant located at ADDR in the
+ _N"Store a note about the lisp constant located at ADDR in the
current code-component, to be printed as an end-of-line comment after the
current instruction is disassembled."
(declare (type address addr)
@@ -3697,7 +3697,7 @@
(values const valid)))
(defun maybe-note-nil-indexed-symbol-slot-ref (nil-byte-offset dstate)
- "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL
+ _N"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL
is a valid slot in a symbol, store a note describing which symbol and slot,
to be printed as an end-of-line comment after the current instruction is
disassembled. Returns non-NIL iff a note was recorded."
@@ -3715,7 +3715,7 @@
access-fun))
(defun maybe-note-nil-indexed-object (nil-byte-offset dstate)
- "If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL
+ _N"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL
is a valid lisp object, store a note describing which symbol and slot, to
be printed as an end-of-line comment after the current instruction is
disassembled. Returns non-NIL iff a note was recorded."
@@ -3728,7 +3728,7 @@
t))
(defun maybe-note-assembler-routine (address note-address-p dstate)
- "If ADDRESS is the address of a primitive assembler routine or
+ _N"If ADDRESS is the address of a primitive assembler routine or
foreign symbol, store a note describing which one, to be printed as
an end-of-line comment after the current instruction is disassembled.
Returns non-NIL iff a note was recorded. If NOTE-ADDRESS-P is non-NIL, a
@@ -3748,7 +3748,7 @@
name))
(defun maybe-note-static-function (nil-byte-offset dstate)
- "If NIL-BYTE-OFFSET is the offset of static function, store a note
+ _N"If NIL-BYTE-OFFSET is the offset of static function, store a note
describing which one, to be printed as an end-of-line comment after
the current instruction is disassembled. Returns non-NIL iff a note
was recorded."
@@ -3762,7 +3762,7 @@
sym))
(defun maybe-note-single-storage-ref (offset sc-name dstate)
- "If there's a valid mapping from OFFSET in the storage class SC-NAME to a
+ _N"If there's a valid mapping from OFFSET in the storage class SC-NAME to a
source variable, make a note of the source-variable name, to be printed as
an end-of-line comment after the current instruction is disassembled.
Returns non-NIL iff a note was recorded."
@@ -3782,7 +3782,7 @@
t)))
(defun maybe-note-associated-storage-ref (offset sb-name assoc-with dstate)
- "If there's a valid mapping from OFFSET in the storage-base called SB-NAME
+ _N"If there's a valid mapping from OFFSET in the storage-base called SB-NAME
to a source variable, make a note equating ASSOC-WITH with the
source-variable name, to be printed as an end-of-line comment after the
current instruction is disassembled. Returns non-NIL iff a note was
@@ -3819,7 +3819,7 @@
;;; ----------------------------------------------------------------
(defun handle-break-args (error-parse-fun stream dstate)
- "When called from an error break instruction's :DISASSEM-CONTROL (or
+ _N"When called from an error break instruction's :DISASSEM-CONTROL (or
:DISASSEM-PRINTER) function, will correctly deal with printing the
arguments to the break.
Index: src/compiler/dump.lisp
diff -u src/compiler/dump.lisp:1.83.12.1 src/compiler/dump.lisp:1.83.12.2
--- src/compiler/dump.lisp:1.83.12.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/dump.lisp Wed Feb 10 17:47:03 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/dump.lisp,v 1.83.12.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.83.12.2 2010-02-10 22:47:03 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -238,7 +238,7 @@
(defmacro dump-fop (fs file)
(let* ((fs (eval fs))
(val (get fs 'lisp::fop-code)))
- (assert val () "Compiler bug: ~S not a legal fasload operator." fs)
+ (assert val () _"Compiler bug: ~S not a legal fasload operator." fs)
`(dump-byte ',val ,file)))
@@ -445,7 +445,7 @@
#'(lambda (sap amount)
(system:output-raw-bytes stream sap 0 amount)))
(unless (= (- (file-position stream) posn) code-length)
- (error "Tried to output ~D bytes, but only ~D made it."
+ (error _"Tried to output ~D bytes, but only ~D made it."
code-length (- (file-position stream) posn))))
(when (backend-featurep :gengc)
(unless (zerop (logand code-length 3))
@@ -916,7 +916,7 @@
;;
;; This probably never happens, since bad things are detected
;; during IR1 conversion.
- (error "This object cannot be dumped into a fasl file:~% ~S"
+ (error _"This object cannot be dumped into a fasl file:~% ~S"
x))))))
(undefined-value))
@@ -1032,7 +1032,7 @@
(defun fasl-note-handle-for-constant (constant handle file)
(let ((table (fasl-file-eq-table file)))
(when (gethash constant table)
- (error "~S already dumped?" constant))
+ (error _"~S already dumped?" constant))
(setf (gethash constant table) handle))
(undefined-value))
@@ -1073,13 +1073,13 @@
;; Some format converstion will be needed, just dump 0l0
;; for now.
(unless (zerop float)
- (format t "Warning: dumping ~s as 0l0~%" float))
+ (format t _"Warning: dumping ~s as 0l0~%" float))
(dump-unsigned-32 0 file)
(dump-unsigned-32 0 file)
(dump-unsigned-32 0 file)
(dump-var-signed 0 4 file))
(t
- (error "Unable to dump long-float")))))
+ (error _"Unable to dump long-float")))))
#+(and long-float sparc)
(defun dump-long-float (float file)
@@ -1094,7 +1094,7 @@
(dump-unsigned-32 high-bits file)
(dump-var-signed exp-bits 4 file))
(t
- (error "Unable to dump long-float")))))
+ (error _"Unable to dump long-float")))))
#+double-double
(defun dump-double-double-float (float file)
@@ -1692,7 +1692,7 @@
(defun dump-structure (struct file)
(when *dump-only-valid-structures*
(unless (gethash struct (fasl-file-valid-structures file))
- (error "Attempt to dump invalid structure:~% ~S~%How did this happen?"
+ (error _"Attempt to dump invalid structure:~% ~S~%How did this happen?"
struct)))
(note-potential-circularity struct file)
(do ((index 0 (1+ index))
@@ -1720,7 +1720,7 @@
(defun dump-layout (obj file)
(unless (member (layout-invalid obj) '(nil :compiler))
- (compiler-error "Dumping reference to obsolete class: ~S"
+ (compiler-error _"Dumping reference to obsolete class: ~S"
(layout-class obj)))
(let ((name (%class-name (layout-class obj))))
(assert name)
Index: src/compiler/eval-comp.lisp
diff -u src/compiler/eval-comp.lisp:1.36.42.1 src/compiler/eval-comp.lisp:1.36.42.2
--- src/compiler/eval-comp.lisp:1.36.42.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/eval-comp.lisp Wed Feb 10 17:47:03 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/eval-comp.lisp,v 1.36.42.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/eval-comp.lisp,v 1.36.42.2 2010-02-10 22:47:03 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -59,7 +59,7 @@
*error-output*))
(*compiler-trace-output* nil)
(*compiler-error-bailout*
- #'(lambda () (error "Fatal error, aborting evaluation.")))
+ #'(lambda () (error _"Fatal error, aborting evaluation.")))
;;
(*current-path* nil)
(*last-source-context* nil)
@@ -278,7 +278,7 @@
(defun %verify-argument-count (supplied-args defined-args)
(unless (= supplied-args defined-args)
- (simple-program-error "Wrong argument count, wanted ~D and got ~D."
+ (simple-program-error _"Wrong argument count, wanted ~D and got ~D."
defined-args supplied-args))
(values))
@@ -302,17 +302,17 @@
(defun %argument-count-error (args-passed-count)
(error 'simple-program-error
- :format-control "Wrong number of arguments passed -- ~S."
+ :format-control _"Wrong number of arguments passed -- ~S."
:format-arguments (list args-passed-count)))
(defun %odd-keyword-arguments-error ()
(error 'simple-program-error
:format-control
- "Function called with odd number of keyword arguments."))
+ _"Function called with odd number of keyword arguments."))
(defun %unknown-keyword-argument-error (keyword)
(error 'simple-program-error
- :format-control "Unknown keyword argument -- ~S."
+ :format-control _"Unknown keyword argument -- ~S."
:format-arguments (list keyword)))
(defun %cleanup-point ())
Index: src/compiler/eval.lisp
diff -u src/compiler/eval.lisp:1.36.52.1 src/compiler/eval.lisp:1.36.52.2
--- src/compiler/eval.lisp:1.36.52.1 Mon Feb 8 12:15:50 2010
+++ src/compiler/eval.lisp Wed Feb 10 17:47:03 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/eval.lisp,v 1.36.52.1 2010-02-08 17:15:50 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/eval.lisp,v 1.36.52.2 2010-02-10 22:47:03 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
@@ -50,12 +50,12 @@
(defun eval-stack-push (value)
(let ((len (length (the simple-vector *eval-stack*))))
(when (= len *eval-stack-top*)
- (when *eval-stack-trace* (format t "[PUSH: growing stack.]~%"))
+ (when *eval-stack-trace* (format t _"[PUSH: growing stack.]~%"))
(let ((new-stack (make-array (ash len 1))))
(replace new-stack *eval-stack* :end1 len :end2 len)
(setf *eval-stack* new-stack))))
(let ((top *eval-stack-top*))
- (when *eval-stack-trace* (format t "pushing ~D.~%" top))
+ (when *eval-stack-trace* (format t _"pushing ~D.~%" top))
(incf *eval-stack-top*)
(setf (svref *eval-stack* top) value)))
@@ -70,10 +70,10 @@
;;;
(defun eval-stack-pop ()
(when (zerop *eval-stack-top*)
- (error "Attempt to pop empty eval stack."))
+ (error _"Attempt to pop empty eval stack."))
(let* ((new-top (1- *eval-stack-top*))
(value (svref *eval-stack* new-top)))
- (when *eval-stack-trace* (format t "popping ~D --> ~S.~%" new-top value))
+ (when *eval-stack-trace* (format t _"popping ~D --> ~S.~%" new-top value))
(setf *eval-stack-top* new-top)
value))
@@ -87,12 +87,12 @@
(defun eval-stack-extend (n)
(let ((len (length (the simple-vector *eval-stack*))))
(when (> (+ n *eval-stack-top*) len)
- (when *eval-stack-trace* (format t "[EXTEND: growing stack.]~%"))
+ (when *eval-stack-trace* (format t _"[EXTEND: growing stack.]~%"))
(let ((new-stack (make-array (+ n (ash len 1)))))
(replace new-stack *eval-stack* :end1 len :end2 len)
(setf *eval-stack* new-stack))))
(let ((new-top (+ *eval-stack-top* n)))
- (when *eval-stack-trace* (format t "extending to ~D.~%" new-top))
+ (when *eval-stack-trace* (format t _"extending to ~D.~%" new-top))
(do ((i *eval-stack-top* (1+ i)))
((= i new-top))
(setf (svref *eval-stack* i) nil))
@@ -104,7 +104,7 @@
;;;
(defun eval-stack-shrink (n)
(when *eval-stack-trace*
- (format t "shrinking to ~D.~%" (- *eval-stack-top* n)))
+ (format t _"shrinking to ~D.~%" (- *eval-stack-top* n)))
(decf *eval-stack-top* n))
;;; EVAL-STACK-SET-TOP -- Internal.
@@ -112,7 +112,7 @@
;;; This is used to shrink the stack back to a previous frame pointer.
;;;
(defun eval-stack-set-top (ptr)
- (when *eval-stack-trace* (format t "setting top to ~D.~%" ptr))
+ (when *eval-stack-trace* (format t _"setting top to ~D.~%" ptr))
(setf *eval-stack-top* ptr))
@@ -129,12 +129,12 @@
;;;; Interpreted functions:
(defvar *interpreted-function-cache-minimum-size* 25
- "If the interpreted function cache has more functions than this come GC time,
+ _N"If the interpreted function cache has more functions than this come GC time,
then attempt to prune it according to
*INTERPRETED-FUNCTION-CACHE-THRESHOLD*.")
(defvar *interpreted-function-cache-threshold* 3
- "If an interpreted function goes uncalled for more than this many GCs, then
+ _N"If an interpreted function goes uncalled for more than this many GCs, then
it is eligible for flushing from the cache.")
(declaim (type c::index
@@ -279,7 +279,7 @@
;;; FLUSH-INTERPRETED-FUNCTION-CACHE -- Interface
;;;
(defun flush-interpreted-function-cache ()
- "Clear all entries in the eval function cache. This allows the internal
+ _N"Clear all entries in the eval function cache. This allows the internal
representation of the functions to be reclaimed, and also lazily forces
macroexpansions to be recomputed."
(dolist (fun *interpreted-function-cache*)
@@ -550,7 +550,7 @@
(assert (eq (c::continuation-info cont) :multiple))
(eval-stack-push (list more-args (length more-args)))))
(c::%unknown-values
- (error "C::%UNKNOWN-VALUES should never be in interpreter's IR1."))
+ (error _"C::%UNKNOWN-VALUES should never be in interpreter's IR1."))
(c::%lexical-exit-breakup
;; We see this whenever we locally exit the extent of a lexical
;; target. That is, we are truly locally exiting an extent we could
Index: src/i18n/locale/cmucl.pot
diff -u src/i18n/locale/cmucl.pot:1.1.2.17 src/i18n/locale/cmucl.pot:1.1.2.18
--- src/i18n/locale/cmucl.pot:1.1.2.17 Wed Feb 10 16:50:39 2010
+++ src/i18n/locale/cmucl.pot Wed Feb 10 17:47:03 2010
@@ -9886,7 +9886,7 @@
msgid "~A was compiled for a ~A, but this is a ~A"
msgstr ""
-#: target:code/load.lisp
+#: target:compiler/dfo.lisp target:code/load.lisp
msgid "Top-Level Form"
msgstr ""
@@ -13829,6 +13829,770 @@
msgid "local-tn-limit not a vm:word-bits multiple."
msgstr ""
+#: target:compiler/disassem.lisp
+msgid ""
+"The width of the column in which instruction-names are printed.\n"
+" NIL means use the default. A value of zero gives the effect of not\n"
+" aligning the arguments at all."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "The column in which end-of-line comments for notes are started."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Specify global disassembler params for C:*TARGET-BACKEND*.\n"
+" Keyword arguments include:\n"
+" \n"
+" :INSTRUCTION-ALIGNMENT number\n"
+" Minimum alignment of instructions, in bits.\n"
+" \n"
+" :ADDRESS-SIZE number\n"
+" Size of a machine address, in bits.\n"
+" \n"
+" :OPCODE-COLUMN-WIDTH\n"
+" Width of the column used for printing the opcode portion of the\n"
+" instruction, or NIL to use the default."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"DEFINE-ARGUMENT-TYPE Name {Key Value}*\n"
+" Define a disassembler argument type NAME (which can then be referenced in\n"
+" another argument definition using the :TYPE keyword argument). Keyword\n"
+" arguments are:\n"
+"\n"
+" :SIGN-EXTEND boolean\n"
+" If non-NIL, the raw value of this argument is sign-extended.\n"
+"\n"
+" :TYPE arg-type-name\n"
+" Inherit any properties of given argument-type.\n"
+"\n"
+" :PREFILTER function\n"
+" A function which is called (along with all other prefilters, in the\n"
+" order that their arguments appear in the instruction- format) before\n"
+" any printing is done, to filter the raw value. Any uses of READ-SUFFI"
+"X\n"
+" must be done inside a prefilter.\n"
+" \n"
+" :PRINTER function-string-or-vector\n"
+" A function, string, or vector which is used to print an argument of\n"
+" this type.\n"
+" \n"
+" :USE-LABEL \n"
+" If non-NIL, the value of an argument of this type is used as an\n"
+" address, and if that address occurs inside the disassembled code, it "
+"is\n"
+" replaced by a label. If this is a function, it is called to filter "
+"the\n"
+" value."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*\n"
+" Define an instruction format NAME for the disassembler's use. LENGTH is\n"
+" the length of the format in bits.\n"
+" Possible FORMAT-KEYs:\n"
+"\n"
+" :INCLUDE other-format-name\n"
+" Inherit all arguments and properties of the given format. Any\n"
+" arguments defined in the current format definition will either modify\n"
+" the copy of an existing argument (keeping in the same order with\n"
+" respect to when pre-filter's are called), if it has the same name as\n"
+" one, or be added to the end.\n"
+" :DEFAULT-PRINTER printer-list\n"
+" Use the given PRINTER-LIST as a format to print any instructions of\n"
+" this format when they don't specify something else.\n"
+"\n"
+" Each ARG-DEF defines one argument in the format, and is of the form\n"
+" (Arg-Name {Arg-Key Value}*)\n"
+"\n"
+" Possible ARG-KEYs (the values are evaulated unless otherwise specified):\n"
+" \n"
+" :FIELDS byte-spec-list\n"
+" The argument takes values from these fields in the instruction. If\n"
+" the list is of length one, then the corresponding value is supplied "
+"by\n"
+" itself; otherwise it is a list of the values. The list may be NIL.\n"
+" :FIELD byte-spec\n"
+" The same as :FIELDS (list byte-spec).\n"
+"\n"
+" :VALUE value\n"
+" If the argument only has one field, this is the value it should have,\n"
+" otherwise it's a list of the values of the individual fields. This "
+"can\n"
+" be overridden in an instruction-definition or a format definition\n"
+" including this one by specifying another, or NIL to indicate that "
+"it's\n"
+" variable.\n"
+"\n"
+" :SIGN-EXTEND boolean\n"
+" If non-NIL, the raw value of this argument is sign-extended,\n"
+" immediately after being extracted from the instruction (before any\n"
+" prefilters are run, for instance). If the argument has multiple\n"
+" fields, they are all sign-extended.\n"
+"\n"
+" :TYPE arg-type-name\n"
+" Inherit any properties of the given argument-type.\n"
+"\n"
+" :PREFILTER function\n"
+" A function which is called (along with all other prefilters, in the\n"
+" order that their arguments appear in the instruction-format) before\n"
+" any printing is done, to filter the raw value. Any uses of READ-SUFFI"
+"X\n"
+" must be done inside a prefilter.\n"
+"\n"
+" :PRINTER function-string-or-vector\n"
+" A function, string, or vector which is used to print this argument.\n"
+" \n"
+" :USE-LABEL \n"
+" If non-NIL, the value of this argument is used as an address, and if\n"
+" that address occurs inside the disassembled code, it is replaced by a\n"
+" label. If this is a function, it is called to filter the value."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~d bits is not a byte-multiple"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return ADDRESS aligned *upward* to a SIZE byte boundary."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return\n"
+" OLD-CONS, otherwise return (cons CAR CDR)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"A simple (one list arg) mapcar that avoids consing up a new list\n"
+" as long as the results of calling FUN on the elements of LIST are\n"
+" eq to the original."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Can't dump functions, so function ref form must be quoted: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown argument ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~s must not have multiple values"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown arg-form kind ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Cannot label a multiple-field argument ~\n"
+" unless using a function: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Bogus! Can't use the :printed value of an arg!"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"number of constants doesn't match number of fields ~\n"
+" in: (~s :constant~{ ~s~})"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Can't compare differently sized fields: ~\n"
+" (~s :same-as ~s)"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Bogus test-form: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the first non-keyword symbol in a depth-first search of TREE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Illegal printer: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown printer element: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "First arg to :USING must be a string or #'function"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No suitable choice found in ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a version of the disassembly-template PRINTER with compile-time\n"
+" tests (e.g. :constant without a value), and any :CHOOSE operators resolved"
+"\n"
+" properly for the args ARGS. (:CHOOSE Sub*) simply returns the first Sub "
+"in\n"
+" which every field reference refers to a valid arg."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~&; Using cached function ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~&; Making new function ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown argument type: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"~@<In arg ~s: ~3i~:_~\n"
+" Can't specify fields except using DEFINE-INSTRUCTION-FORMAT.~:>"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"~@<In arg ~s: ~3i~:_~\n"
+" Field ~s doesn't fit in an ~\n"
+" instruction-format ~d bits wide.~:>"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to specify global disassembler params. See the\n"
+" documentation for SET-DISASSEM-PARAMS for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to define a disassembler argument type. See\n"
+" DEFINE-ARGUMENT-TYPE for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to define an instruction format. See\n"
+" DEFINE-INSTRUCTION-FORMAT for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Field ~s in arg ~s overlaps some other field"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown instruction format ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns non-NIL if the instruction SPECIAL is a more specific version of\n"
+" GENERAL (i.e., the same instruction, but with more constraints)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns an integer corresponding to the specifivity of the instruction "
+"INST."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Order the list of instructions INSTS with more specific (more constant\n"
+" bits, or same-as argument constains) ones first. Returns the ordered "
+"list."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Instructions either aren't related or conflict in some way:~% ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given a list of instructions INSTS, Sees if one of these instructions is a\n"
+" more general form of all the others, in which case they are put into its\n"
+" specializers list, and it is returned. Otherwise an error is signaled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Multiple specializing masters: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns non-NIL if all constant-bits in INST match CHUNK."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given an instruction object, INST, and a bit-pattern, CHUNK, picks the\n"
+" most specific instruction on INST's specializer list who's constraints "
+"are\n"
+" met by CHUNK. If none do, then INST is returned."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns the instruction object within INST-SPACE corresponding to the\n"
+" bit-pattern CHUNK, or NIL if there isn't one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns an instruction-space object corresponding to the list of\n"
+" instructions INSTS. If the optional parameter INITIAL-MASK is supplied, "
+"only\n"
+" bits it has set are used."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Prints a nicely formatted version of INST-SPACE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Print the inst space for the specified backend"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Converts a word-offset NUM to a byte-offset."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Converts a byte-offset NUM to a word-offset."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Get the value of the property called NAME in DSTATE. Also setf'able."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the absolute address of the current instruction in DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the absolute address of the next instruction in DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Offset of FUNCTION from the start of its code-component's instruction area."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Offset of FUNCTION from the start of its code-component."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the length of the instruction area in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the address of the instruction area in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the first function in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Possible ~A header word"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print the function-header (entry-point) pseudo-instruction at the current\n"
+" location in DSTATE to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Iterate through the instructions in SEGMENT, calling FUNCTION\n"
+" for each instruction, with arguments of CHUNK, STREAM, and DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Make an initial non-printing disassembly pass through DSTATE, noting any\n"
+" addresses that are referenced by instructions in this segment."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If any labels in DSTATE have been added since the last call to this\n"
+" function, give them label-numbers, enter them in the hash-table, and make\n"
+" sure the label list is in sorted order."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Get the instruction-space from PARAMS, creating it if necessary."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print the current address in DSTATE to STREAM, plus any labels that\n"
+" correspond to it, and leave the cursor in the instruction column."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print a newline to STREAM, inserting any pending notes in DSTATE as\n"
+" end-of-line comments. If there is more than one note, a separate line\n"
+" will be used for each one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble NUM bytes to STREAM as simple `BYTE' instructions"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble NUM machine-words to STREAM as simple `WORD' instructions"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Make a disassembler-state object."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return a memory segment located at the system-area-pointer returned by\n"
+" SAP-MAKER and LENGTH bytes long in the disassem-state object DSTATE.\n"
+" Optional keyword arguments include :VIRTUAL-LOCATION (by default the same "
+"as\n"
+" the address), :DEBUG-FUNCTION, :SOURCE-FORM-CACHE (a source-form-cache\n"
+" object), and :HOOKS (a list of offs-hook objects)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Code-header ~s: size: ~s, trace-table-offset: ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Fun-header ~s at offset ~d (words): ~s~a => ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "The source file ~s no longer seems to exist"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No start positions map"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Source file ~s has been modified; ~@\n"
+" Using form offset instead of file index"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Bogus form-number in form! The source file has probably ~@\n"
+" been changed too much to cope with"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return the vector of debug-variables currently associated with DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given the OFFSET of a location within the location-group called LG-NAME,\n"
+" see if there's a current mapping to a source variable in DSTATE, and if "
+"so,\n"
+" return the offset of that variable in the current debug-variable vector."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return a new vector which has the same contents as the old one VEC, plus\n"
+" new cells (for a total size of NEW-LEN). The additional elements are\n"
+" initailized to INITIAL-ELEMENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a STORAGE-INFO struction describing the object-to-source\n"
+" variable mappings from DEBUG-FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ";;; At offset ~d: ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ";;; SET: ~s[~d]~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Add hooks to track to track the source code in SEGMENT during\n"
+" disassembly. SFCACHE can be either NIL or it can be a SOURCE-FORM-CACHE\n"
+" structure, in which case it is used to cache forms from files."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No-arg-parsing entry point"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~s entry point"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return the PC of FUNCTION's header."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "If non-NIL, disassemble flets/labels too"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a list of the segments of memory containing machine code\n"
+" instructions for FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a list of the segments of memory containing machine code\n"
+" instructions for the code-component CODE. If START-OFFS and/or LENGTH is\n"
+" supplied, only that part of the code-segment is used (but these are\n"
+" constrained to lie within the code-segment)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return the address of the instructions for function and its length.\n"
+" The length is computed using a heuristic, and so may not be accurate."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns two values: the amount by which the last instruction in the\n"
+" segment goes past the end of the segment, and the offset of the end of "
+"the\n"
+" segment from the beginning of that instruction. If all instructions fit\n"
+" perfectly, this will return 0 and 0."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Computes labels for all the memory segments in SEGLIST and adds them to\n"
+" DSTATE. It's important to call this function with all the segments "
+"you're\n"
+" interested in, so it can find references from one to another."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble the machine code instructions in SEGMENT to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions in each memory segment in\n"
+" SEGMENTS in turn to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble the machine code instructions for FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Cannot compile a lexical closure"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Can't make a compiled function from ~S"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code associated with OBJECT, which can be a\n"
+" function, a lambda expression, or a symbol with a function definition. "
+"If\n"
+" it is not already compiled, the compiler is called to produce something "
+"to\n"
+" disassemble."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassembles the given area of memory starting at ADDRESS and LENGTH long.\n"
+" Note that if CODE-COMPONENT is NIL and this memory could move during a GC,"
+"\n"
+" you'd better disable it around the call to this function."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid " Address ~x not in the code component ~s."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions associated with\n"
+" CODE-COMPONENT (this may include multiple entry points)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions associated with\n"
+" ASSEM-SEGMENT (of type new-assem:segment)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a\n"
+"symbol object that we know about."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given ADDRESS, try and figure out if which slot of which symbol is being\n"
+" refered to. Of course we can just give up, so it's not a big deal...\n"
+" Returns two values, the symbol and the name of the access function of the\n"
+" slot."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given a BYTE-OFFSET from NIL, try and figure out if which slot of which\n"
+" symbol is being refered to. Of course we can just give up, so it's not a "
+"big\n"
+" deal... Returns two values, the symbol and the access function."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the lisp object located BYTE-OFFSET from NIL."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns two values; the lisp-object located at BYTE-OFFSET in the constant\n"
+" area of the code-object in the current segment and T, or NIL and NIL if\n"
+" there is no code-object in the current segment."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Build an address-name hash-table from the name-address hash"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns the name of the primitive lisp assembler routine or foreign\n"
+" symbol located at ADDRESS, or NIL if there isn't one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store NOTE (which can be either a string or a function with a single\n"
+" stream argument) to be printed as an end-of-line comment after the "
+"current\n"
+" instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store a note about the lisp constant located BYTE-OFFSET bytes from the\n"
+" current code-component, to be printed as an end-of-line comment after the\n"
+" current instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store a note about the lisp constant located at ADDR in the\n"
+" current code-component, to be printed as an end-of-line comment after the\n"
+" current instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
+" is a valid slot in a symbol, store a note describing which symbol and "
+"slot,\n"
+" to be printed as an end-of-line comment after the current instruction is\n"
+" disassembled. Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
+" is a valid lisp object, store a note describing which symbol and slot, to\n"
+" be printed as an end-of-line comment after the current instruction is\n"
+" disassembled. Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If ADDRESS is the address of a primitive assembler routine or\n"
+" foreign symbol, store a note describing which one, to be printed as\n"
+" an end-of-line comment after the current instruction is disassembled.\n"
+" Returns non-NIL iff a note was recorded. If NOTE-ADDRESS-P is non-NIL, a\n"
+" note of the address is also made."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If NIL-BYTE-OFFSET is the offset of static function, store a note\n"
+" describing which one, to be printed as an end-of-line comment after\n"
+" the current instruction is disassembled. Returns non-NIL iff a note\n"
+" was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If there's a valid mapping from OFFSET in the storage class SC-NAME to a\n"
+" source variable, make a note of the source-variable name, to be printed "
+"as\n"
+" an end-of-line comment after the current instruction is disassembled.\n"
+" Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If there's a valid mapping from OFFSET in the storage-base called SB-NAME\n"
+" to a source variable, make a note equating ASSOC-WITH with the\n"
+" source-variable name, to be printed as an end-of-line comment after the\n"
+" current instruction is disassembled. Returns non-NIL iff a note was\n"
+" recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"When called from an error break instruction's :DISASSEM-CONTROL (or\n"
+" :DISASSEM-PRINTER) function, will correctly deal with printing the\n"
+" arguments to the break.\n"
+"\n"
+" ERROR-PARSE-FUN should be a function that accepts:\n"
+" 1) a SYSTEM-AREA-POINTER\n"
+" 2) a BYTE-OFFSET from the SAP to begin at\n"
+" 3) optionally, LENGTH-ONLY, which if non-NIL, means to only return\n"
+" the byte length of the arguments (to avoid unnecessary consing)\n"
+" It should read information from the SAP starting at BYTE-OFFSET, and "
+"return\n"
+" four values:\n"
+" 1) the error number\n"
+" 2) the total length, in bytes, of the information\n"
+" 3) a list of SC-OFFSETs of the locations of the error parameters\n"
+" 4) a list of the length (as read from the SAP), in bytes, of each of "
+"the\n"
+" return-values."
+msgstr ""
+
#: target:compiler/alloc.lisp
msgid ""
"defallocators {((name lambda-list [real-lambda-list]) thread-slot\n"
@@ -14044,6 +14808,137 @@
msgid "Missing generator for ~S.~%"
msgstr ""
+#: target:compiler/debug.lisp
+msgid ""
+"This variable is bound to the format arguments when an error is signalled\n"
+" by Barf or Burp."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid ""
+"Action taken by the Burp function when a possible compiler bug is detected.\n"
+" One of :Warn, :Error or :None."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid ""
+"Return a list of a the TNs that conflict with TN. Sort of, kind of. For\n"
+" debugging use only. Probably doesn't work on :COMPONENT TNs."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid "Return the Nth VOP in the IR2-Block pointed to by Thing."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Compiler bug: ~S not a legal fasload operator."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Tried to output ~D bytes, but only ~D made it."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "This object cannot be dumped into a fasl file:~% ~S"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "~S already dumped?"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Warning: dumping ~s as 0l0~%"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Unable to dump long-float"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Attempt to dump invalid structure:~% ~S~%How did this happen?"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Dumping reference to obsolete class: ~S"
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Fatal error, aborting evaluation."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Wrong argument count, wanted ~D and got ~D."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Wrong number of arguments passed -- ~S."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Function called with odd number of keyword arguments."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Unknown keyword argument -- ~S."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "[PUSH: growing stack.]~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "pushing ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "Attempt to pop empty eval stack."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "popping ~D --> ~S.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "[EXTEND: growing stack.]~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "extending to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "shrinking to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "setting top to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"If the interpreted function cache has more functions than this come GC time,"
+"\n"
+" then attempt to prune it according to\n"
+" *INTERPRETED-FUNCTION-CACHE-THRESHOLD*."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"If an interpreted function goes uncalled for more than this many GCs, then\n"
+" it is eligible for flushing from the cache."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"Clear all entries in the eval function cache. This allows the internal\n"
+" representation of the functions to be reclaimed, and also lazily forces\n"
+" macroexpansions to be recomputed."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "C::%UNKNOWN-VALUES should never be in interpreter's IR1."
+msgstr ""
+
#: target:compiler/byte-comp.lisp
msgid "Unknown XOP ~S"
msgstr ""
Index: src/i18n/locale/ko/LC_MESSAGES/cmucl.po
diff -u src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.17 src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.18
--- src/i18n/locale/ko/LC_MESSAGES/cmucl.po:1.1.2.17 Wed Feb 10 16:50:39 2010
+++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po Wed Feb 10 17:47:03 2010
@@ -10128,7 +10128,7 @@
msgid "~A was compiled for a ~A, but this is a ~A"
msgstr ""
-#: target:code/load.lisp
+#: target:compiler/dfo.lisp target:code/load.lisp
msgid "Top-Level Form"
msgstr ""
@@ -14118,6 +14118,776 @@
msgid "local-tn-limit not a vm:word-bits multiple."
msgstr ""
+#: target:compiler/disassem.lisp
+msgid ""
+"The width of the column in which instruction-names are printed.\n"
+" NIL means use the default. A value of zero gives the effect of not\n"
+" aligning the arguments at all."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "The column in which end-of-line comments for notes are started."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Specify global disassembler params for C:*TARGET-BACKEND*.\n"
+" Keyword arguments include:\n"
+" \n"
+" :INSTRUCTION-ALIGNMENT number\n"
+" Minimum alignment of instructions, in bits.\n"
+" \n"
+" :ADDRESS-SIZE number\n"
+" Size of a machine address, in bits.\n"
+" \n"
+" :OPCODE-COLUMN-WIDTH\n"
+" Width of the column used for printing the opcode portion of the\n"
+" instruction, or NIL to use the default."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"DEFINE-ARGUMENT-TYPE Name {Key Value}*\n"
+" Define a disassembler argument type NAME (which can then be referenced in\n"
+" another argument definition using the :TYPE keyword argument). Keyword\n"
+" arguments are:\n"
+"\n"
+" :SIGN-EXTEND boolean\n"
+" If non-NIL, the raw value of this argument is sign-extended.\n"
+"\n"
+" :TYPE arg-type-name\n"
+" Inherit any properties of given argument-type.\n"
+"\n"
+" :PREFILTER function\n"
+" A function which is called (along with all other prefilters, in the\n"
+" order that their arguments appear in the instruction- format) before\n"
+" any printing is done, to filter the raw value. Any uses of READ-"
+"SUFFIX\n"
+" must be done inside a prefilter.\n"
+" \n"
+" :PRINTER function-string-or-vector\n"
+" A function, string, or vector which is used to print an argument of\n"
+" this type.\n"
+" \n"
+" :USE-LABEL \n"
+" If non-NIL, the value of an argument of this type is used as an\n"
+" address, and if that address occurs inside the disassembled code, it "
+"is\n"
+" replaced by a label. If this is a function, it is called to filter "
+"the\n"
+" value."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"DEFINE-INSTRUCTION-FORMAT (Name Length {Format-Key Value}*) Arg-Def*\n"
+" Define an instruction format NAME for the disassembler's use. LENGTH is\n"
+" the length of the format in bits.\n"
+" Possible FORMAT-KEYs:\n"
+"\n"
+" :INCLUDE other-format-name\n"
+" Inherit all arguments and properties of the given format. Any\n"
+" arguments defined in the current format definition will either modify\n"
+" the copy of an existing argument (keeping in the same order with\n"
+" respect to when pre-filter's are called), if it has the same name as\n"
+" one, or be added to the end.\n"
+" :DEFAULT-PRINTER printer-list\n"
+" Use the given PRINTER-LIST as a format to print any instructions of\n"
+" this format when they don't specify something else.\n"
+"\n"
+" Each ARG-DEF defines one argument in the format, and is of the form\n"
+" (Arg-Name {Arg-Key Value}*)\n"
+"\n"
+" Possible ARG-KEYs (the values are evaulated unless otherwise specified):\n"
+" \n"
+" :FIELDS byte-spec-list\n"
+" The argument takes values from these fields in the instruction. If\n"
+" the list is of length one, then the corresponding value is supplied "
+"by\n"
+" itself; otherwise it is a list of the values. The list may be NIL.\n"
+" :FIELD byte-spec\n"
+" The same as :FIELDS (list byte-spec).\n"
+"\n"
+" :VALUE value\n"
+" If the argument only has one field, this is the value it should have,\n"
+" otherwise it's a list of the values of the individual fields. This "
+"can\n"
+" be overridden in an instruction-definition or a format definition\n"
+" including this one by specifying another, or NIL to indicate that "
+"it's\n"
+" variable.\n"
+"\n"
+" :SIGN-EXTEND boolean\n"
+" If non-NIL, the raw value of this argument is sign-extended,\n"
+" immediately after being extracted from the instruction (before any\n"
+" prefilters are run, for instance). If the argument has multiple\n"
+" fields, they are all sign-extended.\n"
+"\n"
+" :TYPE arg-type-name\n"
+" Inherit any properties of the given argument-type.\n"
+"\n"
+" :PREFILTER function\n"
+" A function which is called (along with all other prefilters, in the\n"
+" order that their arguments appear in the instruction-format) before\n"
+" any printing is done, to filter the raw value. Any uses of READ-"
+"SUFFIX\n"
+" must be done inside a prefilter.\n"
+"\n"
+" :PRINTER function-string-or-vector\n"
+" A function, string, or vector which is used to print this argument.\n"
+" \n"
+" :USE-LABEL \n"
+" If non-NIL, the value of this argument is used as an address, and if\n"
+" that address occurs inside the disassembled code, it is replaced by a\n"
+" label. If this is a function, it is called to filter the value."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~d bits is not a byte-multiple"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns non-NIL if ADDRESS is aligned on a SIZE byte boundary."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return ADDRESS aligned *upward* to a SIZE byte boundary."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If CAR is eq to the car of OLD-CONS and CDR is eq to the CDR, return\n"
+" OLD-CONS, otherwise return (cons CAR CDR)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"A simple (one list arg) mapcar that avoids consing up a new list\n"
+" as long as the results of calling FUN on the elements of LIST are\n"
+" eq to the original."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Can't dump functions, so function ref form must be quoted: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+#, fuzzy
+msgid "Unknown argument ~s"
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/disassem.lisp
+msgid "~s must not have multiple values"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown arg-form kind ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Cannot label a multiple-field argument ~\n"
+"\t\t\t unless using a function: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Bogus! Can't use the :printed value of an arg!"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"number of constants doesn't match number of fields ~\n"
+"\t\t\t in: (~s :constant~{ ~s~})"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Can't compare differently sized fields: ~\n"
+"\t\t (~s :same-as ~s)"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Bogus test-form: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the first non-keyword symbol in a depth-first search of TREE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Illegal printer: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown printer element: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "First arg to :USING must be a string or #'function"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No suitable choice found in ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a version of the disassembly-template PRINTER with compile-time\n"
+" tests (e.g. :constant without a value), and any :CHOOSE operators "
+"resolved\n"
+" properly for the args ARGS. (:CHOOSE Sub*) simply returns the first Sub "
+"in\n"
+" which every field reference refers to a valid arg."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~&; Using cached function ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~&; Making new function ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown argument type: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"~@<In arg ~s: ~3i~:_~\n"
+" Can't specify fields except using DEFINE-INSTRUCTION-FORMAT.~:>"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"~@<In arg ~s: ~3i~:_~\n"
+"\t\t\t\t Field ~s doesn't fit in an ~\n"
+"\t\t\t\t instruction-format ~d bits wide.~:>"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to specify global disassembler params. See the\n"
+" documentation for SET-DISASSEM-PARAMS for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to define a disassembler argument type. See\n"
+" DEFINE-ARGUMENT-TYPE for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Generate a form to define an instruction format. See\n"
+" DEFINE-INSTRUCTION-FORMAT for more info."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Field ~s in arg ~s overlaps some other field"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Unknown instruction format ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns non-NIL if the instruction SPECIAL is a more specific version of\n"
+" GENERAL (i.e., the same instruction, but with more constraints)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+#, fuzzy
+msgid ""
+"Returns an integer corresponding to the specifivity of the instruction INST."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Order the list of instructions INSTS with more specific (more constant\n"
+" bits, or same-as argument constains) ones first. Returns the ordered list."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Instructions either aren't related or conflict in some way:~% ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given a list of instructions INSTS, Sees if one of these instructions is a\n"
+" more general form of all the others, in which case they are put into its\n"
+" specializers list, and it is returned. Otherwise an error is signaled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Multiple specializing masters: ~s"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns non-NIL if all constant-bits in INST match CHUNK."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given an instruction object, INST, and a bit-pattern, CHUNK, picks the\n"
+" most specific instruction on INST's specializer list who's constraints "
+"are\n"
+" met by CHUNK. If none do, then INST is returned."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns the instruction object within INST-SPACE corresponding to the\n"
+" bit-pattern CHUNK, or NIL if there isn't one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns an instruction-space object corresponding to the list of\n"
+" instructions INSTS. If the optional parameter INITIAL-MASK is supplied, "
+"only\n"
+" bits it has set are used."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Prints a nicely formatted version of INST-SPACE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+#, fuzzy
+msgid "Print the inst space for the specified backend"
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/disassem.lisp
+msgid "Converts a word-offset NUM to a byte-offset."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Converts a byte-offset NUM to a word-offset."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Get the value of the property called NAME in DSTATE. Also setf'able."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+#, fuzzy
+msgid "Returns the absolute address of the current instruction in DSTATE."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/disassem.lisp
+#, fuzzy
+msgid "Returns the absolute address of the next instruction in DSTATE."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Offset of FUNCTION from the start of its code-component's instruction area."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Offset of FUNCTION from the start of its code-component."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the length of the instruction area in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the address of the instruction area in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Returns the first function in CODE-COMPONENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Possible ~A header word"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print the function-header (entry-point) pseudo-instruction at the current\n"
+" location in DSTATE to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Iterate through the instructions in SEGMENT, calling FUNCTION\n"
+" for each instruction, with arguments of CHUNK, STREAM, and DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Make an initial non-printing disassembly pass through DSTATE, noting any\n"
+" addresses that are referenced by instructions in this segment."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If any labels in DSTATE have been added since the last call to this\n"
+" function, give them label-numbers, enter them in the hash-table, and make\n"
+" sure the label list is in sorted order."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+#, fuzzy
+msgid "Get the instruction-space from PARAMS, creating it if necessary."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print the current address in DSTATE to STREAM, plus any labels that\n"
+" correspond to it, and leave the cursor in the instruction column."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Print a newline to STREAM, inserting any pending notes in DSTATE as\n"
+" end-of-line comments. If there is more than one note, a separate line\n"
+" will be used for each one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble NUM bytes to STREAM as simple `BYTE' instructions"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble NUM machine-words to STREAM as simple `WORD' instructions"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Make a disassembler-state object."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return a memory segment located at the system-area-pointer returned by\n"
+" SAP-MAKER and LENGTH bytes long in the disassem-state object DSTATE.\n"
+" Optional keyword arguments include :VIRTUAL-LOCATION (by default the same "
+"as\n"
+" the address), :DEBUG-FUNCTION, :SOURCE-FORM-CACHE (a source-form-cache\n"
+" object), and :HOOKS (a list of offs-hook objects)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Code-header ~s: size: ~s, trace-table-offset: ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Fun-header ~s at offset ~d (words): ~s~a => ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "The source file ~s no longer seems to exist"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No start positions map"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Source file ~s has been modified; ~@\n"
+"\t\t\t\t\t Using form offset instead of file index"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Bogus form-number in form! The source file has probably ~@\n"
+"\t\t been changed too much to cope with"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return the vector of debug-variables currently associated with DSTATE."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given the OFFSET of a location within the location-group called LG-NAME,\n"
+" see if there's a current mapping to a source variable in DSTATE, and if "
+"so,\n"
+" return the offset of that variable in the current debug-variable vector."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return a new vector which has the same contents as the old one VEC, plus\n"
+" new cells (for a total size of NEW-LEN). The additional elements are\n"
+" initailized to INITIAL-ELEMENT."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a STORAGE-INFO struction describing the object-to-source\n"
+" variable mappings from DEBUG-FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ";;; At offset ~d: ~s~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ";;; SET: ~s[~d]~%"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Add hooks to track to track the source code in SEGMENT during\n"
+" disassembly. SFCACHE can be either NIL or it can be a SOURCE-FORM-CACHE\n"
+" structure, in which case it is used to cache forms from files."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "No-arg-parsing entry point"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "~s entry point"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Return the PC of FUNCTION's header."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "If non-NIL, disassemble flets/labels too"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a list of the segments of memory containing machine code\n"
+" instructions for FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns a list of the segments of memory containing machine code\n"
+" instructions for the code-component CODE. If START-OFFS and/or LENGTH is\n"
+" supplied, only that part of the code-segment is used (but these are\n"
+" constrained to lie within the code-segment)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Return the address of the instructions for function and its length.\n"
+" The length is computed using a heuristic, and so may not be accurate."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns two values: the amount by which the last instruction in the\n"
+" segment goes past the end of the segment, and the offset of the end of "
+"the\n"
+" segment from the beginning of that instruction. If all instructions fit\n"
+" perfectly, this will return 0 and 0."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Computes labels for all the memory segments in SEGLIST and adds them to\n"
+" DSTATE. It's important to call this function with all the segments "
+"you're\n"
+" interested in, so it can find references from one to another."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble the machine code instructions in SEGMENT to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions in each memory segment in\n"
+" SEGMENTS in turn to STREAM."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Disassemble the machine code instructions for FUNCTION."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Cannot compile a lexical closure"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Can't make a compiled function from ~S"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code associated with OBJECT, which can be a\n"
+" function, a lambda expression, or a symbol with a function definition. "
+"If\n"
+" it is not already compiled, the compiler is called to produce something "
+"to\n"
+" disassemble."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassembles the given area of memory starting at ADDRESS and LENGTH long.\n"
+" Note that if CODE-COMPONENT is NIL and this memory could move during a "
+"GC,\n"
+" you'd better disable it around the call to this function."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid " Address ~x not in the code component ~s."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions associated with\n"
+" CODE-COMPONENT (this may include multiple entry points)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Disassemble the machine code instructions associated with\n"
+" ASSEM-SEGMENT (of type new-assem:segment)."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"An alist of (SYMBOL-SLOT-OFFSET . ACCESS-FUNCTION-NAME) for slots in a\n"
+"symbol object that we know about."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given ADDRESS, try and figure out if which slot of which symbol is being\n"
+" refered to. Of course we can just give up, so it's not a big deal...\n"
+" Returns two values, the symbol and the name of the access function of the\n"
+" slot."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Given a BYTE-OFFSET from NIL, try and figure out if which slot of which\n"
+" symbol is being refered to. Of course we can just give up, so it's not a "
+"big\n"
+" deal... Returns two values, the symbol and the access function."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+#, fuzzy
+msgid "Returns the lisp object located BYTE-OFFSET from NIL."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns two values; the lisp-object located at BYTE-OFFSET in the constant\n"
+" area of the code-object in the current segment and T, or NIL and NIL if\n"
+" there is no code-object in the current segment."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid "Build an address-name hash-table from the name-address hash"
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Returns the name of the primitive lisp assembler routine or foreign\n"
+" symbol located at ADDRESS, or NIL if there isn't one."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store NOTE (which can be either a string or a function with a single\n"
+" stream argument) to be printed as an end-of-line comment after the "
+"current\n"
+" instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store a note about the lisp constant located BYTE-OFFSET bytes from the\n"
+" current code-component, to be printed as an end-of-line comment after the\n"
+" current instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"Store a note about the lisp constant located at ADDR in the\n"
+" current code-component, to be printed as an end-of-line comment after the\n"
+" current instruction is disassembled."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
+" is a valid slot in a symbol, store a note describing which symbol and "
+"slot,\n"
+" to be printed as an end-of-line comment after the current instruction is\n"
+" disassembled. Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If the memory address located NIL-BYTE-OFFSET bytes from the constant NIL\n"
+" is a valid lisp object, store a note describing which symbol and slot, to\n"
+" be printed as an end-of-line comment after the current instruction is\n"
+" disassembled. Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If ADDRESS is the address of a primitive assembler routine or\n"
+" foreign symbol, store a note describing which one, to be printed as\n"
+" an end-of-line comment after the current instruction is disassembled.\n"
+" Returns non-NIL iff a note was recorded. If NOTE-ADDRESS-P is non-NIL, a\n"
+" note of the address is also made."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If NIL-BYTE-OFFSET is the offset of static function, store a note\n"
+" describing which one, to be printed as an end-of-line comment after\n"
+" the current instruction is disassembled. Returns non-NIL iff a note\n"
+" was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If there's a valid mapping from OFFSET in the storage class SC-NAME to a\n"
+" source variable, make a note of the source-variable name, to be printed "
+"as\n"
+" an end-of-line comment after the current instruction is disassembled.\n"
+" Returns non-NIL iff a note was recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"If there's a valid mapping from OFFSET in the storage-base called SB-NAME\n"
+" to a source variable, make a note equating ASSOC-WITH with the\n"
+" source-variable name, to be printed as an end-of-line comment after the\n"
+" current instruction is disassembled. Returns non-NIL iff a note was\n"
+" recorded."
+msgstr ""
+
+#: target:compiler/disassem.lisp
+msgid ""
+"When called from an error break instruction's :DISASSEM-CONTROL (or\n"
+" :DISASSEM-PRINTER) function, will correctly deal with printing the\n"
+" arguments to the break.\n"
+"\n"
+" ERROR-PARSE-FUN should be a function that accepts:\n"
+" 1) a SYSTEM-AREA-POINTER\n"
+" 2) a BYTE-OFFSET from the SAP to begin at\n"
+" 3) optionally, LENGTH-ONLY, which if non-NIL, means to only return\n"
+" the byte length of the arguments (to avoid unnecessary consing)\n"
+" It should read information from the SAP starting at BYTE-OFFSET, and "
+"return\n"
+" four values:\n"
+" 1) the error number\n"
+" 2) the total length, in bytes, of the information\n"
+" 3) a list of SC-OFFSETs of the locations of the error parameters\n"
+" 4) a list of the length (as read from the SAP), in bytes, of each of "
+"the\n"
+" return-values."
+msgstr ""
+
#: target:compiler/alloc.lisp
msgid ""
"defallocators {((name lambda-list [real-lambda-list]) thread-slot\n"
@@ -14337,6 +15107,141 @@
msgid "Missing generator for ~S.~%"
msgstr ""
+#: target:compiler/debug.lisp
+msgid ""
+"This variable is bound to the format arguments when an error is signalled\n"
+" by Barf or Burp."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid ""
+"Action taken by the Burp function when a possible compiler bug is detected.\n"
+" One of :Warn, :Error or :None."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid ""
+"Return a list of a the TNs that conflict with TN. Sort of, kind of. For\n"
+" debugging use only. Probably doesn't work on :COMPONENT TNs."
+msgstr ""
+
+#: target:compiler/debug.lisp
+msgid "Return the Nth VOP in the IR2-Block pointed to by Thing."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Compiler bug: ~S not a legal fasload operator."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Tried to output ~D bytes, but only ~D made it."
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "This object cannot be dumped into a fasl file:~% ~S"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "~S already dumped?"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Warning: dumping ~s as 0l0~%"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Unable to dump long-float"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Attempt to dump invalid structure:~% ~S~%How did this happen?"
+msgstr ""
+
+#: target:compiler/dump.lisp
+msgid "Dumping reference to obsolete class: ~S"
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+msgid "Fatal error, aborting evaluation."
+msgstr ""
+
+#: target:compiler/eval-comp.lisp
+#, fuzzy
+msgid "Wrong argument count, wanted ~D and got ~D."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/eval-comp.lisp
+#, fuzzy
+msgid "Wrong number of arguments passed -- ~S."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/eval-comp.lisp
+#, fuzzy
+msgid "Function called with odd number of keyword arguments."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/eval-comp.lisp
+#, fuzzy
+msgid "Unknown keyword argument -- ~S."
+msgstr "í˜„ìž¬ì˜ ì—ë™ì ì¸ ê³µê°„ì€ ~D입니다.~%"
+
+#: target:compiler/eval.lisp
+msgid "[PUSH: growing stack.]~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "pushing ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "Attempt to pop empty eval stack."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "popping ~D --> ~S.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "[EXTEND: growing stack.]~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "extending to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "shrinking to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "setting top to ~D.~%"
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"If the interpreted function cache has more functions than this come GC "
+"time,\n"
+" then attempt to prune it according to\n"
+" *INTERPRETED-FUNCTION-CACHE-THRESHOLD*."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"If an interpreted function goes uncalled for more than this many GCs, then\n"
+" it is eligible for flushing from the cache."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid ""
+"Clear all entries in the eval function cache. This allows the internal\n"
+" representation of the functions to be reclaimed, and also lazily forces\n"
+" macroexpansions to be recomputed."
+msgstr ""
+
+#: target:compiler/eval.lisp
+msgid "C::%UNKNOWN-VALUES should never be in interpreter's IR1."
+msgstr ""
+
#: target:compiler/byte-comp.lisp
msgid "Unknown XOP ~S"
msgstr ""
More information about the cmucl-commit
mailing list