Package: timidity / 2.14.0-8

0012-Compatibility-with-TK8.6.patch Patch series | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
From f28c8b2d6bd5ba27d8284b0dc730ee5568fbd742 Mon Sep 17 00:00:00 2001
From: Sergei Golovan <sgolovan@nes.ru>
Date: Tue, 26 Jun 2018 22:31:26 +0200
Subject: Compatibility with TK8.6

 interp->result has been deprecated for a while and is no
 longer available in TK8.6.
 The return value can be removed as it is never evaluated
 anyway.
Bug-Debian: https://bugs.debian.org/728089
---
 interface/tk_c.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/interface/tk_c.c b/interface/tk_c.c
index c5c9074..44ff3e4 100644
--- a/interface/tk_c.c
+++ b/interface/tk_c.c
@@ -905,7 +905,7 @@ static int ExitAll(ClientData clientData, Tcl_Interp *interp,
 }
 
 /* evaluate Tcl script */
-static char *v_eval(char *fmt, ...)
+static void v_eval(char *fmt, ...)
 {
 	char buf[256];
 	va_list ap;
@@ -913,7 +913,6 @@ static char *v_eval(char *fmt, ...)
 	vsnprintf(buf, sizeof(buf), fmt, ap);
 	Tcl_Eval(my_interp, buf);
 	va_end(ap);
-	return my_interp->result;
 }
 
 static const char *v_get2(const char *v1, const char *v2)