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

A few minor changes to the last commit to prevent compiler warnings.

This commit is contained in:
Tim Edwards 2021-01-04 10:02:15 -05:00
parent 20eb6ce6c1
commit 5005f77d3f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tcltk/tclmagic.c
View File

@ -1191,7 +1191,7 @@ int
Tclmagic_Init(interp) Tclmagic_Init(interp)
Tcl_Interp *interp; Tcl_Interp *interp;
{ {
char *cadroot; const char *cadroot;
/* Sanity check! */ /* Sanity check! */
if (interp == NULL) return TCL_ERROR; if (interp == NULL) return TCL_ERROR;
@ -1229,7 +1229,7 @@ Tclmagic_Init(interp)
cadroot = Tcl_GetVar(interp, "CAD_ROOT", TCL_GLOBAL_ONLY); cadroot = Tcl_GetVar(interp, "CAD_ROOT", TCL_GLOBAL_ONLY);
if (cadroot == NULL) if (cadroot == NULL)
{ {
cadroot = getenv("CAD_ROOT"); cadroot = (const char *)getenv("CAD_ROOT");
if (cadroot == NULL) cadroot = CAD_DIR; if (cadroot == NULL) cadroot = CAD_DIR;
Tcl_SetVar(interp, "CAD_ROOT", cadroot, TCL_GLOBAL_ONLY); Tcl_SetVar(interp, "CAD_ROOT", cadroot, TCL_GLOBAL_ONLY);
} }