need cast for crappy tcl no const correct

diff --git a/base/hook.c b/base/hook.c
index 13f4d022a6cc860fcbabb1ad22627c38e52df1e1..32c604f9101a5603fad7cadede960a026e59f68c 100644 (file)
--- a/base/hook.c
+++ b/base/hook.c
@@ -419,7 +419,7 @@ int Hbytes_Init(Tcl_Interp *ip) {
   for (cmd=toplevel_commands;
        cmd->name;
        cmd++)
-    Tcl_CreateObjCommand(ip, cmd->name, cmd->func, 0,0);
+    Tcl_CreateObjCommand(ip, (char*)cmd->name, cmd->func, 0,0);
 
   return TCL_OK;
 }

diff --git a/hbytes/hook.c b/hbytes/hook.c
index 13f4d022a6cc860fcbabb1ad22627c38e52df1e1..32c604f9101a5603fad7cadede960a026e59f68c 100644 (file)
--- a/hbytes/hook.c
+++ b/hbytes/hook.c
@@ -419,7 +419,7 @@ int Hbytes_Init(Tcl_Interp *ip) {
   for (cmd=toplevel_commands;
        cmd->name;
        cmd++)
-    Tcl_CreateObjCommand(ip, cmd->name, cmd->func, 0,0);
+    Tcl_CreateObjCommand(ip, (char*)cmd->name, cmd->func, 0,0);
 
   return TCL_OK;
 }