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