29 lines
975 B
C
29 lines
975 B
C
$NetBSD: patch-Library_System_TclTk_c__interface.c,v 1.1 2014/06/28 23:10:39 dholland Exp $
|
|
|
|
Fix build with tcl 8.6.
|
|
|
|
--- Library/System/TclTk/c_interface.c~ 2007-07-01 03:53:35.000000000 +0000
|
|
+++ Library/System/TclTk/c_interface.c
|
|
@@ -33,11 +33,11 @@ void *ConstTclVolatile() {
|
|
|
|
void delete_proc(ClientData client_data) {}
|
|
|
|
-int tkkit_cb_cmd(ClientData user_data, Tcl_Interp *tcl, int argc, char **argv) {
|
|
+int tkkit_cb_cmd(ClientData user_data, Tcl_Interp *tcl, int argc, const char **argv) {
|
|
C_TCL_TK_tkkit_cb(argv);
|
|
}
|
|
|
|
-int sather_cmd(ClientData user_data, Tcl_Interp *tcl, int argc, char **argv) {
|
|
+int sather_cmd(ClientData user_data, Tcl_Interp *tcl, int argc, const char **argv) {
|
|
return C_TCL_TK_sather_cb((int) tcl, argv);
|
|
}
|
|
|
|
@@ -66,7 +66,7 @@ char *str_ind(char **argv, int i) {
|
|
}
|
|
|
|
char *Tcl_GetResult(Tcl_Interp *interpreter) {
|
|
- return interpreter->result;
|
|
+ return Tcl_GetStringResult(interpreter);
|
|
}
|
|
|
|
int Tk_AddRaster(Tcl_Interp *interp)
|