[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-18-g7f177be

Raymond Toy rtoy at common-lisp.net
Sun Jan 29 17:08:45 UTC 2012


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  7f177be20349c8d8a267b51fa2f71636fce4d1ce (commit)
       via  8e96bc91f563b648050ab096b94d2bf20fd2054d (commit)
       via  86b95ac8dbf8c53cdfec8c994f01453c132a5051 (commit)
      from  1c6efe8566e0304db811c556388296d14ee78136 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 7f177be20349c8d8a267b51fa2f71636fce4d1ce
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Jan 29 08:05:54 2012 -0800

    Everything that was in cmucl-sparc-svr4 has been moved o cmucl-sparc-vm.

diff --git a/src/i18n/locale/cmucl-sparc-svr4.pot b/src/i18n/locale/cmucl-sparc-svr4.pot
deleted file mode 100644
index 8ed4a1d..0000000
--- a/src/i18n/locale/cmucl-sparc-svr4.pot
+++ /dev/null
@@ -1,73 +0,0 @@
-#@ cmucl-sparc-svr4
-
-# SOME DESCRIPTIVE TITLE
-# FIRST AUTHOR <EMAIL at ADDRESS>, YEAR
-#
-#, fuzzy
-msgid ""
-msgstr ""
-"Project-Id-Version: PACKAGE VERSION\n"
-"Report-Msgid-Bugs-To: \n"
-"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
-"Last-Translator: FULL NAME <EMAIL at ADDRESS>\n"
-"Language-Team: LANGUAGE <LL at li.org>\n"
-"MIME-Version: 1.0\n"
-"Content-Type: text/plain; charset=UTF-8\n"
-"Content-Transfer-Encoding: 8bit\n"
-
-#: src/code/sparc-svr4-vm.lisp
-msgid "Returns a string describing the type of the local machine."
-msgstr ""
-
-#: src/code/sparc-svr4-vm.lisp
-msgid "Returns a string describing the version of the local machine."
-msgstr ""
-
-#: src/code/sparc-svr4-vm.lisp
-msgid "Unaligned instruction?  offset=#x~X."
-msgstr ""
-
-#: src/code/sparc-svr4-vm.lisp
-msgid "Can't deal with CALL fixups, yet."
-msgstr ""
-
-#: src/code/sparc-svr4-vm.lisp
-msgid "XRS ID invalid but attempting to access double-float register ~d!"
-msgstr ""
-
-#: src/code/signal.lisp
-msgid "Emt instruction"
-msgstr ""
-
-#: src/code/signal.lisp
-msgid "Bad argument to system call"
-msgstr ""
-
-#: src/code/signal.lisp
-msgid "Process's lwps are blocked"
-msgstr ""
-
-#: src/code/debug-int.lisp
-msgid "no debug info: ~A:~A"
-msgstr ""
-
-#: src/code/debug-int.lisp
-msgid "find the PC"
-msgstr ""
-
-#: src/code/debug-int.lisp
-msgid "Local non-descriptor register access?"
-msgstr ""
-
-#: src/code/debug-int.lisp
-msgid "Local interior register access?"
-msgstr ""
-
-#: src/code/debug-int.lisp
-msgid "Breakpoint that nobody wants?"
-msgstr ""
-
-#: src/code/debug-int.lisp
-msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
-msgstr ""
-
diff --git a/src/i18n/locale/cmucl-sparc-vm.pot b/src/i18n/locale/cmucl-sparc-vm.pot
index 2d9d588..77c892b 100644
--- a/src/i18n/locale/cmucl-sparc-vm.pot
+++ b/src/i18n/locale/cmucl-sparc-vm.pot
@@ -15,6 +15,62 @@ msgstr ""
 "Content-Type: text/plain; charset=UTF-8\n"
 "Content-Transfer-Encoding: 8bit\n"
 
+#: src/code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the type of the local machine."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "Returns a string describing the version of the local machine."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "Unaligned instruction?  offset=#x~X."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "Can't deal with CALL fixups, yet."
+msgstr ""
+
+#: src/code/sparc-svr4-vm.lisp
+msgid "XRS ID invalid but attempting to access double-float register ~d!"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Emt instruction"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Bad argument to system call"
+msgstr ""
+
+#: src/code/signal.lisp
+msgid "Process's lwps are blocked"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "no debug info: ~A:~A"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "find the PC"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local non-descriptor register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Local interior register access?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "Breakpoint that nobody wants?"
+msgstr ""
+
+#: src/code/debug-int.lisp
+msgid "BREAKPOINT-DO-DISPLACED-INST returned?"
+msgstr ""
+
 #: src/compiler/sparc/parms.lisp
 msgid "Number of bits per word where a word holds one lisp descriptor."
 msgstr ""

commit 8e96bc91f563b648050ab096b94d2bf20fd2054d
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Jan 29 00:32:23 2012 -0800

    Update textdomains.
    
     * Use cmucl-sparc-vm instead of cmucl-sparc-svr4

diff --git a/src/code/signal.lisp b/src/code/signal.lisp
index 217a0f8..ee6ee6b 100644
--- a/src/code/signal.lisp
+++ b/src/code/signal.lisp
@@ -104,7 +104,7 @@
 (def-unix-signal :SIGIOT 6 "Iot instruction") ; Compatibility
 (def-unix-signal :SIGABRT 6 "C abort()")
 (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os"
-				#+(or sparc solaris) "cmucl-sparc-svr4"
+				#+(or sparc solaris) "cmucl-sparc-vm"
 				#+bsd "cmucl-bsd-os")
 #-linux
 (def-unix-signal :SIGEMT 7 "Emt instruction"))
@@ -115,7 +115,7 @@
 (def-unix-signal :SIGBUS #-linux 10 #+linux 7 "Bus error")
 (def-unix-signal :SIGSEGV 11 "Segmentation violation")
 (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os"
-				#+(or sparc solaris) "cmucl-sparc-svr4"
+				#+(or sparc solaris) "cmucl-sparc-vm"
 				#+bsd "cmucl-bsd-os")
 #-linux
 (def-unix-signal :SIGSYS 12 "Bad argument to system call"))
@@ -124,7 +124,7 @@
 (def-unix-signal :SIGALRM 14 "Alarm clock")
 (def-unix-signal :SIGTERM 15 "Software termination signal")
 (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os"
-				#+(or sparc solaris) "cmucl-sparc-svr4"
+				#+(or sparc solaris) "cmucl-sparc-vm"
 				#+bsd "cmucl-bsd-os")
 #+linux
 (def-unix-signal :SIGSTKFLT 16 "Stack fault on coprocessor"))
@@ -163,7 +163,7 @@
 
 ;;; SVR4 (or Solaris?) specific signals
 (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os"
-				#+(or sparc solaris) "cmucl-sparc-svr4"
+				#+(or sparc solaris) "cmucl-sparc-vm"
 				#+bsd "cmucl-bsd-os")
 #+svr4
 (def-unix-signal :SIGWAITING 32 "Process's lwps are blocked"))

commit 86b95ac8dbf8c53cdfec8c994f01453c132a5051
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Jan 29 00:31:29 2012 -0800

    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.

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 6e5d63b..a3a3dfb 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 489ea2c..bba9f78 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 7fe91b8..92b7af0 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 fb4564e..0c23e4b 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

-----------------------------------------------------------------------

Summary of changes:
 src/code/debug-int.lisp              |   14 +++---
 src/code/ppc-vm.lisp                 |    2 +-
 src/code/signal.lisp                 |    8 ++--
 src/code/sparc-svr4-vm.lisp          |    2 +-
 src/code/sparc-vm.lisp               |    2 +-
 src/i18n/locale/cmucl-sparc-svr4.pot |   73 ----------------------------------
 src/i18n/locale/cmucl-sparc-vm.pot   |   56 ++++++++++++++++++++++++++
 7 files changed, 70 insertions(+), 87 deletions(-)
 delete mode 100644 src/i18n/locale/cmucl-sparc-svr4.pot


hooks/post-receive
-- 
CMU Common Lisp




More information about the cmucl-cvs mailing list