summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-08-19 17:39:15 (GMT)
committerhobbs <hobbs>1999-08-19 17:39:15 (GMT)
commit6d54731bf1a1ddeccdceeb7c46b3c590a8f8140c (patch)
treee9b5e3293c8385177fadde4bab16c1254dad1828
parent3623d06f54ae85532a4f9853ef274227b3540fae (diff)
downloadtcl-6d54731bf1a1ddeccdceeb7c46b3c590a8f8140c.zip
tcl-6d54731bf1a1ddeccdceeb7c46b3c590a8f8140c.tar.gz
tcl-6d54731bf1a1ddeccdceeb7c46b3c590a8f8140c.tar.bz2
1999-08-19 Jeff Hobbs <hobbs@scriptics.com>
* generic/tclIO.c: changed Tcl_GetChannelNames* to use K&R style headers (style guide, also pleases HP cc)
-rw-r--r--ChangeLog6
-rw-r--r--generic/tclIO.c9
2 files changed, 12 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 8673fae..c05beff 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-08-19 Jeff Hobbs <hobbs@scriptics.com>
+
+ * generic/tclIO.c: changed Tcl_GetChannelNames* to use K&R
+ style headers (style guide, also pleases HP cc)
+
1999-08-18 Jeff Hobbs <hobbs@scriptics.com>
* doc/Eval.3: fixed doc on input args [Bug: 2114]
@@ -14,6 +19,7 @@
* generic/tclCompile.c: add TCL_TOKEN_VARIABLE to the part types
that cause differed compilation for exprs, to correct the expr
double-evaluation problem for vars. Added test cases.
+ Related to [Bug: 732]
* unix/Makefile.in: changed the dependency structure so that
install-* is dependent on * (ie - install-binaries is dependent
diff --git a/generic/tclIO.c b/generic/tclIO.c
index ea281a4..1dc808a 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.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: tclIO.c,v 1.15 1999/08/19 02:59:10 hobbs Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.16 1999/08/19 17:39:17 hobbs Exp $
*/
#include "tclInt.h"
@@ -8175,7 +8175,8 @@ SetBlockMode(interp, chanPtr, mode)
*/
int
-Tcl_GetChannelNames(Tcl_Interp *interp)
+Tcl_GetChannelNames(interp)
+ Tcl_Interp *interp; /* Interp for error reporting. */
{
return Tcl_GetChannelNamesEx(interp, (char *) NULL);
}
@@ -8199,7 +8200,9 @@ Tcl_GetChannelNames(Tcl_Interp *interp)
*/
int
-Tcl_GetChannelNamesEx(Tcl_Interp *interp, char *pattern)
+Tcl_GetChannelNamesEx(interp, pattern)
+ Tcl_Interp *interp; /* Interp for error reporting. */
+ char *pattern; /* pattern to filter on. */
{
Channel *chanPtr;
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);