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

FossilOrigin-Name: 645aed2fcdcd55ca81df269a4ea262eeca2b9ff2

1 files changed, 9 insertions, 9 deletions

diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index 4a8ae60..afcf7eb 100755
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.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: tclStrToD.c,v 1.28 2007/04/10 14:47:17 dkf Exp $
+ * RCS: @(#) $Id: tclStrToD.c,v 1.29 2007/04/16 13:36:35 dkf Exp $
  *
  *----------------------------------------------------------------------
  */
@@ -2223,11 +2223,11 @@ TclInitDoubleConversion(void)
  */
 
 void
-TclFinalizeDoubleConversion()
+TclFinalizeDoubleConversion(void)
 {
     int i;
 
-    Tcl_Free((char*)pow10_wide);
+    Tcl_Free((char *) pow10_wide);
     for (i=0; i<9; ++i) {
 	mp_clear(pow5 + i);
     }
@@ -2267,6 +2267,7 @@ Tcl_InitBignumFromDouble(
     if (TclIsInfinite(d)) {
 	if (interp != NULL) {
 	    const char *s = "integer value too large to represent";
+
 	    Tcl_SetObjResult(interp, Tcl_NewStringObj(s, -1));
 	    Tcl_SetErrorCode(interp, "ARITH", "IOVERFLOW", s, NULL);
 	}
@@ -2311,9 +2312,7 @@ TclBignumToDouble(
     mp_int *a)			/* Integer to convert. */
 {
     mp_int b;
-    int bits;
-    int shift;
-    int i;
+    int bits, shift, i;
     double r;
 
     /*
@@ -2676,8 +2675,8 @@ TclFormatNaN(
 
 static Tcl_WideUInt
 Nokia770Twiddle(
-    Tcl_WideUInt w		/* Number to transpose */
-) {
+    Tcl_WideUInt w)		/* Number to transpose */
+{
     return (((w >> 32) & 0xffffffff) | (w << 32));
 }
 
@@ -2693,10 +2692,11 @@ Nokia770Twiddle(
  */
 
 int
-TclNokia770Doubles()
+TclNokia770Doubles(void)
 {
     return n770_fp;
 }
+
 /*
  * Local Variables:
  * mode: c