chiark
/
gitweb
/
~ian
/
chiark-tcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
need cast for crappy tcl no const correct
[chiark-tcl.git]
/
base
/
hook.c
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;
}