common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

fix potential access freed memory.

Browse source
This commit is contained in:
SANO Masatoshi 2020-01-17 17:51:28 +08:00
parent 1cd1bca6fa
commit a17aa9303c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/cmd-run.c
View file

@ -78,7 +78,7 @@ char* determin_impl(char* impl) {
impl=get_opt("default.lisp",1);
if(impl) {
char* opt=s_cat(q(impl),q("."),q("version"),NULL);
version=get_opt(opt,1);
version=q(get_opt)(opt,1);
s(opt);
}
if(!impl)
@ -96,7 +96,7 @@ char* determin_impl(char* impl) {
s(impl);
impl=q(DEFAULT_IMPL);
setup(PACKAGE,"-",impl);
version=get_opt(DEFAULT_IMPL".version",0);
version=q(get_opt(DEFAULT_IMPL".version",0));
}
return s_cat(impl,q("/"),version,NULL);
}