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@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@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