diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-06-17 21:26:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-06-17 21:26:28 (GMT) |
| commit | 7bfa6b0d1e0b76050efcf401c022c7ab4c3a2012 (patch) | |
| tree | d99f3a4b81f26b0b6e943f0325df9beaebbf76fe /win/tclWinInit.c | |
| parent | 1166cd31795ae95c0ee8ed21c248a6ba1c78212d (diff) | |
| download | tcl-7bfa6b0d1e0b76050efcf401c022c7ab4c3a2012.zip tcl-7bfa6b0d1e0b76050efcf401c022c7ab4c3a2012.tar.gz tcl-7bfa6b0d1e0b76050efcf401c022c7ab4c3a2012.tar.bz2 | |
Better panic message for diagnosis.
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 3 |
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; |