diff options
| author | welch <welch@noemail.net> | 1998-08-06 11:41:00 (GMT) |
|---|---|---|
| committer | welch <welch@noemail.net> | 1998-08-06 11:41:00 (GMT) |
| commit | f5ca39689a0d0caa93e3462f6559ecdbc04150a1 (patch) | |
| tree | 54170275895c6a8252bb45f314f5eb3d79fed053 /unix | |
| parent | a6e7a856965ca6e1f825ce21d1c8e3afae04a096 (diff) | |
| download | tcl-f5ca39689a0d0caa93e3462f6559ecdbc04150a1.zip tcl-f5ca39689a0d0caa93e3462f6559ecdbc04150a1.tar.gz tcl-f5ca39689a0d0caa93e3462f6559ecdbc04150a1.tar.bz2 | |
Nuked EINTR wrappers
FossilOrigin-Name: 54846c02e3bd3086cbf0aaba1df7bf023d23dcbb
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tclUnixPort.h | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h index 3b0eb62..f99910f 100644 --- a/unix/tclUnixPort.h +++ b/unix/tclUnixPort.h @@ -492,20 +492,4 @@ extern double strtod(); EXTERN int TclUnixWaitForFile _ANSI_ARGS_((int fd, int mask, int timeout)); -/* - * Substitute Tcl's own versions for several system calls. The - * Tcl versions retry automatically if interrupted by signals. - * (see tclUnixUtil.c). - */ - -#define open(a,b,c) TclOpen(a,b,c) -#define read(a,b,c) TclRead(a,b,c) -#define waitpid(a,b,c) TclWaitpid(a,b,c) -#define write(a,b,c) TclWrite(a,b,c) -EXTERN int TclOpen _ANSI_ARGS_((char *path, int oflag, int mode)); -EXTERN int TclRead _ANSI_ARGS_((int fd, VOID *buf, size_t numBytes)); -EXTERN int TclWaitpid _ANSI_ARGS_((pid_t pid, int *statPtr, int options)); -EXTERN int TclWrite _ANSI_ARGS_((int fd, VOID *buf, size_t numBytes)); - - #endif /* _TCLUNIXPORT */ |