sci-chemistry/gopenmol/files/3.00-tcl8.6.patch


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

 src/graphics/g_Mmain.c | 2 +-
 src/parser/p_parser.c  | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/graphics/g_Mmain.c b/src/graphics/g_Mmain.c
index b9bb340..f044568 100755
--- a/src/graphics/g_Mmain.c
+++ b/src/graphics/g_Mmain.c
@@ -487,7 +487,7 @@ int gomp_Mmain(int argc, const char *argv[])
     {
         Tcl_Interp  *interp;
         interp = gomp_GetTclInterp();
-        sprintf(Temp,"'%s' problems creating the Tk window",interp->result);
+        sprintf(Temp,"'%s' problems creating the Tk window",Tcl_GetStringResult(interp));
         gomp_PrintERROR(Temp);
         return(1);
     }
diff --git a/src/parser/p_parser.c b/src/parser/p_parser.c
index c9fd8ce..62eb05c 100755
--- a/src/parser/p_parser.c
+++ b/src/parser/p_parser.c
@@ -809,8 +809,8 @@ int          gomp_TclRunScript()
     if(value != (const char *)NULL) {
         code = Tcl_EvalFile(interp , value);
         if(code != TCL_OK) {
-            if(*interp->result != (char)NULL) {
-                gomp_PrintERROR(interp->result);
+            if(*Tcl_GetStringResult(interp) != (char)NULL) {
+                gomp_PrintERROR(Tcl_GetStringResult(interp));
                 return(1);
             }
         }