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
|
--- tcltk.cc.orig 2004-01-12 10:25:11.000000000 +0100
+++ tcltk.cc 2013-05-14 10:57:51.000000000 +0200
@@ -1,6 +1,7 @@
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>
+#include <sys/types.h>
#ifdef DMALLOC
#include <dmalloc.h>
@@ -33,7 +34,7 @@
#endif
if (Tcl_Init(TT_Interp) == TCL_ERROR) {
- fprintf(stderr,"Error initializing Tcl:\n%s\n",TT_Interp->result);
+ fprintf(stderr,"Error initializing Tcl:\n%s\n",Tcl_GetStringResult(TT_Interp));
return TCL_ERROR;
}
@@ -43,7 +44,7 @@
// uses Tk_Init to process its command-line arguments).
if (Tk_Init(TT_Interp) == TCL_ERROR) {
- fprintf(stderr,"Error initializing Tk:\n%s\n",TT_Interp->result);
+ fprintf(stderr,"Error initializing Tk:\n%s\n",Tcl_GetStringResult(TT_Interp));
return TCL_ERROR;
}
|
