diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-09-10 21:06:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-09-10 21:06:55 (GMT) |
| commit | 8008090a71e74c81242dbd6334829a5a5b29fba9 (patch) | |
| tree | 865f1fef1ed44402561a1ded8c8a389b880856f0 /win/tclWinInit.c | |
| parent | 4b150f866b9cf91bb9974d7cd40a817c428d019e (diff) | |
| download | tcl-8008090a71e74c81242dbd6334829a5a5b29fba9.zip tcl-8008090a71e74c81242dbd6334829a5a5b29fba9.tar.gz tcl-8008090a71e74c81242dbd6334829a5a5b29fba9.tar.bz2 | |
* Removed
vestiges of Tcl's old initialization from registry variables.
[Bug 455645]
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. */ |