From: ellson <devnull@localhost>
Date: Sat, 8 Nov 2008 20:29:14 +0000 (+0000)
Subject: more fixes for tcl8.6 api changes
X-Git-Tag: LAST_LIBGRAPH~32^2~2847
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=67eff323f039c542eaf3c5f57eb62a21f9d2a7b4;p=graphviz

more fixes for tcl8.6 api changes
---

diff --git a/tclpkg/tclpathplan/tclpathplan.c b/tclpkg/tclpathplan/tclpathplan.c
index d55d3613e..7bb9f6845 100644
--- a/tclpkg/tclpathplan/tclpathplan.c
+++ b/tclpkg/tclpathplan/tclpathplan.c
@@ -56,8 +56,10 @@
 
 #if ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 6)) || ( TCL_MAJOR_VERSION > 8)
 #else
+#ifndef Tcl_GetStringResult
 #define Tcl_GetStringResult(interp) interp->result
 #endif
+#endif
 
 typedef Ppoint_t point;