diff options
| author | hobbs <hobbs> | 2000-09-06 22:37:23 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-09-06 22:37:23 (GMT) |
| commit | 68a252b7d9b1335f2236481163d17395a08c3327 (patch) | |
| tree | 0ddeacef67c0c1e979acabbcacc64cc9f8f0bba2 /win | |
| parent | 106238381fb5a416aca2817b156ec8f20ec6ba7d (diff) | |
| download | tcl-68a252b7d9b1335f2236481163d17395a08c3327.zip tcl-68a252b7d9b1335f2236481163d17395a08c3327.tar.gz tcl-68a252b7d9b1335f2236481163d17395a08c3327.tar.bz2 | |
* win/tclWinLoad.c (TclpLoadFile): added special message for
ERROR_PROC_NOT_FOUND exception in loading a dll.
* win/tclWinError.c: changed ERROR_PROC_NOT_FOUND to map from
ESRCH (POSIX: no such process) to EINVAL because there is no good
mapping for "procedure not found".
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinError.c | 4 | ||||
| -rw-r--r-- | win/tclWinLoad.c | 10 |
2 files changed, 9 insertions, 5 deletions
diff --git a/win/tclWinError.c b/win/tclWinError.c index 7786334..1bc66cd 100644 --- a/win/tclWinError.c +++ b/win/tclWinError.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinError.c,v 1.3 1999/04/16 00:48:08 stanton Exp $ + * RCS: @(#) $Id: tclWinError.c,v 1.4 2000/09/06 22:37:24 hobbs Exp $ */ #include "tclWinInt.h" @@ -147,7 +147,7 @@ static char errorTable[] = { EINVAL, /* 124 */ EINVAL, /* 125 */ EINVAL, /* 126 */ - ESRCH, /* ERROR_PROC_NOT_FOUND 127 */ + EINVAL, /* ERROR_PROC_NOT_FOUND 127 */ ECHILD, /* ERROR_WAIT_NO_CHILDREN 128 */ ECHILD, /* ERROR_CHILD_NOT_COMPLETE 129 */ EBADF, /* ERROR_DIRECT_ACCESS_HANDLE 130 */ diff --git a/win/tclWinLoad.c b/win/tclWinLoad.c index 360b629..8afbefe 100644 --- a/win/tclWinLoad.c +++ b/win/tclWinLoad.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinLoad.c,v 1.5 2000/02/10 09:53:57 hobbs Exp $ + * RCS: @(#) $Id: tclWinLoad.c,v 1.6 2000/09/06 22:37:24 hobbs Exp $ */ #include "tclWinInt.h" @@ -87,8 +87,12 @@ TclpLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr) case ERROR_MOD_NOT_FOUND: case ERROR_DLL_NOT_FOUND: Tcl_AppendResult(interp, "this library or a dependent library", - " could not be found in library path", (char *) - NULL); + " could not be found in library path", + (char *) NULL); + break; + case ERROR_PROC_NOT_FOUND: + Tcl_AppendResult(interp, "could not find specified procedure", + (char *) NULL); break; case ERROR_INVALID_DLL: Tcl_AppendResult(interp, "this library or a dependent library", |