diff options
| author | dgp@users.sourceforge.net <dgp> | 2004-06-17 21:43:56 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2004-06-17 21:43:56 (GMT) |
| commit | 0dc5fd5860f2a9256b37b94366eac461f26f17aa (patch) | |
| tree | 1eefb19f60b4980d75b99df33011b2ae8f96b782 | |
| parent | 5225b9c38c2c712f900edb835cf056dd669a9027 (diff) | |
| download | tcl-0dc5fd5860f2a9256b37b94366eac461f26f17aa.zip tcl-0dc5fd5860f2a9256b37b94366eac461f26f17aa.tar.gz tcl-0dc5fd5860f2a9256b37b94366eac461f26f17aa.tar.bz2 | |
Remove debugging panic
| -rw-r--r-- | win/tclWinInit.c | 7 |
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; |