Hello,
2.6.8pre (checked out yesterday, as well as older versions) does not
compile with tcl/tk-8.6. The attached patch to tkMain.c fixes the
problem.
Andrey
--- tkMain.c~ 2010-01-01 02:40:37.000000000 +0600
+++ tkMain.c 2013-03-14 13:22:51.000000000 +0700
@@ -208,3 +208,3 @@
!= TCL_OK) {
- fprintf(stderr, "%s\n", interp->result);
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
exit(1);
@@ -292,3 +292,3 @@
if (Tcl_AppInit(interp) != TCL_OK) {
- fprintf(stderr, "Tcl_AppInit failed: %s\n", interp->result);
+ fprintf(stderr, "Tcl_AppInit failed: %s\n",
Tcl_GetStringResult(interp));
}
@@ -302,3 +302,3 @@
if (code != TCL_OK) {
- fprintf(stderr, "%s\n", interp->result);
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
}
@@ -332,3 +332,3 @@
if (fullName == NULL) {
- fprintf(stderr, "%s\n", interp->result);
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
} else {
@@ -338,3 +338,3 @@
if (code != TCL_OK) {
- fprintf(stderr, "%s\n", interp->result);
+ fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
}
@@ -373,3 +373,3 @@
if (msg == NULL) {
- msg = interp->result;
+ msg = Tcl_GetStringResult(interp);
}
@@ -498,3 +498,3 @@
char buf[4];
- char *p = buf;
+ char *p = buf, *string;
/*header */
@@ -503,5 +503,4 @@
/* end header */
- if(sock_write_str2(dsfd, m_reply, buf, 4 ,
- interp->result, strlen(interp->result))
- < 0)
+ string = Tcl_GetStringResult(interp);
+ if(sock_write_str2(dsfd, m_reply, buf, 4, string, strlen(string))
< 0)
{ /* what do we want to do if the write failed */}
_______________________________________________
Gcl-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/gcl-devel
