From: Juho S. <js...@us...> - 2006-11-30 15:19:09
|
Update of /cvsroot/sbcl/sbcl/src/runtime In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv12268/src/runtime Modified Files: runtime.c Log Message: 1.0.0.1: Fix handling of non-ascii characters in *posix-argv* / *core-pathname* (thanks to Yaroslav Kavenchuk). Index: runtime.c =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/runtime/runtime.c,v retrieving revision 1.64 retrieving revision 1.65 diff -u -d -r1.64 -r1.65 --- runtime.c 2 Nov 2006 17:18:37 -0000 1.64 +++ runtime.c 30 Nov 2006 15:18:57 -0000 1.65 @@ -211,7 +211,10 @@ return core; } - +char **posix_argv; +char *core_string; + + int main(int argc, char *argv[], char *envp[]) { @@ -404,15 +407,11 @@ wos_install_interrupt_handlers(&exception_frame); #endif - /* Pass core filename into Lisp */ - SetSymbolValue(CORE_STRING, alloc_base_string(core),0); - SHOW("freeing core"); - free(core); - - /* Convert remaining argv values to something that Lisp can grok. */ - SHOW("setting POSIX-ARGV symbol value"); - SetSymbolValue(POSIX_ARGV, alloc_base_string_list(sbcl_argv),0); - free(sbcl_argv); + /* Pass core filename and the processed argv into Lisp. They'll + * need to be processed further there, to do locale conversion. + */ + core_string = core; + posix_argv = sbcl_argv; FSHOW((stderr, "/funcalling initial_function=0x%lx\n", (unsigned long)initial_function)); |