diff options
| author | stanton <stanton> | 1999-03-11 00:19:23 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-03-11 00:19:23 (GMT) |
| commit | 959ef2397770f8b6b7319b28c4cee7ef60ba6ac4 (patch) | |
| tree | 5395cacc9a5253542d062dfcb57426a2721a541b /generic/tclIntPlatStubs.c | |
| parent | 17d56fd5b956aa638c25faaac51a8856ee8f51d7 (diff) | |
| download | tcl-959ef2397770f8b6b7319b28c4cee7ef60ba6ac4.zip tcl-959ef2397770f8b6b7319b28c4cee7ef60ba6ac4.tar.gz tcl-959ef2397770f8b6b7319b28c4cee7ef60ba6ac4.tar.bz2 | |
* win/tclWinPipe.c:
* generic/tclInt.decls: Added TclWinAddProcess to make it possible
for expect to use Tcl_WaitForPid(). This patch is from Gordon
Chaffee.
* mac/tclMacPort.h:
* win/tclWinInit.c:
* unix/tclUnixPort.h:
* generic/tclAsync.c: Added TclpAsyncMark to fix bug in async
handling on Windows where async events don't wake up the event
loop. This patch comes from Gordon Chaffee.
* generic/tcl.decls: Fixed declarations of reserved slots.
Diffstat (limited to 'generic/tclIntPlatStubs.c')
| -rw-r--r-- | generic/tclIntPlatStubs.c | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/generic/tclIntPlatStubs.c b/generic/tclIntPlatStubs.c index 43bc4e5..2821567 100644 --- a/generic/tclIntPlatStubs.c +++ b/generic/tclIntPlatStubs.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.3 1999/03/10 05:52:49 stanton Exp $ + * RCS: @(#) $Id: tclIntPlatStubs.c,v 1.4 1999/03/11 00:19:23 stanton Exp $ */ #include "tclInt.h" @@ -301,6 +301,23 @@ TclpOpenFile(fname, mode) return (tclIntPlatStubsPtr->tclpOpenFile)(fname, mode); } +/* Slot 20 */ +void +TclWinAddProcess(hProcess, id) + HANDLE hProcess; + DWORD id; +{ + (tclIntPlatStubsPtr->tclWinAddProcess)(hProcess, id); +} + +/* Slot 21 */ +void +TclpAsyncMark(async) + Tcl_AsyncHandler async; +{ + (tclIntPlatStubsPtr->tclpAsyncMark)(async); +} + #endif /* __WIN32__ */ #ifdef MAC_TCL /* Slot 0 */ |