From 86b95ac8dbf8c53cdfec8c994f01453c132a5051 Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Sun, 29 Jan 2012 00:31:29 -0800 Subject: [PATCH] Update textdomains. * Use cmucl-sparc-vm instead of cmucl-sparc-svr4 * Use cmucl-ppc-vm instead of cmucl-ppc. * code/ppc-vm.lisp should be in the cmucl-ppc textdomain instead of cmucl. --- src/code/debug-int.lisp | 14 +++++++------- src/code/ppc-vm.lisp | 2 +- src/code/sparc-svr4-vm.lisp | 2 +- src/code/sparc-vm.lisp | 2 +- 4 files changed, 10 insertions(+), 10 deletions(-) diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp index 6e5d63ba4..a3a3dfb57 100644 --- a/src/code/debug-int.lisp +++ b/src/code/debug-int.lisp @@ -1253,7 +1253,7 @@ The result is a symbol or nil if the routine cannot be found." ;;; LRA, and the LRA is the word offset. ;;; #-(or gengc x86 amd64) -(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-svr4" #+ppc "cmucl-ppc") +(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-vm" #+ppc "cmucl-ppc-vm") (defun compute-calling-frame (caller lra up-frame) (declare (type system:system-area-pointer caller)) (when (cstack-pointer-valid-p caller) @@ -1362,7 +1362,7 @@ The result is a symbol or nil if the routine cannot be found." escaped)))))) #-(or gengc x86 amd64) -(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-svr4" #+ppc "cmucl-ppc") +(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-vm" #+ppc "cmucl-ppc-vm") (defun find-escaped-frame (frame-pointer) (declare (type system:system-area-pointer frame-pointer)) (dotimes (index lisp::*free-interrupt-context-index* (values nil 0 nil)) @@ -1455,7 +1455,7 @@ The result is a symbol or nil if the routine cannot be found." (values code pc-offset scp))))))))))) #-(or gengc x86 amd64) -(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-svr4" #+ppc "cmucl-ppc") +(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-vm" #+ppc "cmucl-ppc-vm") (defun find-pc-from-assembly-fun (code scp) "find the PC" (let ((return-machine-address @@ -3079,7 +3079,7 @@ The result is a symbol or nil if the routine cannot be found." ;;; SUB-ACCESS-DEBUG-VAR-SLOT -- Internal. ;;; #-(or x86 amd64) -(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-svr4" #+ppc "cmucl-ppc") +(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-vm" #+ppc "cmucl-ppc-vm") (defun sub-access-debug-var-slot (fp sc-offset &optional escaped) (macrolet ((with-escaped-value ((var) &body forms) `(if escaped @@ -3505,7 +3505,7 @@ The result is a symbol or nil if the routine cannot be found." ;;; SUB-SET-DEBUG-VAR-SLOT -- Internal. ;;; #-(or x86 amd64) -(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-svr4" #+ppc "cmucl-ppc") +(intl:with-textdomain ("cmucl" #+sparc "cmucl-sparc-vm" #+ppc "cmucl-ppc-vm") (defun sub-set-debug-var-slot (fp sc-offset value &optional escaped) (macrolet ((set-escaped-value (val) `(if escaped @@ -4501,8 +4501,8 @@ The result is a symbol or nil if the routine cannot be found." ;;; This handles code-location and debug-function :function-start breakpoints. ;;; (intl:with-textdomain ("cmucl" #+(or x86 amd64) "cmucl-x86-vm" - #+sparc "cmucl-sparc-svr4" - #+ppc "cmucl-ppc") + #+sparc "cmucl-sparc-vm" + #+ppc "cmucl-ppc-vm") (defun handle-breakpoint-aux (breakpoints data offset component signal-context) (unless breakpoints (error (intl:gettext "Breakpoint that nobody wants?"))) diff --git a/src/code/ppc-vm.lisp b/src/code/ppc-vm.lisp index 489ea2c9a..bba9f78b3 100644 --- a/src/code/ppc-vm.lisp +++ b/src/code/ppc-vm.lisp @@ -17,7 +17,7 @@ (use-package "SYSTEM") (use-package "UNIX") -(intl:textdomain "cmucl") +(intl:textdomain "cmucl-ppc-vm") (export '(fixup-code-object internal-error-arguments sigcontext-program-counter sigcontext-register diff --git a/src/code/sparc-svr4-vm.lisp b/src/code/sparc-svr4-vm.lisp index 7fe91b8da..92b7af032 100644 --- a/src/code/sparc-svr4-vm.lisp +++ b/src/code/sparc-svr4-vm.lisp @@ -15,7 +15,7 @@ (use-package "SYSTEM") (use-package "UNIX") -(intl:textdomain "cmucl-sparc-svr4") +(intl:textdomain "cmucl-sparc-vm") (export '(fixup-code-object internal-error-arguments sigcontext-program-counter sigcontext-register diff --git a/src/code/sparc-vm.lisp b/src/code/sparc-vm.lisp index fb4564e3d..0c23e4b61 100644 --- a/src/code/sparc-vm.lisp +++ b/src/code/sparc-vm.lisp @@ -15,7 +15,7 @@ (use-package "SYSTEM") (use-package "UNIX") -(intl:textdomain "cmucl") +(intl:textdomain "cmucl-sparc-vm") (export '(fixup-code-object internal-error-arguments sigcontext-program-counter sigcontext-register -- GitLab