mirror of
https://github.com/RTimothyEdwards/magic.git
synced 2026-09-03 16:29:09 +02:00
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:
+5
-1
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user