From 488771485ef19f32bf7e683f783bd6d217c2daba Mon Sep 17 00:00:00 2001
From: h_vogt <h_vogt>
Date: Sun, 18 Jan 2009 12:09:56 +0000
Subject: [PATCH] add HAS_TCLWIN

---
 ChangeLog             | 2 ++
 src/frontend/outitf.c | 6 ++++--
 src/misc/alloc.c      | 2 +-
 3 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7bec115b4..8baa33a3d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2009-01-18 Holger Vogt
  * src/frontend/mw_coms.c: variable declarations to top of function
+ * outif.c, alloc.c: add HAS_TCLWIN flag to allow coimpilation of 
+   tclspice under MS VC++
 
 2009-01-16 Paolo Nenzi
  * src/frontend/mw_coms.c, src/frontend/commands.c, 
diff --git a/src/frontend/outitf.c b/src/frontend/outitf.c
index 53be1bdec..9e299a7d0 100644
--- a/src/frontend/outitf.c
+++ b/src/frontend/outitf.c
@@ -65,8 +65,10 @@ static void freeRun(runDesc *run);
 /*saj*/
 
 /* plot output data shall go into extra heap 
-   to prevent massive memory fragmentation of standard process heap */
-#if defined HAS_WINDOWS && (defined(_MSC_VER) || defined(__MINGW32__))
+   to prevent massive memory fragmentation of standard process heap.
+   This is especially required by TCL for Windows, but may help
+   also under standard Windows GUI. */
+#if (defined(HAS_WINDOWS) || defined(HAS_TCLWIN)) && (defined(_MSC_VER) || defined(__MINGW32__))
 #define newrealloc hrealloc
 #else
 #define newrealloc trealloc
diff --git a/src/misc/alloc.c b/src/misc/alloc.c
index 257e7341c..e01455fe5 100644
--- a/src/misc/alloc.c
+++ b/src/misc/alloc.c
@@ -15,7 +15,7 @@ $Id$
 #include <tcl.h>
 #endif
 
-#ifdef HAS_WINDOWS
+#if defined(HAS_WINDOWS) || defined(HAS_TCLWIN)
 #if defined(_MSC_VER) || defined(__MINGW32__)
 #undef BOOLEAN
 #include <windows.h>