aboutsummaryrefslogtreecommitdiff
path: root/cad/tkgate/files/patch-src-tkgate_simulate.c
blob: f8f37a78c06ea5d18352a221aeaa8839880a4207 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
--- src/tkgate/simulate.c.orig	2013-05-14 14:50:07.000000000 +0200
+++ src/tkgate/simulate.c	2013-05-14 14:50:30.000000000 +0200
@@ -1117,7 +1117,7 @@
 
 
     DoTcl("VPD::isallowed %s",cmdName);
-    if (*TkGate.tcl->result != '1') return -1;
+    if (Tcl_GetStringResult(TkGate.tcl)[0] != '1') return -1;
 
     DoTcl(cmd);
     return 0;