[Gcl-devel] gcl-2.6.8pre and tcl/tk-8.6

[Andrey G. Grozin]

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
Gcl-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/gcl-devel