Made a few modifications to the patch from Keno Fischer (pull request

startup.  I'm not sure that it is even possible to have a Tcl variable
set at this point in the startup procedure, though.
This commit is contained in:
Tim Edwards
2021-01-04 09:47:03 -05:00
parent 5b6692a914
commit 20eb6ce6c1
7 changed files with 29 additions and 18 deletions
+5 -1
View File
@@ -226,7 +226,11 @@ PaExpand(psource, pdest, size)
if (string == NULL)
{
/* Check for CAD_ROOT = CAD_DIR, the only internal variable */
/* recognized (this is passed down from the Makefile) */
/* recognized (this is passed down from the Makefile). */
/* Note that in the MAGIC_WRAPPER version, CAD_ROOT was set */
/* as a Tcl variable in tcltk/tclmagic.c, such that if */
/* expandName == "CAD_ROOT", then string should not be NULL */
/* here. */
if (!strcmp(expandName, "CAD_ROOT"))
string = CAD_DIR;