1 files changed, 29 insertions, 0 deletions
diff --git a/lang/sather/patches/patch-Library_System_TclTk_c__interface.c b/lang/sather/patches/patch-Library_System_TclTk_c__interface.c
new file mode 100644
index 00000000000..a2a9af0ddd8
--- /dev/null
+++ b/lang/sather/patches/patch-Library_System_TclTk_c__interface.c
@@ -0,0 +1,29 @@
+$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)