From: Jörn Adamczewski-Musch <j.adamczewski@gsi.de>
Date: Thu, 28 Nov 2013 16:06:19 +0000 (+0100)
Subject: Second try to fix tcl issue in allParam for Suse 13.1
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=12e430dddfbe92be2edc5a680437867a26f1cbc4;p=daqdata.git

Second try to fix tcl issue in allParam for Suse 13.1
---

diff --git a/allParam/tcl/tclParam.c b/allParam/tcl/tclParam.c
index 71efd95..5252040 100644
--- a/allParam/tcl/tclParam.c
+++ b/allParam/tcl/tclParam.c
@@ -19,12 +19,14 @@ static const char rcsId[] = "$Header: /misc/hadesprojects/daq/cvsroot/eventbuild
 #include <sys/stat.h>
 #include <sys/utsname.h>
 
+/* required for tcl>v8.6 thanks to Christian Simon for this hint:*/
+#define USE_INTERP_RESULT
+
+
 #include <tcl.h>
 
 #include "../include/allParam.h"
 
-/* required for tcl>v8.6 thanks to Christian Simon for this hint:*/
-#define USE_INTERP_RESULT
 
 /* Allow for registration of a user routine for output of error
  * messages and provide a default one