From 257c3a31632db23b2811188e544281f29cf12f62 Mon Sep 17 00:00:00 2001 From: cracauer <cracauer> Date: Mon, 28 Apr 2003 23:07:38 +0000 Subject: [PATCH] Don't damage argv[0] when startup code is invoced with absolute path. If we ever do a patch release this should be in. --- lisp/lisp.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/lisp.c b/lisp/lisp.c index dca883e75..b11b3bbc6 100644 --- a/lisp/lisp.c +++ b/lisp/lisp.c @@ -1,7 +1,7 @@ /* * 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[] = * default for CMUCLLIB */ char * -default_cmucllib(char* argv0) +default_cmucllib(const char const* argv0arg) { char* p; char* defpath; char* cwd; + char *argv0 = strdup(argv0arg); /* * From argv[0], create the appropriate directory by lopping off the @@ -183,7 +184,8 @@ default_cmucllib(char* argv0) abort(); } } - + + free(argv0); free(cwd); return defpath; -- GitLab