From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 11 Apr 2008 09:56:47 +0000 (+0000)
Subject: We need slightly different startup for a tclkit than for a stardll. Define KIT_DLL... 
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=57777fb4243a2d388682ad80f9c4397499825cc0;p=kitgen

We need slightly different startup for a tclkit than for a stardll. Define KIT_DLL when building a stardll

git-svn-id: svn://svn.equi4.com/kitgen/trunk@4093 9e558909-932a-0410-a563-af77432da1eb
---

diff --git a/kitInit.c b/kitInit.c
index d791a73..3e96a97 100644
--- a/kitInit.c
+++ b/kitInit.c
@@ -227,12 +227,12 @@ TclKit_AppInit(Tcl_Interp *interp)
       	Tcl_DecrRefCount(evobjPtr);
     }
 
-#if 1 /* jcw's original code */
+#ifdef KIT_DLL
     TclSetPreInitScript(preInitCmd);
     if ((Tcl_EvalEx(interp, appInitCmd, -1, TCL_EVAL_GLOBAL) == TCL_ERROR)
            || (Tcl_Init(interp) == TCL_ERROR))
         goto error;
-#else /* what I am using */
+#else /* not a dll */
     TclSetPreInitScript(appInitCmd);
     if (Tcl_Init(interp) == TCL_ERROR)
         goto error;