[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2012-01-4-g28a0d79

[Raymond Toy]

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  28a0d7934b9e71f5fcddfffcd41fc0027ffb0d99 (commit)
       via  e901f77acc9b49c030adf5d4a1c5aeb501912497 (commit)
      from  63ecc76acc5a671c45af3a650a239ef59b825777 (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 28a0d7934b9e71f5fcddfffcd41fc0027ffb0d99
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Jan 21 09:18:02 2012 -0800

    Update.

diff --git a/src/i18n/locale/cmucl.pot b/src/i18n/locale/cmucl.pot
index a1087ca..fe5e876 100644
--- a/src/i18n/locale/cmucl.pot
+++ b/src/i18n/locale/cmucl.pot
@@ -9117,6 +9117,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"
@@ -21246,9 +21253,3 @@ msgid ""
 "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 e901f77acc9b49c030adf5d4a1c5aeb501912497
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Jan 20 20:32:24 2012 -0800

    Get rid of os_stack_grows_down and friends and hardwire the decision
    within guard_zones since the stack overflow checking was only ported
    to x86 and sparc.

diff --git a/src/lisp/os-common.c b/src/lisp/os-common.c
old mode 100644
new mode 100755
index e6684b2..9ea6f46
--- a/src/lisp/os-common.c
+++ b/src/lisp/os-common.c
@@ -368,23 +368,6 @@ lazy_resolve_linkage(unsigned long retaddr)
 #endif /* LINKAGE_TABLE */
 }
 
-static int
-os_stack_grows_down_1(int *local_var_address)
-{
-    int dummy;
-
-    return &dummy < local_var_address;
-}
-
-/* Value is true if the processor stack grows down.  */
-
-int
-os_stack_grows_down(void)
-{
-    int dummy;
-
-    return os_stack_grows_down_1(&dummy);
-}
 
 
 #ifdef RED_ZONE_HIT
@@ -425,17 +408,13 @@ static void
 guard_zones(char **yellow_start, char **red_start)
 {
 #if (defined(i386) || defined(__x86_64))
-    if (os_stack_grows_down()) {
-	char *end = (char *) CONTROL_STACK_START;
-
-	*red_start = end;
-	*yellow_start = *red_start + RED_ZONE_SIZE;
-    } else {
-	char *end = (char *) CONTROL_STACK_START + control_stack_size;
+    /*
+     * All x86's have a control stack (aka C stack) that grows down.
+     */
+    char *end = (char *) CONTROL_STACK_START;
 
-	*red_start = end - RED_ZONE_SIZE;
-	*yellow_start = *red_start - YELLOW_ZONE_SIZE;
-    }
+    *red_start = end;
+    *yellow_start = *red_start + RED_ZONE_SIZE;
 #else
     /*
      * On Solaris/sparc, the C stack grows down, but the Lisp control

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

Summary of changes:
 src/i18n/locale/cmucl.pot |   13 +++++++------
 src/lisp/os-common.c      |   33 ++++++---------------------------
 2 files changed, 13 insertions(+), 33 deletions(-)
 mode change 100644 => 100755 src/lisp/os-common.c


hooks/post-receive
-- 
CMU Common Lisp