Tcl Source Code

Artifact cc42e9f7e6cd8daaccc6dcf97f3045eeec738f4f:

Attachment "tclexit.patch" to ticket [2750491fff] added by ajpasadyn 2009-04-10 22:17:35.

---

--- old/tcl8.5.3/win/tclWinPort.h	2008-07-24 16:08:00.000000000 -0500
+++ new/tcl8.5.3/win/tclWinPort.h	2008-07-24 16:08:38.999781400 -0500
@@ -518,7 +518,9 @@
  * functions.
  */

-#define TclpExit		exit
+static void TclpExit(int code) {
+  TerminateProcess(GetCurrentProcess(), code);
+}

 #ifndef INVALID_SET_FILE_POINTER
 #define INVALID_SET_FILE_POINTER 0xFFFFFFFF