chiark / gitweb /
need cast for crappy tcl no const correct
authorian <ian>
Thu, 1 Jan 2004 23:58:39 +0000 (23:58 +0000)
committerian <ian>
Thu, 1 Jan 2004 23:58:39 +0000 (23:58 +0000)
base/hook.c
hbytes/hook.c

index 13f4d02..32c604f 100644 (file)
@@ -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;
 }
index 13f4d02..32c604f 100644 (file)
@@ -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;
 }