From: ian <ian>
Date: Thu, 1 Jan 2004 23:58:39 +0000 (+0000)
Subject: need cast for crappy tcl no const correct
X-Git-Tag: debian/1.1.1~133
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=a138b1187d28e61d1decd36142ce6eda505d583a;p=chiark-tcl.git

need cast for crappy tcl no const correct
---

diff --git a/base/hook.c b/base/hook.c
index 13f4d02..32c604f 100644
--- 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 13f4d02..32c604f 100644
--- 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;
 }