1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Description: Update to Tcl8.6
Bug: https://sourceforge.net/p/covered/patches/3/
Forwarded: https://sourceforge.net/p/covered/patches/3/attachment/tcl8.6.diff
Author: أحمد المحمودي (Ahmed El-Mahmoudy) <aelmahmoudy@users.sourceforge.net>
Index: covered-0.7.10/src/report.c
===================================================================
--- covered-0.7.10.orig/src/report.c
+++ covered-0.7.10/src/report.c
@@ -1163,12 +1163,12 @@ void command_report(
assert( interp );
if( Tcl_Init( interp ) == TCL_ERROR ) {
- printf( "ERROR: %s\n", interp->result );
+ printf( "ERROR: %s\n", Tcl_GetStringResult(interp) );
Throw 0;
}
if( Tk_SafeInit( interp ) == TCL_ERROR ) {
- printf( "ERROR: %s\n", interp->result );
+ printf( "ERROR: %s\n", Tcl_GetStringResult(interp) );
Throw 0;
}
|
