From 5005f77d3fb1d77eb71d58c85f36ddbefecb0c09 Mon Sep 17 00:00:00 2001
From: Tim Edwards <tim@opencircuitdesign.com>
Date: Mon, 4 Jan 2021 10:02:15 -0500
Subject: [PATCH] A few minor changes to the last commit to prevent compiler
 warnings.

---
 tcltk/tclmagic.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tcltk/tclmagic.c b/tcltk/tclmagic.c
index 4c286c6e..974f94b2 100644
--- a/tcltk/tclmagic.c
+++ b/tcltk/tclmagic.c
@@ -1191,7 +1191,7 @@ int
 Tclmagic_Init(interp)
     Tcl_Interp *interp;
 {
-    char *cadroot;
+    const char *cadroot;
 
     /* Sanity check! */
     if (interp == NULL) return TCL_ERROR;
@@ -1229,7 +1229,7 @@ Tclmagic_Init(interp)
     cadroot = Tcl_GetVar(interp, "CAD_ROOT", TCL_GLOBAL_ONLY);
     if (cadroot == NULL)
     {
-	cadroot = getenv("CAD_ROOT");
+	cadroot = (const char *)getenv("CAD_ROOT");
 	if (cadroot == NULL) cadroot = CAD_DIR;
 	Tcl_SetVar(interp, "CAD_ROOT", cadroot, TCL_GLOBAL_ONLY);
     }