Skip to content
Snippets Groups Projects
Commit 257c3a31 authored by cracauer's avatar cracauer
Browse files

Don't damage argv[0] when startup code is invoced with absolute path.

If we ever do a patch release this should be in.
parent 5b15790a
No related branches found
No related tags found
No related merge requests found
/* /*
* main() entry point for a stand alone lisp image. * main() entry point for a stand alone lisp image.
* *
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.30 2003/02/25 15:51:17 toy Exp $ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.31 2003/04/28 23:07:38 cracauer Exp $
* *
*/ */
...@@ -99,11 +99,12 @@ static char* cmucllib_search_list[] = ...@@ -99,11 +99,12 @@ static char* cmucllib_search_list[] =
* default for CMUCLLIB * default for CMUCLLIB
*/ */
char * char *
default_cmucllib(char* argv0) default_cmucllib(const char const* argv0arg)
{ {
char* p; char* p;
char* defpath; char* defpath;
char* cwd; char* cwd;
char *argv0 = strdup(argv0arg);
/* /*
* From argv[0], create the appropriate directory by lopping off the * From argv[0], create the appropriate directory by lopping off the
...@@ -183,7 +184,8 @@ default_cmucllib(char* argv0) ...@@ -183,7 +184,8 @@ default_cmucllib(char* argv0)
abort(); abort();
} }
} }
free(argv0);
free(cwd); free(cwd);
return defpath; return defpath;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment