summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
authordas <das>2006-06-21 20:44:59 (GMT)
committerdas <das>2006-06-21 20:44:59 (GMT)
commit78a8ff907a6cc9f17b52a310bef7c37890273c3c (patch)
treeea93ce16ce02f414650994da9dcd23e091bf3a5c /generic/tclTest.c
parent91cc250daf9aa5acf716c0ca9bf549d6425721ad (diff)
downloadtcl-78a8ff907a6cc9f17b52a310bef7c37890273c3c.zip
tcl-78a8ff907a6cc9f17b52a310bef7c37890273c3c.tar.gz
tcl-78a8ff907a6cc9f17b52a310bef7c37890273c3c.tar.bz2
fix warnings
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r--generic/tclTest.c44
1 files changed, 22 insertions, 22 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 5f62096..d05e9f2 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTest.c,v 1.103 2006/06/21 03:10:40 dgp Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.104 2006/06/21 20:44:59 das Exp $
*/
#define TCL_TEST
@@ -212,11 +212,31 @@ static int TestopenfilechannelprocCmd(
CONST char **argv);
static int TeststatprocCmd(ClientData dummy,
Tcl_Interp *interp, int argc, CONST char **argv);
-#endif
static int PretendTclpAccess(CONST char *path, int mode);
static int TestAccessProc1(CONST char *path, int mode);
static int TestAccessProc2(CONST char *path, int mode);
static int TestAccessProc3(CONST char *path, int mode);
+static Tcl_Channel PretendTclpOpenFileChannel(
+ Tcl_Interp *interp, CONST char *fileName,
+ CONST char *modeString, int permissions);
+static Tcl_Channel TestOpenFileChannelProc1(
+ Tcl_Interp *interp, CONST char *fileName,
+ CONST char *modeString, int permissions);
+static Tcl_Channel TestOpenFileChannelProc2(
+ Tcl_Interp *interp, CONST char *fileName,
+ CONST char *modeString, int permissions);
+static Tcl_Channel TestOpenFileChannelProc3(
+ Tcl_Interp *interp, CONST char *fileName,
+ CONST char *modeString, int permissions);
+static int PretendTclpStat(CONST char *path,
+ struct stat *buf);
+static int TestStatProc1(CONST char *path,
+ struct stat *buf);
+static int TestStatProc2(CONST char *path,
+ struct stat *buf);
+static int TestStatProc3(CONST char *path,
+ struct stat *buf);
+#endif
static int TestasyncCmd(ClientData dummy,
Tcl_Interp *interp, int argc, CONST char **argv);
static int TestcmdinfoCmd(ClientData dummy,
@@ -301,18 +321,6 @@ static int TestsetmainloopCmd(ClientData dummy,
Tcl_Interp *interp, int argc, CONST char **argv);
static int TestexitmainloopCmd(ClientData dummy,
Tcl_Interp *interp, int argc, CONST char **argv);
-static Tcl_Channel PretendTclpOpenFileChannel(
- Tcl_Interp *interp, CONST char *fileName,
- CONST char *modeString, int permissions);
-static Tcl_Channel TestOpenFileChannelProc1(
- Tcl_Interp *interp, CONST char *fileName,
- CONST char *modeString, int permissions);
-static Tcl_Channel TestOpenFileChannelProc2(
- Tcl_Interp *interp, CONST char *fileName,
- CONST char *modeString, int permissions);
-static Tcl_Channel TestOpenFileChannelProc3(
- Tcl_Interp *interp, CONST char *fileName,
- CONST char *modeString, int permissions);
static int TestpanicCmd(ClientData dummy,
Tcl_Interp *interp, int argc, CONST char **argv);
static int TestparserObjCmd(ClientData dummy,
@@ -349,14 +357,6 @@ static int TestsetplatformCmd(ClientData dummy,
Tcl_Interp *interp, int argc, CONST char **argv);
static int TeststaticpkgCmd(ClientData dummy,
Tcl_Interp *interp, int argc, CONST char **argv);
-static int PretendTclpStat(CONST char *path,
- struct stat *buf);
-static int TestStatProc1(CONST char *path,
- struct stat *buf);
-static int TestStatProc2(CONST char *path,
- struct stat *buf);
-static int TestStatProc3(CONST char *path,
- struct stat *buf);
static int TesttranslatefilenameCmd(ClientData dummy,
Tcl_Interp *interp, int argc, CONST char **argv);
static int TestupvarCmd(ClientData dummy,