diff options
| author | welch <welch> | 1998-08-06 11:41:01 (GMT) |
|---|---|---|
| committer | welch <welch> | 1998-08-06 11:41:01 (GMT) |
| commit | 18f01ec23662e8f9b7515947b0cd534e6345457f (patch) | |
| tree | 54170275895c6a8252bb45f314f5eb3d79fed053 /unix | |
| parent | c67a273799e8267c0618e070e9c4839db5a831be (diff) | |
| download | tcl-18f01ec23662e8f9b7515947b0cd534e6345457f.zip tcl-18f01ec23662e8f9b7515947b0cd534e6345457f.tar.gz tcl-18f01ec23662e8f9b7515947b0cd534e6345457f.tar.bz2 | |
Nuked EINTR wrappers
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 */ |