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