From 468eff47d7fabe40b773ac2be2f21dd86615bc0b Mon Sep 17 00:00:00 2001
From: Kevin B Kenny <kennykb@acm.org>
Date: Tue, 22 Jun 2004 19:41:23 +0000
Subject: * generic/tclEvent.c (NewThreadProc): Fixed broken build on Windows
 caused by missing TCL_THREAD_CREATE_RETURN. * tests/stack.test (stack-3.1):
 Corrected nuisance error in threaded builds.

---
 ChangeLog          |  8 ++++++++
 generic/tclEvent.c |  5 ++++-
 tests/stack.test   | 14 +++++++-------
 3 files changed, 19 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d048371..597912e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2004-06-22  Kevin Kenny  <kennykb@acm.org>
+
+	* generic/tclEvent.c (NewThreadProc): Fixed broken build on
+	Windows caused by missing TCL_THREAD_CREATE_RETURN.
+
+	* tests/stack.test (stack-3.1): Corrected nuisance error in
+	threaded builds.
+	
 2004-06-22  Zoran Vasiljevic <vasiljevic@users.sf.net>
 
 	* generic/tclEvent.c:
diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index 6148f84..69eac18 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -7,11 +7,12 @@
  *
  * Copyright (c) 1990-1994 The Regents of the University of California.
  * Copyright (c) 1994-1998 Sun Microsystems, Inc.
+ * Copyright (c) 2004 by Zoran Vasiljevic.
  *
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclEvent.c,v 1.38 2004/06/22 13:08:57 vasiljevic Exp $
+ * RCS: @(#) $Id: tclEvent.c,v 1.39 2004/06/22 19:41:25 kennykb Exp $
  */
 
 #include "tclInt.h"
@@ -1262,6 +1263,8 @@ NewThreadProc(ClientData clientData)
     TclInitNotifier();
 
     (*threadProc)(threadClientData);
+
+    TCL_THREAD_CREATE_RETURN;
 }
 #endif
 /*
diff --git a/tests/stack.test b/tests/stack.test
index dfcf9c2..362133b 100644
--- a/tests/stack.test
+++ b/tests/stack.test
@@ -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: stack.test,v 1.16 2004/05/03 17:04:31 kennykb Exp $
+# RCS: @(#) $Id: stack.test,v 1.17 2004/06/22 19:41:25 kennykb Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -62,7 +62,6 @@ test stack-3.1 {enough room for regexp near recursion limit} \
     -constraints { win } \
     -setup {
 	set ::limit [interp recursionlimit {} 10000]
-	set ::depth 0
 	proc a { max } {
 	    if { [info level] < $max } {
 		set ::depth [info level]
@@ -71,15 +70,16 @@ test stack-3.1 {enough room for regexp near recursion limit} \
 		regexp {^ ?} x
 	    }
 	}
+    } -body {
+	set ::depth 0
 	catch { a 10001 }
-	incr depth -2
 	set depth2 $depth
-    } -body {
-	list [catch { a $::depth } result] \
-	    $result [expr { $::depth2 - $::depth }]
+	catch { a $::depth }
+	expr { $depth2 - $depth }
     } -cleanup {
 	interp recursionlimit {} $::limit
-    } -result {0 1 1}
+	rename a {}
+    } -result {1}
 
 # cleanup
 ::tcltest::cleanupTests
-- 
cgit v0.12