diff options
| author | mdejong <mdejong> | 2003-01-16 19:01:59 (GMT) |
|---|---|---|
| committer | mdejong <mdejong> | 2003-01-16 19:01:59 (GMT) |
| commit | 87b28d9c78944ebbc26e0dfc02d0b4c07bbdba68 (patch) | |
| tree | 56fc5ddd5f0d9e560d44bc912f29228edfa92437 /win/tclWin32Dll.c | |
| parent | d4ef1e892eaf4ac505ca0b50bbec1d3ec472161a (diff) | |
| download | tcl-87b28d9c78944ebbc26e0dfc02d0b4c07bbdba68.zip tcl-87b28d9c78944ebbc26e0dfc02d0b4c07bbdba68.tar.gz tcl-87b28d9c78944ebbc26e0dfc02d0b4c07bbdba68.tar.bz2 | |
* win/tclWin32Dll.c (squelch_warnings): Squelch
compiler warnings from SEH ASM code.
* win/tclWinChan.c (squelch_warnings): Squelch
compiler warnings from SEH ASM code.
* win/tclWinDde.c: Add casts to avoid compiler
warnings. Pass pointer to DWORD instead of int
to avoid compiler warnings.
* win/tclWinFCmd.c (squelch_warnings): Add casts
and fixup decls to avoid compiler warnings.
Squelch compiler warnings from SEH ASM code.
* win/tclWinFile.c: Add casts and fixup decls
to avoid compiler warnings. Remove unused variable.
* win/tclWinNotify.c: Declare as DWORD instead
of int to avoid compiler warning.
* win/tclWinReg.c: Add casts to avoid compiler
warning. Fix assignment in if expression bug.
* win/tclWinSerial.c: Add casts to avoid compiler
warnings. Remove unused variable.
* win/tclWinSock.c: Add casts and fixup decls
to avoid compiler warnings.
Diffstat (limited to 'win/tclWin32Dll.c')
| -rw-r--r-- | win/tclWin32Dll.c | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c index 038cf83..ac9e8cd 100644 --- a/win/tclWin32Dll.c +++ b/win/tclWin32Dll.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: tclWin32Dll.c,v 1.19 2003/01/09 10:38:34 vincentdarley Exp $ + * RCS: @(#) $Id: tclWin32Dll.c,v 1.20 2003/01/16 19:01:59 mdejong Exp $ */ #include "tclWinInt.h" @@ -613,3 +613,18 @@ Tcl_WinTCharToUtf(string, len, dsPtr) return Tcl_ExternalToUtfDString(tclWinTCharEncoding, (CONST char *) string, len, dsPtr); } + +#ifdef HAVE_NO_SEH +/* + * This method exists only to stop the compiler from emitting + * warnings about variables and methods accessed only from asm. + */ +static void squelch_warnings() +{ + void *ptr; + ptr = _except_checkstackspace_handler; + ESP = 0; + EBP = 0; + squelch_warnings(); +} +#endif /* HAVE_NO_SEH */ |