summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-06-17 21:43:56 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-06-17 21:43:56 (GMT)
commit0010e7298ec2bea036f45c62837c48046388b10a (patch)
tree1eefb19f60b4980d75b99df33011b2ae8f96b782
parent4a2aaf15041faf8c7a579ac0808c04b20aa102ff (diff)
downloadtcl-0010e7298ec2bea036f45c62837c48046388b10a.zip
tcl-0010e7298ec2bea036f45c62837c48046388b10a.tar.gz
tcl-0010e7298ec2bea036f45c62837c48046388b10a.tar.bz2
Remove debugging panic
-rw-r--r--win/tclWinInit.c7
1 files changed, 5 insertions, 2 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c
index 44c2e37..9f6d50f 100644
--- a/win/tclWinInit.c
+++ b/win/tclWinInit.c
@@ -7,7 +7,7 @@
* Copyright (c) 1998-1999 by Scriptics Corporation.
* All rights reserved.
*
- * RCS: @(#) $Id: tclWinInit.c,v 1.54 2004/06/17 21:33:43 dgp Exp $
+ * RCS: @(#) $Id: tclWinInit.c,v 1.55 2004/06/17 21:43:56 dgp Exp $
*/
#include "tclWinInt.h"
@@ -210,7 +210,10 @@ GetDefaultLibraryDir()
}
if (NULL == defaultLibraryDir) {
-Tcl_Panic("Called GetDLD before SetDLD!");
+ /*
+ * Careful here. This may be bogus, calling TclpInitLibraryPath
+ * when not in TclpInitLock. OTOH, this branch shouldn't happen.
+ */
TclpInitLibraryPath(NULL);
if (NULL != *savedDirectoryPtr) {
return *savedDirectoryPtr;