luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

update scconfig find_tcl.c for 9.0

This commit is contained in:
stefan schippers 2024-11-13 09:51:20 +01:00
parent e5643b94eb
commit c6295cb223
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scconfig/src/scripts/find_tcl.c
View File

@ -23,7 +23,7 @@
#include "scripts.h" #include "scripts.h"
#include <unistd.h> #include <unistd.h>
static int all_vers[] = { 86, 85, 84, 0, 90, -1 }; static int all_vers[] = { 86, 85, 84, 90, 0, -1 };
int find_script_tcl_(const char *name, int logdepth, int fatal, int *vers, int fallback) int find_script_tcl_(const char *name, int logdepth, int fatal, int *vers, int fallback)
{ {
@ -283,6 +283,7 @@ int find_script_tk(const char *name, int logdepth, int fatal)
sprintf(lfl, "-ltk%d.%d", major, minor); sprintf(lfl, "-ltk%d.%d", major, minor);
if (try_icl_tk(logdepth, "libs/script/tk", test_c, NULL, NULL, lfl, *v)) return 0; if (try_icl_tk(logdepth, "libs/script/tk", test_c, NULL, NULL, lfl, *v)) return 0;
/* this seems to happen on some systems starting from 9.0 */
sprintf(lfl, "-ltcl%dtk%d.%d", major, major, minor); sprintf(lfl, "-ltcl%dtk%d.%d", major, major, minor);
if (try_icl_tk(logdepth, "libs/script/tk", test_c, NULL, NULL, lfl, *v)) return 0; if (try_icl_tk(logdepth, "libs/script/tk", test_c, NULL, NULL, lfl, *v)) return 0;
} }