From ba532fa572158cf1080aaf9775cae8bdc418bd9f Mon Sep 17 00:00:00 2001 From: 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