From e9be3ed7e8a3dc1db6dabf3540fc9f73ab7dd3ac Mon Sep 17 00:00:00 2001 From: suresh Date: Thu, 9 Jul 1998 13:47:06 +0000 Subject: Moved the variable 'tclPreInitScript' to generic/tclInitScript.h. FossilOrigin-Name: ec637b038f0fcba5fee83b3d02a5503df4c95a7b --- win/tclWinInit.c | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 484abd7..0610ef6 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -66,20 +66,13 @@ static char* processors[NUMPROCESSORS] = { }; /* - * The Init script (common to Windows and Unix platforms) is - * defined in tclInitScript.h + * The Init script, tclPreInitScript variable, and the routine + * TclSetPreInitScript (common to Windows and Unix platforms) are defined + * in generic/tclInitScript.h */ #include "tclInitScript.h" -/* - * A pointer to a string that holds an initialization script that if non-NULL - * is evaluated in Tcl_Init() prior to the the built-in initialization script - * that is defined in the file "generic/tclInitScript.h". - */ - -char * tclPreInitScript = NULL; - /* *---------------------------------------------------------------------- -- cgit v0.12