Complete the purge of K&R function definitions from manually-written code.

1 files changed, 13 insertions, 13 deletions

diff --git a/generic/tclTestProcBodyObj.c b/generic/tclTestProcBodyObj.c
index e3f12a1..43361c5 100644
--- a/generic/tclTestProcBodyObj.c
+++ b/generic/tclTestProcBodyObj.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: tclTestProcBodyObj.c,v 1.4 2005/11/02 15:59:49 dkf Exp $
+ * RCS: @(#) $Id: tclTestProcBodyObj.c,v 1.5 2007/04/16 13:36:35 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -84,8 +84,8 @@ static CONST CmdTable safeCommands[] = {
  */
 
 int
-Procbodytest_Init(interp)
-    Tcl_Interp *interp;		/* the Tcl interpreter for which the package
+Procbodytest_Init(
+    Tcl_Interp *interp)		/* the Tcl interpreter for which the package
                                  * is initialized */
 {
     return ProcBodyTestInitInternal(interp, 0);
@@ -108,8 +108,8 @@ Procbodytest_Init(interp)
  */
 
 int
-Procbodytest_SafeInit(interp)
-    Tcl_Interp *interp;		/* the Tcl interpreter for which the package
+Procbodytest_SafeInit(
+    Tcl_Interp *interp)		/* the Tcl interpreter for which the package
                                  * is initialized */
 {
     return ProcBodyTestInitInternal(interp, 1);
@@ -171,10 +171,10 @@ static int RegisterCommand(interp, namespace, cmdTablePtr)
  */
 
 static int
-ProcBodyTestInitInternal(interp, isSafe)
-    Tcl_Interp *interp;		/* the Tcl interpreter for which the package
+ProcBodyTestInitInternal(
+    Tcl_Interp *interp,		/* the Tcl interpreter for which the package
                                  * is initialized */
-    int isSafe;			/* 1 if this is a safe interpreter */
+    int isSafe)			/* 1 if this is a safe interpreter */
 {
     CONST CmdTable *cmdTablePtr;
 
@@ -222,11 +222,11 @@ ProcBodyTestInitInternal(interp, isSafe)
  */
 
 static int
-ProcBodyTestProcObjCmd (dummy, interp, objc, objv)
-    ClientData dummy;		/* context; not used */
-    Tcl_Interp *interp;		/* the current interpreter */
-    int objc;			/* argument count */
-    Tcl_Obj *CONST objv[];	/* arguments */
+ProcBodyTestProcObjCmd(
+    ClientData dummy,		/* context; not used */
+    Tcl_Interp *interp,		/* the current interpreter */
+    int objc,			/* argument count */
+    Tcl_Obj *const objv[])	/* arguments */
 {
     char *fullName;
     Tcl_Command procCmd;