diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-26 19:42:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-26 19:42:20 (GMT) |
| commit | efeae981600cc17e5c9b076cf767c7e9a1efcfd8 (patch) | |
| tree | 0ccbd8c5625ed6f1c511e8a001f9428dc9f1d212 /generic/tclIntPlatDecls.h | |
| parent | 4ff4797d7f983f119eb1f4df6b88bcf5850331a9 (diff) | |
| parent | cd9e8f06c4f0e83231558995f26f7c02bdab2ac9 (diff) | |
| download | tcl-efeae981600cc17e5c9b076cf767c7e9a1efcfd8.zip tcl-efeae981600cc17e5c9b076cf767c7e9a1efcfd8.tar.gz tcl-efeae981600cc17e5c9b076cf767c7e9a1efcfd8.tar.bz2 | |
get rid of _ANSI_ARGS_
Diffstat (limited to 'generic/tclIntPlatDecls.h')
| -rw-r--r-- | generic/tclIntPlatDecls.h | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index 8c9545a..60501c9 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -1111,25 +1111,25 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; # undef TclpOpenFile # undef TclpCreateCommandChannel # ifdef __CYGWIN__ -# define TclpCreateProcess ((int (*) _ANSI_ARGS_((Tcl_Interp *, int, \ - CONST char **, TclFile, TclFile, TclFile, Tcl_Pid *))) \ +# define TclpCreateProcess ((int (*) (Tcl_Interp *, int, \ + CONST char **, TclFile, TclFile, TclFile, Tcl_Pid *)) \ tclIntPlatStubsPtr->tclMacOSXGetFileAttribute) -# define TclpMakeFile ((TclFile (*) _ANSI_ARGS_((Tcl_Channel channel, \ - int direction))) tclIntPlatStubsPtr->tclMacOSXMatchType) -# define TclpOpenFile ((TclFile (*) _ANSI_ARGS_((CONST char *, int))) \ +# define TclpMakeFile ((TclFile (*) (Tcl_Channel channel, \ + int direction)) tclIntPlatStubsPtr->tclMacOSXMatchType) +# define TclpOpenFile ((TclFile (*) (CONST char *, int)) \ tclIntPlatStubsPtr->tclMacOSXNotifierAddRunLoopMode) -# define TclpCreateCommandChannel ((Tcl_Channel (*) _ANSI_ARGS_((TclFile, TclFile, \ - TclFile, int, Tcl_Pid *))) tclIntPlatStubsPtr->tclIntPlatReserved13) +# define TclpCreateCommandChannel ((Tcl_Channel (*) (TclFile, TclFile, \ + TclFile, int, Tcl_Pid *)) tclIntPlatStubsPtr->tclIntPlatReserved13) # else -# define TclpCreateProcess ((int (*) _ANSI_ARGS_((Tcl_Interp *, int, \ - CONST char **, TclFile, TclFile, TclFile, Tcl_Pid *))) \ +# define TclpCreateProcess ((int (*) (Tcl_Interp *, int, \ + CONST char **, TclFile, TclFile, TclFile, Tcl_Pid *)) \ tclIntPlatStubsPtr->tclWinGetTclInstance) -# define TclpMakeFile ((TclFile (*) _ANSI_ARGS_((Tcl_Channel channel, \ - int direction))) tclIntPlatStubsPtr->tclWinNToHS) -# define TclpOpenFile ((TclFile (*) _ANSI_ARGS_((CONST char *, int))) \ +# define TclpMakeFile ((TclFile (*) (Tcl_Channel channel, \ + int direction)) tclIntPlatStubsPtr->tclWinNToHS) +# define TclpOpenFile ((TclFile (*) (CONST char *, int)) \ tclIntPlatStubsPtr->tclWinSetSockOpt) -# define TclpCreateCommandChannel ((Tcl_Channel (*) _ANSI_ARGS_((TclFile, TclFile, \ - TclFile, int, Tcl_Pid *))) tclIntPlatStubsPtr->tclWinGetServByName) +# define TclpCreateCommandChannel ((Tcl_Channel (*) (TclFile, TclFile, \ + TclFile, int, Tcl_Pid *)) tclIntPlatStubsPtr->tclWinGetServByName) # undef TclpCreateTempFile # undef TclGetAndDetachPids @@ -1138,17 +1138,17 @@ extern TclIntPlatStubs *tclIntPlatStubsPtr; # undef TclpInetNtoa # undef TclUnixWaitForFile -# define TclpCreateTempFile ((TclFile (*) _ANSI_ARGS_((CONST char *))) \ +# define TclpCreateTempFile ((TclFile (*) (CONST char *)) \ tclIntPlatStubsPtr->tclWinGetPlatformId) -# define TclGetAndDetachPids ((void (*) _ANSI_ARGS_((Tcl_Interp *, Tcl_Channel))) \ +# define TclGetAndDetachPids ((void (*) (Tcl_Interp *, Tcl_Channel)) \ tclIntPlatStubsPtr->tclWinConvertError) -# define TclpCloseFile ((int (*) _ANSI_ARGS_((TclFile))) \ +# define TclpCloseFile ((int (*) (TclFile)) \ tclIntPlatStubsPtr->tclWinConvertWSAError) -# define TclpCreatePipe ((int (*)_ANSI_ARGS_((TclFile *, TclFile *))) \ +# define TclpCreatePipe ((int (*) (TclFile *, TclFile *)) \ tclIntPlatStubsPtr->tclWinGetSockOpt) -# define TclpInetNtoa ((char *(*) _ANSI_ARGS_((struct in_addr addr))) \ +# define TclpInetNtoa ((char *(*) (struct in_addr addr)) \ tclIntPlatStubsPtr->tclIntPlatReserved13) -# define TclUnixWaitForFile (int (*) _ANSI_ARGS_((int, int, int))) \ +# define TclUnixWaitForFile (int (*) (int, int, int)) \ tclIntPlatStubsPtr->tclpGetPid) # endif # endif |