Skip to content
Snippets Groups Projects
Commit 82d0a779 authored by Raymond Toy's avatar Raymond Toy
Browse files

Update for ppc to get pot files generated correctly.

parent 01a3f47b
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment