- cmucl-cvs - mailman3.common-lisp.net

[cmucl-cvs] [git] CMU Common Lisp annotated tag snapshot-2012-02 created. snapshot-2012-02
by Raymond Toy 04 Feb '12

04 Feb '12

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 annotated tag, snapshot-2012-02 has been created at b6be26e41b7b2ade7450f559c2a4ca9c6372968a (tag) tagging 07cd38a5a4b6d2e3897af2ef483b839f212e1f01 (commit) replaces snapshot-2012-01 tagged by Raymond Toy on Sat Feb 4 08:39:03 2012 -0800 - Log ----------------------------------------------------------------- Snapshot 2012-02 released. Raymond Toy (36): Fix #51 by removing the unused alloc_8/16_foo routines. Fix ticket:53 by adding UTF-8 to the core. Get rid of os_stack_grows_down and friends and hardwire the decision Update. Oops. Update path to clean-target.sh. Only set UNIDATA_PATH if it's defined. Check in changes needed to build ppc. Yay! Very likely broke other Update so we can build on darwin/x86 again. Update so we can build on darwin/x86 again. Update code to work with 10.4 as well as 10.5. Merge latest code Merge branch 'master' of ssh://diapentepomum/~rtoym/src/cmucl/git/cmucl into ppc-update Specify the correct return type for sc_reg. Fix up casts to get rid of some compiler warnings. Oops. load-world.sh is in bin, not src/tools now. Changes so we can cross-compile from x86 to ppc. This will produce a Update textdomains. Update textdomains. Everything that was in cmucl-sparc-svr4 has been moved o cmucl-sparc-vm. When writing out the runtime features to internals.h, only include the Update from logs. Fix ticket:52. Minor fix from Paul: avoid capitalizing mid-name in the completions Use ppc as the default directory for ppc/darwin. Merge branch 'master' of ssh://diapentepomum/~rtoym/src/cmucl/git/cmucl Initial version of cmucl-ppc-vm.pot. Update from logs. Move the PPC news to the Changes section from the Move common unicode fasl fops from the main ppc and sparc cross Fix ticket:55. Copy all of the sigmask instead of just a few. This Update. Update docstring for {{{STRING-CAPITALIZE}}} to mention Update from current sources. Update. Add translation files for cmucl-ppc-vm. Regenerated. Use CHAR_BIT instead of 8. Fix compiler warning by defining server_shutdown correctly. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-36-g07cd38a
by Raymond Toy 04 Feb '12

04 Feb '12

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 07cd38a5a4b6d2e3897af2ef483b839f212e1f01 (commit) from a993b16048c21136a274c7b7d09a5b3969bf444a (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 07cd38a5a4b6d2e3897af2ef483b839f212e1f01 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Feb 4 08:34:35 2012 -0800 Fix compiler warning by defining server_shutdown correctly. diff --git a/src/motif/server/main.c b/src/motif/server/main.c index e380c79..c5e42ba 100644 --- a/src/motif/server/main.c +++ b/src/motif/server/main.c @@ -88,9 +88,9 @@ void close_sockets() unlink(socket_path); } -void server_shutdown() +void server_shutdown(int signal) { - fprintf(stderr,"Caught signal.\n"); + fprintf(stderr,"Caught signal %d.\n", signal); close_sockets(); exit(0); } ----------------------------------------------------------------------- Summary of changes: src/motif/server/main.c | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-35-ga993b16
by Raymond Toy 04 Feb '12

04 Feb '12

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 a993b16048c21136a274c7b7d09a5b3969bf444a (commit) via 2874165662a2894134ac1d120dfae5e96002c96f (commit) via 5b860d11a949ccf69d80f501bf911ccf29d09a3f (commit) via e2e3b4a38a0d251edf2d7805a00a0b6baef2b4fd (commit) via ebf5d59dc76245252f0ee206b23b713894fb9f16 (commit) from e7900f281d4bf965697a7f76040b4f1b5c0b8908 (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 a993b16048c21136a274c7b7d09a5b3969bf444a Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Feb 4 00:29:27 2012 -0800 Use CHAR_BIT instead of 8. diff --git a/src/lisp/interrupt.c b/src/lisp/interrupt.c index b6332f5..25fb2f6 100644 --- a/src/lisp/interrupt.c +++ b/src/lisp/interrupt.c @@ -175,7 +175,7 @@ copy_sigmask(sigset_t *dst, sigset_t *src) #ifndef __linux__ *dst = *src; #else - memcpy(dst, src, NSIG / 8); + memcpy(dst, src, NSIG / CHAR_BIT); #endif } commit 2874165662a2894134ac1d120dfae5e96002c96f Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Feb 4 00:28:22 2012 -0800 Regenerated. diff --git a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-sparc-vm.po b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-sparc-vm.po index c5ad3ff..292db31 100644 --- a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-sparc-vm.po +++ b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-sparc-vm.po @@ -16,6 +16,62 @@ msgstr "" "Content-Transfer-Encoding: 8bit\n" "Plural-Forms: nplurals=2; plural=(n != 1);\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 "" diff --git a/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po b/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po index 9eb9420..3e56861 100644 --- a/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po +++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po @@ -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 5b860d11a949ccf69d80f501bf911ccf29d09a3f Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Feb 3 21:15:33 2012 -0800 Add translation files for cmucl-ppc-vm. diff --git a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-ppc-vm.po b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-ppc-vm.po new file mode 100644 index 0000000..8a18696 --- /dev/null +++ b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl-ppc-vm.po @@ -0,0 +1,39 @@ +#: src/code/ppc-vm.lisp +msgid "Returns a string describing the type of the local machine." +msgstr "" + +#: src/code/ppc-vm.lisp +msgid "Returns a string describing the version of the local machine." +msgstr "" + +#: src/code/ppc-vm.lisp +msgid "Compute x*y-z with only one rounding operation" +msgstr "" + +#: src/code/ppc-vm.lisp +msgid "Compute x*y+z with only one rounding operation" +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/ko/LC_MESSAGES/cmucl-ppc-vm.po b/src/i18n/locale/ko/LC_MESSAGES/cmucl-ppc-vm.po new file mode 100644 index 0000000..8a18696 --- /dev/null +++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl-ppc-vm.po @@ -0,0 +1,39 @@ +#: src/code/ppc-vm.lisp +msgid "Returns a string describing the type of the local machine." +msgstr "" + +#: src/code/ppc-vm.lisp +msgid "Returns a string describing the version of the local machine." +msgstr "" + +#: src/code/ppc-vm.lisp +msgid "Compute x*y-z with only one rounding operation" +msgstr "" + +#: src/code/ppc-vm.lisp +msgid "Compute x*y+z with only one rounding operation" +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 "" commit e2e3b4a38a0d251edf2d7805a00a0b6baef2b4fd Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Feb 3 21:00:32 2012 -0800 Update. diff --git a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po index 37c3afe..d876a5d 100644 --- a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po @@ -5501,13 +5501,16 @@ msgstr "" " onnay-asecay-odifiablemay arschay." #: src/code/string.lisp +#, fuzzy msgid "" "Given a string, returns a copy of the string with the first\n" " character of each ``word'' converted to upper-case, and remaining\n" -" chars in the word converted to lower case. A ``word'' is defined\n" -" to be a string of case-modifiable characters delimited by\n" -" non-case-modifiable chars. Casing is :simple or :full for\n" -" simple or full case conversion, respectively." +" chars in the word converted to lower case. Casing is :simple or\n" +" :full for simple or full case conversion, respectively. If\n" +" Unicode-Word-Break is non-Nil, then the Unicode word-breaking\n" +" algorithm is used to determine the word boundaries. Otherwise, A\n" +" ``word'' is defined to be a string of case-modifiable characters\n" +" delimited by non-case-modifiable chars. " msgstr "" "Ivengay away ingstray, eturnsray away opycay ofway ethay ingstray ithway " "ethay irstfay\n" @@ -5517,9 +5520,7 @@ msgstr "" "``ordway'' isway efinedday\n" " otay ebay away ingstray ofway asecay-odifiablemay aracterschay elimitedday " "ybay\n" -" onnay-asecay-odifiablemay arschay. Asingcay isway :implesay orway :ullfay " -"orfay\n" -" implesay orway ullfay asecay onversioncay, espectivelyray." +" onnay-asecay-odifiablemay arschay." #: src/code/string.lisp msgid "" @@ -13052,6 +13053,18 @@ msgstr "" "Ethay externalway-ormatfay orfay encodingway ilenamesfay isway alreadyway " "etsay." +#: src/code/extfmts.lisp +msgid "" +"UTF-8 is a variable-length character encoding for Unicode. By\n" +"default, illegal input sequences are replaced by the Unicode\n" +"replacement character." +msgstr "" +"UTF-8 isway away ariablevay-engthlay aracterchay encodingway orfay " +"Unicodeway. Ybay\n" +"efaultday, illegalway inputway equencessay areway eplacedray ybay ethay " +"Unicodeway\n" +"eplacementray aracterchay." + #: src/code/fd-stream.lisp msgid "" "List of available buffers. Each buffer is an sap pointing to\n" @@ -30437,16 +30450,25 @@ msgstr "" "eplacedray ybay ethay\n" "Unicodeway eplacementray aracterchay." -msgid "" -"UTF-8 is a variable-length character encoding for Unicode. By\n" -"default, illegal input sequences are replaced by the Unicode\n" -"replacement character." -msgstr "" -"UTF-8 isway away ariablevay-engthlay aracterchay encodingway orfay " -"Unicodeway. Ybay\n" -"efaultday, illegalway inputway equencessay areway eplacedray ybay ethay " -"Unicodeway\n" -"eplacementray aracterchay." +#~ msgid "" +#~ "Given a string, returns a copy of the string with the first\n" +#~ " character of each ``word'' converted to upper-case, and remaining\n" +#~ " chars in the word converted to lower case. A ``word'' is defined\n" +#~ " to be a string of case-modifiable characters delimited by\n" +#~ " non-case-modifiable chars. Casing is :simple or :full for\n" +#~ " simple or full case conversion, respectively." +#~ msgstr "" +#~ "Ivengay away ingstray, eturnsray away opycay ofway ethay ingstray ithway " +#~ "ethay irstfay\n" +#~ " aracterchay ofway eachway ``ordway'' onvertedcay otay upperway-asecay, " +#~ "andway emainingray\n" +#~ " arschay inway ethay ordway onvertedcay otay owerlay asecay. Away " +#~ "``ordway'' isway efinedday\n" +#~ " otay ebay away ingstray ofway asecay-odifiablemay aracterschay " +#~ "elimitedday ybay\n" +#~ " onnay-asecay-odifiablemay arschay. Asingcay isway :implesay orway :" +#~ "ullfay orfay\n" +#~ " implesay orway ullfay asecay onversioncay, espectivelyray." #~ msgid "" #~ "Convert String to octets using the specified External-format. The\n" diff --git a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po index 12d0955..db37457 100644 --- a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po @@ -3894,10 +3894,12 @@ msgstr "" msgid "" "Given a string, returns a copy of the string with the first\n" " character of each ``word'' converted to upper-case, and remaining\n" -" chars in the word converted to lower case. A ``word'' is defined\n" -" to be a string of case-modifiable characters delimited by\n" -" non-case-modifiable chars. Casing is :simple or :full for\n" -" simple or full case conversion, respectively." +" chars in the word converted to lower case. Casing is :simple or\n" +" :full for simple or full case conversion, respectively. If\n" +" Unicode-Word-Break is non-Nil, then the Unicode word-breaking\n" +" algorithm is used to determine the word boundaries. Otherwise, A\n" +" ``word'' is defined to be a string of case-modifiable characters\n" +" delimited by non-case-modifiable chars. " msgstr "" #: src/code/string.lisp @@ -9137,6 +9139,13 @@ msgstr "" msgid "The external-format for encoding filenames is already set." msgstr "" +#: src/code/extfmts.lisp +msgid "" +"UTF-8 is a variable-length character encoding for Unicode. By\n" +"default, illegal input sequences are replaced by the Unicode\n" +"replacement character." +msgstr "" + #: src/code/fd-stream.lisp msgid "" "List of available buffers. Each buffer is an sap pointing to\n" @@ -21287,9 +21296,3 @@ msgid "" "By default, illegal inputs and illegal outputs are replaced by the\n" "Unicode replacement character." msgstr "" - -msgid "" -"UTF-8 is a variable-length character encoding for Unicode. By\n" -"default, illegal input sequences are replaced by the Unicode\n" -"replacement character." -msgstr "" commit ebf5d59dc76245252f0ee206b23b713894fb9f16 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Feb 3 20:59:04 2012 -0800 Update from current sources. diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot index fe5e876..361d385 100644 --- a/src/i18n/locale/cmucl.pot +++ b/src/i18n/locale/cmucl.pot @@ -3893,10 +3893,12 @@ msgstr "" msgid "" "Given a string, returns a copy of the string with the first\n" " character of each ``word'' converted to upper-case, and remaining\n" -" chars in the word converted to lower case. A ``word'' is defined\n" -" to be a string of case-modifiable characters delimited by\n" -" non-case-modifiable chars. Casing is :simple or :full for\n" -" simple or full case conversion, respectively." +" chars in the word converted to lower case. Casing is :simple or\n" +" :full for simple or full case conversion, respectively. If\n" +" Unicode-Word-Break is non-Nil, then the Unicode word-breaking\n" +" algorithm is used to determine the word boundaries. Otherwise, A\n" +" ``word'' is defined to be a string of case-modifiable characters\n" +" delimited by non-case-modifiable chars. " msgstr "" #: src/code/string.lisp ----------------------------------------------------------------------- Summary of changes: src/i18n/locale/cmucl.pot | 10 ++-- .../LC_MESSAGES/cmucl-ppc-vm.po} | 18 ------ .../en(a)piglatin/LC_MESSAGES/cmucl-sparc-vm.po | 56 ++++++++++++++++++++ src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po | 56 ++++++++++++++------ .../LC_MESSAGES/cmucl-ppc-vm.po} | 18 ------ src/i18n/locale/ko/LC_MESSAGES/cmucl-sparc-vm.po | 56 ++++++++++++++++++++ src/i18n/locale/ko/LC_MESSAGES/cmucl.po | 23 +++++---- src/lisp/interrupt.c | 2 +- 8 files changed, 171 insertions(+), 68 deletions(-) copy src/i18n/locale/{cmucl-ppc-vm.pot => en(a)piglatin/LC_MESSAGES/cmucl-ppc-vm.po} (66%) copy src/i18n/locale/{cmucl-ppc-vm.pot => ko/LC_MESSAGES/cmucl-ppc-vm.po} (66%) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-30-ge7900f2
by Raymond Toy 04 Feb '12

04 Feb '12

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 e7900f281d4bf965697a7f76040b4f1b5c0b8908 (commit) from ca2a2a438e42d18c8023fb98cdaa6998f52db3d5 (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 e7900f281d4bf965697a7f76040b4f1b5c0b8908 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Feb 3 20:34:12 2012 -0800 Update docstring for {{{STRING-CAPITALIZE}}} to mention {{{:UNICODE-WORD-BREAK}}} keyword parameter that enables the Unicode word-breaking algorithm to determine word boundaries. diff --git a/src/code/string.lisp b/src/code/string.lisp index bdf9d38..5a1a814 100644 --- a/src/code/string.lisp +++ b/src/code/string.lisp @@ -855,10 +855,12 @@ #+unicode _N"Given a string, returns a copy of the string with the first character of each ``word'' converted to upper-case, and remaining - chars in the word converted to lower case. A ``word'' is defined - to be a string of case-modifiable characters delimited by - non-case-modifiable chars. Casing is :simple or :full for - simple or full case conversion, respectively." + chars in the word converted to lower case. Casing is :simple or + :full for simple or full case conversion, respectively. If + Unicode-Word-Break is non-Nil, then the Unicode word-breaking + algorithm is used to determine the word boundaries. Otherwise, A + ``word'' is defined to be a string of case-modifiable characters + delimited by non-case-modifiable chars. " (declare (fixnum start)) #-unicode ----------------------------------------------------------------------- Summary of changes: src/code/string.lisp | 10 ++++++---- 1 files changed, 6 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-29-gca2a2a4
by Raymond Toy 04 Feb '12

04 Feb '12

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 ca2a2a438e42d18c8023fb98cdaa6998f52db3d5 (commit) from d6cb31e417a1f73fcd326de8534f6a3da0f2cc89 (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 ca2a2a438e42d18c8023fb98cdaa6998f52db3d5 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Feb 3 20:23:31 2012 -0800 Update. diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index 3b0f1b3..fb7180a 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -50,6 +50,7 @@ New in this release: * #50: Print/read error with make-pathname. * #53: UTF-8 in core. * #52: UNICODE-COMPLETE-NAME misses a completion. + * #55: blocked signals. * Other changes: * The layout of the cmucl directories has been changed. ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20d.txt | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-28-gd6cb31e
by Raymond Toy 04 Feb '12

04 Feb '12

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 d6cb31e417a1f73fcd326de8534f6a3da0f2cc89 (commit) from ce8d55de55c26673c07c985bc21db14c2e2652b5 (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 d6cb31e417a1f73fcd326de8534f6a3da0f2cc89 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Feb 3 19:47:29 2012 -0800 Fix ticket:55. Copy all of the sigmask instead of just a few. This only affected linux which uses an array for the sigmask. diff --git a/src/lisp/interrupt.c b/src/lisp/interrupt.c index de17cee..b6332f5 100644 --- a/src/lisp/interrupt.c +++ b/src/lisp/interrupt.c @@ -169,6 +169,16 @@ interrupt_internal_error(HANDLER_ARGS, boolean continuable) arch_skip_instruction(context); } +static void +copy_sigmask(sigset_t *dst, sigset_t *src) +{ +#ifndef __linux__ + *dst = *src; +#else + memcpy(dst, src, NSIG / 8); +#endif +} + void interrupt_handle_pending(os_context_t * context) { @@ -190,11 +200,8 @@ interrupt_handle_pending(os_context_t * context) #endif undo_fake_foreign_function_call(context); } -#ifndef __linux__ - context->uc_sigmask = pending_mask; -#else - memcpy(&context->uc_sigmask, &pending_mask, NSIG / LONG_BIT); -#endif + + copy_sigmask(&context->uc_sigmask, &pending_mask); sigemptyset(&pending_mask); if (pending_signal) { @@ -300,7 +307,7 @@ setup_pending_signal(HANDLER_ARGS) * */ pending_code.si_code = CODE(code); - pending_mask = ucontext->uc_sigmask; + copy_sigmask(&pending_mask, &ucontext->uc_sigmask); FILLBLOCKSET(&ucontext->uc_sigmask); } @@ -372,11 +379,7 @@ interrupt_maybe_gc(HANDLER_ARGS) if (arch_pseudo_atomic_atomic(context)) { maybe_gc_pending = TRUE; if (pending_signal == 0) { -#ifndef __linux__ - pending_mask = context->uc_sigmask; -#else - memcpy(&pending_mask, &context->uc_sigmask, NSIG / LONG_BIT); -#endif + copy_sigmask(&pending_mask, &context->uc_sigmask); FILLBLOCKSET(&context->uc_sigmask); } arch_set_pseudo_atomic_interrupted(context); ----------------------------------------------------------------------- Summary of changes: src/lisp/interrupt.c | 25 ++++++++++++++----------- 1 files changed, 14 insertions(+), 11 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-27-gce8d55d
by Raymond Toy 01 Feb '12

01 Feb '12

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 ce8d55de55c26673c07c985bc21db14c2e2652b5 (commit) from 944c67fb1ed7eec21d223d3c82748ddd968cab61 (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 ce8d55de55c26673c07c985bc21db14c2e2652b5 Author: Raymond Toy <rtoy(a)google.com> Date: Wed Feb 1 09:13:24 2012 -0800 Move common unicode fasl fops from the main ppc and sparc cross scripts to its own file so that they can be shared. diff --git a/src/tools/cross-scripts/cross-unicode-big-endian.lisp b/src/tools/cross-scripts/cross-unicode-big-endian.lisp new file mode 100644 index 0000000..74fffbb --- /dev/null +++ b/src/tools/cross-scripts/cross-unicode-big-endian.lisp @@ -0,0 +1,93 @@ +;; Common parts for cross-compiling from a little-ending machine to a +;; big-endian machine like sparc or ppc. Basically, we need to adjust +;; the fops that deal with strings (like symbols and strings). The +;; strings in the fasls are written in the target byte order, but the +;; compiling system (little-endian) needs to be able to read them back +;; in correctly to create kernel.core. + +(in-package "VM") +;; Define char-bytes. Don't know why this isn't defined for the new +;; backend on sparc and ppc. +(defconstant char-bytes #+unicode 2 #-unicode 1) +(export 'char-bytes) +(in-package "CL-USER") + +(in-package "LISP") +;; We need the the fops if the cross-compiled fasl file is in +;; big-endian order. When we read in a string, we need to +;; convert the big-endian string to little-endian for x86 so we can +;; process the symbols and such as expected. +#+unicode +(progn +(defun maybe-swap-string (f name &optional (len (length name))) + (declare (ignorable f)) + (unless (eq (c:backend-byte-order c:*backend*) + (c:backend-byte-order c:*native-backend*)) + (dotimes (k len) + (let ((code (char-code (aref name k)))) + (setf (aref name k) + (code-char (logior (ash (ldb (byte 8 0) code) 8) + (ldb (byte 8 8) code)))))) + ;;(format t "~S: new name = ~S~%" f (subseq name 0 len)) + name)) + +(macrolet ((frob (name code name-size package) + (let ((n-package (gensym "PACKAGE-")) + (n-size (gensym "SIZE-")) + (n-buffer (gensym "BUFFER-")) + (k (gensym "IDX-"))) + `(define-fop (,name ,code) + (prepare-for-fast-read-byte *fasl-file* + (let ((,n-package ,package) + (,n-size (fast-read-u-integer ,name-size))) + (when (> ,n-size *load-symbol-buffer-size*) + (setq *load-symbol-buffer* + (make-string (setq *load-symbol-buffer-size* + (* ,n-size vm:char-bytes))))) + (done-with-fast-read-byte) + (let ((,n-buffer *load-symbol-buffer*)) + (read-n-bytes *fasl-file* ,n-buffer 0 + (* old-vm:char-bytes ,n-size)) + (maybe-swap-string ',name ,n-buffer ,n-size) + (push-table (intern* ,n-buffer ,n-size ,n-package))))))))) + (frob fop-symbol-save 6 4 *package*) + (frob fop-small-symbol-save 7 1 *package*) + (frob fop-lisp-symbol-save 75 4 *lisp-package*) + (frob fop-lisp-small-symbol-save 76 1 *lisp-package*) + (frob fop-keyword-symbol-save 77 4 *keyword-package*) + (frob fop-keyword-small-symbol-save 78 1 *keyword-package*) + + (frob fop-symbol-in-package-save 8 4 + (svref *current-fop-table* (fast-read-u-integer 4))) + (frob fop-small-symbol-in-package-save 9 1 + (svref *current-fop-table* (fast-read-u-integer 4))) + (frob fop-symbol-in-byte-package-save 10 4 + (svref *current-fop-table* (fast-read-u-integer 1))) + (frob fop-small-symbol-in-byte-package-save 11 1 + (svref *current-fop-table* (fast-read-u-integer 1)))) + +(define-fop (fop-package 14) + (let ((name (pop-stack))) + ;;(format t "xfop-package: ~{~X~^ ~}~%" (map 'list #'char-code name)) + (or (find-package name) + (error (intl:gettext "The package ~S does not exist.") name)))) + +(clone-fop (fop-string 37) + (fop-small-string 38) + (let* ((arg (clone-arg)) + (res (make-string arg))) + (read-n-bytes *fasl-file* res 0 + (* old-vm:char-bytes arg)) + (maybe-swap-string 'fop-string res) + res)) + +#+unicode +(defun cold-load-symbol (size package) + (let ((string (make-string size))) + (read-n-bytes *fasl-file* string 0 (* 2 size)) + ;;(format t "xpre swap cold-load-symbol: ~S to package ~S~%" string package) + (maybe-swap-string 'cold-load-symbol string) + ;;(format t "xpost swap cold-load-symbol: ~S to package ~S~%" string package) + (cold-intern (intern string package) package))) +) + diff --git a/src/tools/cross-scripts/cross-x86-ppc-darwin.lisp b/src/tools/cross-scripts/cross-x86-ppc-darwin.lisp index 0541163..0d492de 100644 --- a/src/tools/cross-scripts/cross-x86-ppc-darwin.lisp +++ b/src/tools/cross-scripts/cross-x86-ppc-darwin.lisp @@ -1,3 +1,6 @@ +;;; Cross-compile script to build a ppc core using x86 as the +;;; compiling system. This needs work! + (in-package :cl-user) ;;; Rename the X86 package and backend so that new-backend does the @@ -9,32 +12,35 @@ ;; Features to add here '(:ppc :conservative-float-type - :hash-new :random-mt19937 - :darwin :bsd - :cmu :cmu20 :cmu20a - :gencgc + :hash-new + :random-mt19937 ; MT-19937 rng + :darwin ; Darwin OS (Mac OS X) + :bsd ; We're a BSD-type OS + :cmu ; Announce this is CMUCL + :cmu20 :cmu20a ; (Mostly) current version identifier + :gencgc ; Generational GC is supported on ppc. :relative-package-names - :modular-arith - :double-double + :modular-arith ; Modular arithmetic + :double-double ; Double-double float support :linkage-table ) ;; Features to remove from current *features* here '( ;; Other architectures we aren't using. Particularly important ;; to get rid of sse2 and x87 so we don't accidentally try to - ;; compile the x87/sse2 float support on sparc, which won't work. - :x86 :x86-bootstrap :sse2 :x87 :i486 + ;; compile the x87/sse2 float support on ppc, which won't work. + :x86 :x86-bootstrap :sse2 :x87 :i486 :pentium :alpha :osf1 :mips ;; Really old stuff that should have been removed long ago. :propagate-fun-type :propagate-float-type :constrain-float-type ;; Other OSes were not using :openbsd :freebsd :glibc2 :linux :mach-o :darwin :bsd - :pentium + :long-float - :new-random - :small - :mp + :new-random ; The rng before mt-19937 + :small ; Don't build small(er) cores on ppc. + :mp ; No multi-processing on ppc. ;; ppc currently doesn't support these. :executable :heap-overflow-check @@ -43,13 +49,6 @@ ;;; Changes needed to bootstrap cross-compiling from x86 to ppc -;; ppc doesn't have these features yet. Remove them. It is a bug in -;; cross-compiling that these features leak through to the target. -(setf *features* (remove :executable *features*)) -(setf *features* (remove :heap-overflow-check *features*)) -(setf *features* (remove :stack-checking *features*)) -(setf *features* (remove :complex-fp-vops *features*)) - ;; Set up the linkage space stuff appropriately for ppc. #+nil (setf (c::backend-foreign-linkage-space-start c::*target-backend*) @@ -57,86 +56,15 @@ (c::backend-foreign-linkage-entry-size c::*target-backend*) 32) -(in-package "LISP") -;; We need the the fops because the cross-compiled fasl file is in -;; big-endian order for sparc. When we read in a string, we need to -;; convert the big-endian string to little-endian for x86 so we can -;; process the symbols and such as expected. - -#+unicode -(progn -(defconstant ppc::char-bytes 2) -(defun maybe-swap-string (f name &optional (len (length name))) - (declare (ignorable f)) - (unless (eq (c:backend-byte-order c:*backend*) - (c:backend-byte-order c:*native-backend*)) - (dotimes (k len) - (let ((code (char-code (aref name k)))) - (setf (aref name k) - (code-char (logior (ash (ldb (byte 8 0) code) 8) - (ldb (byte 8 8) code)))))) - ;;(format t "~S: new name = ~S~%" f (subseq name 0 len)) - name)) - -(macrolet ((frob (name code name-size package) - (let ((n-package (gensym "PACKAGE-")) - (n-size (gensym "SIZE-")) - (n-buffer (gensym "BUFFER-")) - (k (gensym "IDX-"))) - `(define-fop (,name ,code) - (prepare-for-fast-read-byte *fasl-file* - (let ((,n-package ,package) - (,n-size (fast-read-u-integer ,name-size))) - (when (> ,n-size *load-symbol-buffer-size*) - (setq *load-symbol-buffer* - (make-string (setq *load-symbol-buffer-size* - (* ,n-size vm::char-bytes))))) - (done-with-fast-read-byte) - (let ((,n-buffer *load-symbol-buffer*)) - (read-n-bytes *fasl-file* ,n-buffer 0 - (* old-vm:char-bytes ,n-size)) - (maybe-swap-string ',name ,n-buffer ,n-size) - (push-table (intern* ,n-buffer ,n-size ,n-package))))))))) - (frob fop-symbol-save 6 4 *package*) - (frob fop-small-symbol-save 7 1 *package*) - (frob fop-lisp-symbol-save 75 4 *lisp-package*) - (frob fop-lisp-small-symbol-save 76 1 *lisp-package*) - (frob fop-keyword-symbol-save 77 4 *keyword-package*) - (frob fop-keyword-small-symbol-save 78 1 *keyword-package*) - - (frob fop-symbol-in-package-save 8 4 - (svref *current-fop-table* (fast-read-u-integer 4))) - (frob fop-small-symbol-in-package-save 9 1 - (svref *current-fop-table* (fast-read-u-integer 4))) - (frob fop-symbol-in-byte-package-save 10 4 - (svref *current-fop-table* (fast-read-u-integer 1))) - (frob fop-small-symbol-in-byte-package-save 11 1 - (svref *current-fop-table* (fast-read-u-integer 1)))) - -(define-fop (fop-package 14) - (let ((name (pop-stack))) - ;;(format t "xfop-package: ~{~X~^ ~}~%" (map 'list #'char-code name)) - (or (find-package name) - (error (intl:gettext "The package ~S does not exist.") name)))) - -(clone-fop (fop-string 37) - (fop-small-string 38) - (let* ((arg (clone-arg)) - (res (make-string arg))) - (read-n-bytes *fasl-file* res 0 - (* old-vm:char-bytes arg)) - (maybe-swap-string 'fop-string res) - res)) +(in-package "PPC") +(defconstant char-bytes #+unicode 2 #-unicode 1) +(export 'char-bytes) +(in-package "CL-USER") +;; Get new fops so we can process fasls with big-endian unicode +;; strings on our little-endian compiling system. #+unicode -(defun cold-load-symbol (size package) - (let ((string (make-string size))) - (read-n-bytes *fasl-file* string 0 (* 2 size)) - ;;(format t "xpre swap cold-load-symbol: ~S to package ~S~%" string package) - (maybe-swap-string 'cold-load-symbol string) - ;;(format t "xpost swap cold-load-symbol: ~S to package ~S~%" string package) - (cold-intern (intern string package) package))) -) +(load "target:tools/cross-scripts/cross-unicode-big-endian.lisp") ;;; End changes needed to bootstrap cross-compiling from x86 to ppc diff --git a/src/tools/cross-scripts/cross-x86-sparc.lisp b/src/tools/cross-scripts/cross-x86-sparc.lisp index 21202f5..0e6dfbd 100644 --- a/src/tools/cross-scripts/cross-x86-sparc.lisp +++ b/src/tools/cross-scripts/cross-x86-sparc.lisp @@ -60,85 +60,10 @@ (c::backend-foreign-linkage-entry-size c::*target-backend*) 16) -(in-package "LISP") -;; We need the the fops because the cross-compiled fasl file is in -;; big-endian order for sparc. When we read in a string, we need to -;; convert the big-endian string to little-endian for x86 so we can -;; process the symbols and such as expected. +;; Get new fops so we can process fasls with big-endian unicode +;; strings on our little-endian compiling system. #+unicode -(progn -(defun maybe-swap-string (f name &optional (len (length name))) - (declare (ignorable f)) - (unless (eq (c:backend-byte-order c:*backend*) - (c:backend-byte-order c:*native-backend*)) - (dotimes (k len) - (let ((code (char-code (aref name k)))) - (setf (aref name k) - (code-char (logior (ash (ldb (byte 8 0) code) 8) - (ldb (byte 8 8) code)))))) - ;;(format t "~S: new name = ~S~%" f (subseq name 0 len)) - name)) - -(macrolet ((frob (name code name-size package) - (let ((n-package (gensym "PACKAGE-")) - (n-size (gensym "SIZE-")) - (n-buffer (gensym "BUFFER-")) - (k (gensym "IDX-"))) - `(define-fop (,name ,code) - (prepare-for-fast-read-byte *fasl-file* - (let ((,n-package ,package) - (,n-size (fast-read-u-integer ,name-size))) - (when (> ,n-size *load-symbol-buffer-size*) - (setq *load-symbol-buffer* - (make-string (setq *load-symbol-buffer-size* - (* ,n-size vm:char-bytes))))) - (done-with-fast-read-byte) - (let ((,n-buffer *load-symbol-buffer*)) - (read-n-bytes *fasl-file* ,n-buffer 0 - (* old-vm:char-bytes ,n-size)) - (maybe-swap-string ',name ,n-buffer ,n-size) - (push-table (intern* ,n-buffer ,n-size ,n-package))))))))) - (frob fop-symbol-save 6 4 *package*) - (frob fop-small-symbol-save 7 1 *package*) - (frob fop-lisp-symbol-save 75 4 *lisp-package*) - (frob fop-lisp-small-symbol-save 76 1 *lisp-package*) - (frob fop-keyword-symbol-save 77 4 *keyword-package*) - (frob fop-keyword-small-symbol-save 78 1 *keyword-package*) - - (frob fop-symbol-in-package-save 8 4 - (svref *current-fop-table* (fast-read-u-integer 4))) - (frob fop-small-symbol-in-package-save 9 1 - (svref *current-fop-table* (fast-read-u-integer 4))) - (frob fop-symbol-in-byte-package-save 10 4 - (svref *current-fop-table* (fast-read-u-integer 1))) - (frob fop-small-symbol-in-byte-package-save 11 1 - (svref *current-fop-table* (fast-read-u-integer 1)))) - -(define-fop (fop-package 14) - (let ((name (pop-stack))) - ;;(format t "xfop-package: ~{~X~^ ~}~%" (map 'list #'char-code name)) - (or (find-package name) - (error (intl:gettext "The package ~S does not exist.") name)))) - -(clone-fop (fop-string 37) - (fop-small-string 38) - (let* ((arg (clone-arg)) - (res (make-string arg))) - (read-n-bytes *fasl-file* res 0 - (* old-vm:char-bytes arg)) - (maybe-swap-string 'fop-string res) - res)) - -#+unicode -(defun cold-load-symbol (size package) - (let ((string (make-string size))) - (read-n-bytes *fasl-file* string 0 (* 2 size)) - ;;(format t "xpre swap cold-load-symbol: ~S to package ~S~%" string package) - (maybe-swap-string 'cold-load-symbol string) - ;;(format t "xpost swap cold-load-symbol: ~S to package ~S~%" string package) - (cold-intern (intern string package) package))) -) - +(load "target:tools/cross-scripts/cross-unicode-big-endian.lisp") ;;; End changes needed to bootstrap cross-compiling from x86 to sparc ----------------------------------------------------------------------- Summary of changes: .../cross-scripts/cross-unicode-big-endian.lisp | 93 +++++++++++++++ src/tools/cross-scripts/cross-x86-ppc-darwin.lisp | 122 ++++---------------- src/tools/cross-scripts/cross-x86-sparc.lisp | 81 +------------- 3 files changed, 121 insertions(+), 175 deletions(-) create mode 100644 src/tools/cross-scripts/cross-unicode-big-endian.lisp hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-26-g944c67f
by Raymond Toy 01 Feb '12

01 Feb '12

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 944c67fb1ed7eec21d223d3c82748ddd968cab61 (commit) from 18e1fca39194fd506747b495c7fcf9bca73a88ae (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 944c67fb1ed7eec21d223d3c82748ddd968cab61 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jan 31 21:36:59 2012 -0800 Update from logs. Move the PPC news to the Changes section from the Other changes section, with a few clarifications. diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index 9116272..3b0f1b3 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -29,6 +29,9 @@ New in this release: useful when a buffer is given which is not large enough to hold all the octets for the given string. See docstring for more details. + * The PowerPC port of CMUCL on Darwin (Mac OS X) has been revived + and is up-to-date. It will run on OSX 10.4 and 10.5. However, + only the Unicode build is supported. * ANSI compliance fixes: * CMUCL was not printing pathnames like (make-pathname :directory @@ -46,14 +49,13 @@ New in this release: * Trac Tickets: * #50: Print/read error with make-pathname. * #53: UTF-8 in core. + * #52: UNICODE-COMPLETE-NAME misses a completion. * Other changes: * The layout of the cmucl directories has been changed. * On darwin/x86, gcc-4.2 is explicitly used in case Xcode 4 is installed. CMUCL doesn't run correctly when built with gcc/llvm in Xcode 4. - * The PowerPC port of CMUCL has been revived and is up-to-date. - However, only the Unicode build is supported. * Improvements to the PCL implementation of CLOS: ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20d.txt | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-25-g18e1fca
by Raymond Toy 01 Feb '12

01 Feb '12

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 18e1fca39194fd506747b495c7fcf9bca73a88ae (commit) from a3e7af38dfc712cecbe940af00f16f2b13846e07 (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 18e1fca39194fd506747b495c7fcf9bca73a88ae Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jan 31 21:31:14 2012 -0800 Initial version of cmucl-ppc-vm.pot. diff --git a/src/i18n/locale/cmucl-ppc-vm.pot b/src/i18n/locale/cmucl-ppc-vm.pot new file mode 100644 index 0000000..4f29be8 --- /dev/null +++ b/src/i18n/locale/cmucl-ppc-vm.pot @@ -0,0 +1,57 @@ +#@ cmucl-ppc-vm + +# SOME DESCRIPTIVE TITLE +# FIRST AUTHOR <EMAIL@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@ADDRESS>\n" +"Language-Team: LANGUAGE <LL(a)li.org>\n" +"MIME-Version: 1.0\n" +"Content-Type: text/plain; charset=UTF-8\n" +"Content-Transfer-Encoding: 8bit\n" + +#: src/code/ppc-vm.lisp +msgid "Returns a string describing the type of the local machine." +msgstr "" + +#: src/code/ppc-vm.lisp +msgid "Returns a string describing the version of the local machine." +msgstr "" + +#: src/code/ppc-vm.lisp +msgid "Compute x*y-z with only one rounding operation" +msgstr "" + +#: src/code/ppc-vm.lisp +msgid "Compute x*y+z with only one rounding operation" +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 "" + ----------------------------------------------------------------------- Summary of changes: .../cmucl-sparc-svr4.po => cmucl-ppc-vm.pot} | 33 +++++-------------- 1 files changed, 9 insertions(+), 24 deletions(-) copy src/i18n/locale/{ko/LC_MESSAGES/cmucl-sparc-svr4.po => cmucl-ppc-vm.pot} (64%) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-24-ga3e7af3
by Raymond Toy 01 Feb '12

01 Feb '12

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 a3e7af38dfc712cecbe940af00f16f2b13846e07 (commit) via 586be50caeb0db191c1a02645a3dacb6efe92a0e (commit) from 53cb30ad0335c33c70c24779aa964b775404680e (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 a3e7af38dfc712cecbe940af00f16f2b13846e07 Merge: 53cb30a 586be50 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jan 31 21:26:16 2012 -0800 Merge branch 'master' of ssh://diapentepomum/~rtoym/src/cmucl/git/cmucl commit 586be50caeb0db191c1a02645a3dacb6efe92a0e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jan 31 22:23:01 2012 -0700 Use ppc as the default directory for ppc/darwin. diff --git a/bin/build.sh b/bin/build.sh index 537354b..85d70e7 100755 --- a/bin/build.sh +++ b/bin/build.sh @@ -176,8 +176,11 @@ done # If -b not given, try to derive one instead of just using "build". if [ -z "$BASE" ]; then case `uname -s` in - Darwin) # We only support darwin-x86 now. No ppc available anymore. - BASE=darwin ;; + Darwin) + case `uname -p` in + powerpc) BASE=ppc ;; + i386) BASE=darwin ;; + esac ;; SunOS) case `uname -m` in sun4u) BASE=sparc ;; ----------------------------------------------------------------------- Summary of changes: bin/build.sh | 7 +++++-- 1 files changed, 5 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0