diff options
author | hobbs <hobbs@noemail.net> | 1999-12-22 00:00:15 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 1999-12-22 00:00:15 (GMT) |
commit | 41178b19cd22f83d3acda269674f5d82546972c3 (patch) | |
tree | 40cc74ae6b672b93e526c5f915386d6cd4fdfebf /win | |
parent | 3db09d484ed0082927dca509966c1fdd36797ecd (diff) | |
download | tcl-41178b19cd22f83d3acda269674f5d82546972c3.zip tcl-41178b19cd22f83d3acda269674f5d82546972c3.tar.gz tcl-41178b19cd22f83d3acda269674f5d82546972c3.tar.bz2 |
* 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
FossilOrigin-Name: 375e49cc208d585ea81a38f3665e76ba3aaa77b0
Diffstat (limited to 'win')
-rw-r--r-- | win/README.binary | 6 | ||||
-rw-r--r-- | win/configure.in | 4 | ||||
-rw-r--r-- | win/mkd.bat | 5 | ||||
-rw-r--r-- | win/rmd.bat | 4 | ||||
-rw-r--r-- | 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); } |