summaryrefslogtreecommitdiffstats
path: root/unix
diff options
context:
space:
mode:
Diffstat (limited to 'unix')
-rw-r--r--unix/tclUnixChan.c6
-rw-r--r--unix/tclUnixPort.h4
-rw-r--r--unix/tclUnixTest.c7
-rw-r--r--unix/tclUnixThrd.c4
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;