summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorstanton <stanton>1999-04-23 01:57:23 (GMT)
committerstanton <stanton>1999-04-23 01:57:23 (GMT)
commit900205b76935aba2f912d67cb63c5a02f15c3e9a (patch)
treef22fb52653f6c12039b7951588ea61d9944bfaef
parenta9e9c4de3de788a605af9a2d4efa389f32735e21 (diff)
downloadtcl-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.
-rw-r--r--win/tclWin32Dll.c6
-rw-r--r--win/tclWinFCmd.c10
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) {