diff options
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tclUnixChan.c | 6 | ||||
| -rw-r--r-- | unix/tclUnixPort.h | 4 | ||||
| -rw-r--r-- | unix/tclUnixTest.c | 7 | ||||
| -rw-r--r-- | unix/tclUnixThrd.c | 4 |
4 files changed, 14 insertions, 7 deletions
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index 484b649..4a2e7b2 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixChan.c,v 1.49 2004/05/04 03:52:28 andreas_kupries Exp $ + * RCS: @(#) $Id: tclUnixChan.c,v 1.50 2004/05/27 13:18:54 dkf Exp $ */ #include "tclInt.h" /* Internal definitions for Tcl. */ @@ -274,10 +274,14 @@ static int TtyCloseProc _ANSI_ARGS_((ClientData instanceData, Tcl_Interp *interp)); static void TtyGetAttributes _ANSI_ARGS_((int fd, TtyAttrs *ttyPtr)); +static int TtyGetBaud _ANSI_ARGS_((unsigned long speed)); static int TtyGetOptionProc _ANSI_ARGS_((ClientData instanceData, Tcl_Interp *interp, CONST char *optionName, Tcl_DString *dsPtr)); +static unsigned long TtyGetSpeed _ANSI_ARGS_((int baud)); static FileState * TtyInit _ANSI_ARGS_((int fd, int initialize)); +static void TtyModemStatusStr _ANSI_ARGS_((int status, + Tcl_DString *dsPtr)); #if BAD_TIP35_FLUSH static int TtyOutputProc _ANSI_ARGS_((ClientData instanceData, CONST char *buf, int toWrite, int *errorCode)); diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h index 8bb93bf..4000de6 100644 --- a/unix/tclUnixPort.h +++ b/unix/tclUnixPort.h @@ -19,7 +19,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixPort.h,v 1.36 2004/05/14 21:43:29 kennykb Exp $ + * RCS: @(#) $Id: tclUnixPort.h,v 1.37 2004/05/27 13:18:55 dkf Exp $ */ #ifndef _TCLUNIXPORT @@ -493,7 +493,9 @@ extern char **environ; * up being too many conflicts with slightly-different prototypes. */ +#ifdef NO_STDLIB_H extern double strtod(); +#endif /* * There is no platform-specific panic routine for Unix in the Tcl internals. diff --git a/unix/tclUnixTest.c b/unix/tclUnixTest.c index 880e4fd..f3414f5 100644 --- a/unix/tclUnixTest.c +++ b/unix/tclUnixTest.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixTest.c,v 1.16 2004/04/06 22:25:57 dgp Exp $ + * RCS: @(#) $Id: tclUnixTest.c,v 1.17 2004/05/27 13:18:55 dkf Exp $ */ #include "tclInt.h" @@ -81,7 +81,7 @@ static int TestalarmCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int argc, CONST char **argv)); static int TestgotsigCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int argc, CONST char **argv)); -static void AlarmHandler _ANSI_ARGS_(()); +static void AlarmHandler _ANSI_ARGS_((int signum)); /* *---------------------------------------------------------------------- @@ -671,7 +671,8 @@ TestalarmCmd(clientData, interp, argc, argv) */ static void -AlarmHandler() +AlarmHandler(signum) + int signum; { gotsig = "1"; } diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c index 3de2319..56745b0 100644 --- a/unix/tclUnixThrd.c +++ b/unix/tclUnixThrd.c @@ -126,9 +126,9 @@ Tcl_CreateThread(idPtr, proc, clientData, stackSize, flags) if (pthread_create((pthread_t *)idPtr, &attr, - (void * (*)())proc, (void *)clientData) && + (void * (*)(void *))proc, (void *)clientData) && pthread_create((pthread_t *)idPtr, NULL, - (void * (*)())proc, (void *)clientData)) { + (void * (*)(void *))proc, (void *)clientData)) { result = TCL_ERROR; } else { result = TCL_OK; |