diff options
| author | stanton <stanton> | 1999-04-23 01:57:23 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-04-23 01:57:23 (GMT) |
| commit | 900205b76935aba2f912d67cb63c5a02f15c3e9a (patch) | |
| tree | f22fb52653f6c12039b7951588ea61d9944bfaef /win | |
| parent | a9e9c4de3de788a605af9a2d4efa389f32735e21 (diff) | |
| download | tcl-900205b76935aba2f912d67cb63c5a02f15c3e9a.zip tcl-900205b76935aba2f912d67cb63c5a02f15c3e9a.tar.gz tcl-900205b76935aba2f912d67cb63c5a02f15c3e9a.tar.bz2 | |
* win/tclWinFCmd.c:
* win/tclWin32Dll.c: Changed uses of "try" to "__try", since that
is the actual keyword. This eliminates the need for some -D flags
from the makefile.
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWin32Dll.c | 6 | ||||
| -rw-r--r-- | win/tclWinFCmd.c | 10 |
2 files changed, 8 insertions, 8 deletions
diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c index 5a90b77..349e770 100644 --- a/win/tclWin32Dll.c +++ b/win/tclWin32Dll.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: tclWin32Dll.c,v 1.6 1999/04/16 00:48:07 stanton Exp $ + * RCS: @(#) $Id: tclWin32Dll.c,v 1.7 1999/04/23 01:57:23 stanton Exp $ */ #include "tclWinInt.h" @@ -445,10 +445,10 @@ TclpCheckStackSpace() * exception if the stack pointer is set below the bottom of the stack. */ - try { + __try { alloca(TCL_WIN_STACK_THRESHOLD); return 1; - } except (1) {} + } __except (1) {} return 0; } diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c index c4e25ae..aa9858b 100644 --- a/win/tclWinFCmd.c +++ b/win/tclWinFCmd.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: tclWinFCmd.c,v 1.5 1999/04/21 21:50:34 rjohnson Exp $ + * RCS: @(#) $Id: tclWinFCmd.c,v 1.6 1999/04/23 01:57:23 stanton Exp $ */ #include "tclWinInt.h" @@ -195,11 +195,11 @@ DoRenameFile( * char block device. */ - try { + __try { if ((*tclWinProcs->moveFileProc)(nativeSrc, nativeDst) != FALSE) { return TCL_OK; } - } except (-1) {} + } __except (-1) {} TclWinConvertError(GetLastError()); @@ -484,11 +484,11 @@ DoCopyFile( * block device. */ - try { + __try { if ((*tclWinProcs->copyFileProc)(nativeSrc, nativeDst, 0) != FALSE) { return TCL_OK; } - } except (-1) {} + } __except (-1) {} TclWinConvertError(GetLastError()); if (Tcl_GetErrno() == EBADF) { |