From ba532fa572158cf1080aaf9775cae8bdc418bd9f Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 22 Dec 1999 00:00:16 +0000
Subject: 	* win/mkd.bat: 	* win/rmd.bat: removed necessity of tag.txt
 [Bug: 3874]

	* win/tclWinThrd.c: changed CreateThread to _beginthreadex and
	ExitThread to _endthreadex

	* win/README.binary:
	* win/configure.in: updated to patch level 8.3b1
---
 win/README.binary |  6 +++---
 win/configure.in  |  4 ++--
 win/mkd.bat       |  5 ++---
 win/rmd.bat       |  4 ++--
 win/tclWinThrd.c  | 10 +++++-----
 5 files changed, 14 insertions(+), 15 deletions(-)

diff --git a/win/README.binary b/win/README.binary
index 24e7190..023fc1b 100644
--- a/win/README.binary
+++ b/win/README.binary
@@ -1,11 +1,11 @@
 Tcl/Tk 8.3 for Windows, Binary Distribution
 
-RCS: @(#) $Id: README.binary,v 1.12 1999/10/05 22:47:04 hobbs Exp $ 
+RCS: @(#) $Id: README.binary,v 1.13 1999/12/22 00:00:16 hobbs Exp $ 
 
 1. Introduction
 --------------- 
 
-This directory contains the binary distribution of Tcl/Tk 8.3a1 for
+This directory contains the binary distribution of Tcl/Tk 8.3b1 for
 Windows.  It was compiled with Microsoft Visual C++ 5.0 using Win32
 API, so that it will run under Windows NT, Windows 95, and Windows 98.
 
@@ -32,7 +32,7 @@ Information about new features in Tcl/Tk 8.3 can be found at
     http://www.scriptics.com/software/whatsnew83.html
 
 Detailed release notes can be found at
-    http://www.scriptics.com/software/relnotes/tcl8.3a1
+    http://www.scriptics.com/software/relnotes/tcl8.3b1
 
 Information about Tcl itself can be found at
     http://www.scriptics.com/scripting/
diff --git a/win/configure.in b/win/configure.in
index 80a5cb4..fc739ea 100644
--- a/win/configure.in
+++ b/win/configure.in
@@ -2,14 +2,14 @@
 # generate the file "configure", which is run during Tcl installation
 # to configure the system for the local environment.
 #
-# RCS: @(#) $Id: configure.in,v 1.15 1999/12/06 01:46:08 wart Exp $
+# RCS: @(#) $Id: configure.in,v 1.16 1999/12/22 00:00:16 hobbs Exp $
 
 AC_INIT(../generic/tcl.h)
 
 TCL_VERSION=8.3
 TCL_MAJOR_VERSION=8
 TCL_MINOR_VERSION=3
-TCL_PATCH_LEVEL="a1"
+TCL_PATCH_LEVEL="b1"
 VER=$TCL_MAJOR_VERSION$TCL_MINOR_VERSION
 
 #--------------------------------------------------------------------
diff --git a/win/mkd.bat b/win/mkd.bat
index 1e78fc4..97f36ae 100644
--- a/win/mkd.bat
+++ b/win/mkd.bat
@@ -1,7 +1,7 @@
 @echo off
-rem RCS: @(#) $Id: mkd.bat,v 1.4 1998/09/30 20:19:35 escoffon Exp $
+rem RCS: @(#) $Id: mkd.bat,v 1.5 1999/12/22 00:00:16 hobbs Exp $
 
-if exist %1\tag.txt goto end
+if exist %1\. goto end
 
 if "%OS%" == "Windows_NT" goto winnt
 
@@ -15,7 +15,6 @@ md %1
 if errorlevel 1 goto end
 
 :success
-echo TAG >%1\tag.txt
 echo created directory %1
 
 :end
diff --git a/win/rmd.bat b/win/rmd.bat
index 8465b5d..7b5ce5f 100644
--- a/win/rmd.bat
+++ b/win/rmd.bat
@@ -1,7 +1,7 @@
 @echo off
-rem RCS: @(#) $Id: rmd.bat,v 1.4 1998/09/30 20:19:46 escoffon Exp $
+rem RCS: @(#) $Id: rmd.bat,v 1.5 1999/12/22 00:00:16 hobbs Exp $
 
-if not exist %1\tag.txt goto end
+if not exist %1\. goto end
 
 echo Removing directory %1
 
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c
index e12be89..e449731 100644
--- a/win/tclWinThrd.c
+++ b/win/tclWinThrd.c
@@ -120,11 +120,11 @@ TclpThreadCreate(idPtr, proc, clientData)
     Tcl_ThreadCreateProc proc;		/* Main() function of the thread */
     ClientData clientData;		/* The one argument to Main() */
 {
-    HANDLE tHandle;
+    unsigned long code;
 
-    tHandle = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE) proc,
-		(DWORD *)clientData, 0, (DWORD *)idPtr);
-    if (tHandle == NULL) {
+    code = _beginthreadex(NULL, 0, (LPTHREAD_START_ROUTINE) proc,
+		(void *)clientData, 0, (unsigned *)idPtr);
+    if (code == 0) {
 	return TCL_ERROR;
     } else {
 	return TCL_OK;
@@ -151,7 +151,7 @@ void
 TclpThreadExit(status)
     int status;
 {
-    ExitThread((DWORD)status);
+    _endthreadex((DWORD)status);
 }
 
 
-- 
cgit v0.12