Commit 82d0a779 authored by Raymond Toy's avatar Raymond Toy

Update for ppc to get pot files generated correctly.

parent 01a3f47b
......@@ -1182,7 +1182,7 @@
#+(or sparc (and x86 (or darwin solaris netbsd)) (and (or x86 amd64) linux))
(defun find-foreign-function-name (address)
"Return a string describing the foreign function near ADDRESS"
_"Return a string describing the foreign function near ADDRESS"
(let ((addr (sys:sap-int address)))
(alien:with-alien ((info (alien:struct dl-info
(filename c-call:c-string)
......@@ -1194,7 +1194,7 @@
:extern "dladdr"))
(let ((err (alien:alien-funcall dladdr addr (alien:addr info))))
(cond ((zerop err)
(intl:gettext "Foreign function call land"))
_"Foreign function call land")
(t
(format nil "~A+#x~x [#x~X] ~A"
(alien:slot info 'symbol)
......@@ -1206,7 +1206,7 @@
#-(or sparc (and x86 (or darwin solaris netbsd)) (and (or x86 amd64) linux))
(defun find-foreign-function-name (ra)
(declare (ignore ra))
"Foreign function call land")
_"Foreign function call land")
(defun assembly-routines-p (component)
"Return t if COMPONENT contains code from assembly routines."
......
......@@ -960,14 +960,14 @@
()
(:report (lambda (condition stream)
(declare (ignore condition))
(format stream (intl:gettext "Control stack overflow")))))
(format stream _"Control stack overflow"))))
#+heap-overflow-check
(define-condition heap-overflow (storage-condition)
()
(:report (lambda (condition stream)
(declare (ignore condition))
(format stream (intl:gettext "Heap (dynamic space) overflow")))))
(format stream _"Heap (dynamic space) overflow"))))
(define-condition type-error (error)
((datum :reader type-error-datum :initarg :datum)
......
......@@ -666,10 +666,10 @@
(defun yellow-zone-hit ()
(let ((debug:*stack-top-hint* nil))
(format *error-output*
(intl:gettext "~2&~@<A control stack overflow has occurred:~%~
_"~2&~@<A control stack overflow has occurred:~%~
the program has entered the yellow control stack guard zone.~%~
Please note that you will be returned to the Top-Level if you~%~
enter the red control stack guard zone while debugging.~@:>~2%"))
enter the red control stack guard zone while debugging.~@:>~2%")
(infinite-error-protect (error 'stack-overflow))))
;;;
......@@ -684,9 +684,9 @@
#+stack-checking
(defun red-zone-hit ()
(format *error-output*
(intl:gettext "~2&~@<Fatal control stack overflow. You have entered~%~
_"~2&~@<Fatal control stack overflow. You have entered~%~
the red control stack guard zone while debugging.~%~
Returning to Top-Level.~@:>~2%"))
Returning to Top-Level.~@:>~2%")
(throw 'lisp::top-level-catcher nil))
#+heap-overflow-check
......@@ -695,10 +695,10 @@
;; Don't reserve any more pages
(setf lisp::reserved-heap-pages 0)
(format *error-output*
(intl:gettext "~2&~@<Imminent dynamic space overflow has occurred:~%~
_"~2&~@<Imminent dynamic space overflow has occurred:~%~
Only a small amount of dynamic space is available now.~%~
Please note that you will be returned to the Top-Level without~%~
warning if you run out of space while debugging.~@:>~%"))
warning if you run out of space while debugging.~@:>~%")
(infinite-error-protect (error 'heap-overflow))))
#+heap-overflow-check
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment