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

Update for ppc to get pot files generated correctly.

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