summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-06-17 21:26:28 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-06-17 21:26:28 (GMT)
commit7bfa6b0d1e0b76050efcf401c022c7ab4c3a2012 (patch)
treed99f3a4b81f26b0b6e943f0325df9beaebbf76fe
parent1166cd31795ae95c0ee8ed21c248a6ba1c78212d (diff)
downloadtcl-7bfa6b0d1e0b76050efcf401c022c7ab4c3a2012.zip
tcl-7bfa6b0d1e0b76050efcf401c022c7ab4c3a2012.tar.gz
tcl-7bfa6b0d1e0b76050efcf401c022c7ab4c3a2012.tar.bz2
Better panic message for diagnosis.
-rw-r--r--win/tclWinInit.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c
index 2eceea9..12f443b 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.52 2004/06/17 20:17:48 dgp Exp $
+ * RCS: @(#) $Id: tclWinInit.c,v 1.53 2004/06/17 21:26:28 dgp Exp $
*/
#include "tclWinInt.h"
@@ -210,6 +210,7 @@ GetDefaultLibraryDir()
}
if (NULL == defaultLibraryDir) {
+Tcl_Panic("Called GetDLD before SetDLD!");
TclpInitLibraryPath(NULL);
if (NULL != *savedDirectoryPtr) {
return *savedDirectoryPtr;