diff options
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 21 |
1 files changed, 2 insertions, 19 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index f90738c..8ea1655 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -7,24 +7,14 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclWinInit.c,v 1.28 2001/08/27 02:14:08 dgp Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.29 2001/09/10 21:06:55 dgp Exp $ */ #include "tclWinInt.h" -#include <winreg.h> #include <winnt.h> #include <winbase.h> /* - * The following macro can be defined at compile time to specify - * the root of the Tcl registry keys. - */ - -#ifndef TCL_REGISTRY_KEY -#define TCL_REGISTRY_KEY "Software\\Scriptics\\Tcl\\" TCL_VERSION -#endif - -/* * The following declaration is a workaround for some Microsoft brain damage. * The SYSTEM_INFO structure is different in various releases, even though the * layout is the same. So we overlay our own structure on top of it so we @@ -548,8 +538,7 @@ TclpSetInitialEncodings() * None. * * Side effects: - * Sets "tclDefaultLibrary", "tcl_platform", and "env(HOME)" Tcl - * variables. + * Sets "tcl_platform", and "env(HOME)" Tcl variables. * *---------------------------------------------------------------------- */ @@ -572,12 +561,6 @@ TclpSetVariables(interp) GetSystemInfo(&sysInfo); /* - * Initialize the tclDefaultLibrary variable from the registry. - */ - - Tcl_SetVar(interp, "tclDefaultLibrary", "", TCL_GLOBAL_ONLY); - - /* * Define the tcl_platform array. */ |