Remove some antiquated C constructs
authorIan Lynagh <igloo@earth.li>
Mon, 1 Aug 2011 00:08:28 +0000 (01:08 +0100)
committerIan Lynagh <igloo@earth.li>
Mon, 1 Aug 2011 00:08:28 +0000 (01:08 +0100)
Fixes validate on amd64/Linux with:

SRC_CC_OPTS += -Wmissing-parameter-type
SRC_CC_OPTS += -Wold-style-declaration
SRC_CC_OPTS += -Wold-style-definition

cbits/primFloat.c
include/HsBase.h

index 0e9f9b3..7ac0320 100644 (file)
@@ -445,16 +445,16 @@ rintDouble(HsDouble d)
 #else /* ! IEEE_FLOATING_POINT */
 
 /* Dummy definitions of predicates - they all return "normal" values */
-HsInt isDoubleFinite(d) HsDouble d; { return 1;}
-HsInt isDoubleNaN(d) HsDouble d; { return 0; }
-HsInt isDoubleInfinite(d) HsDouble d; { return 0; }
-HsInt isDoubleDenormalized(d) HsDouble d; { return 0; }
-HsInt isDoubleNegativeZero(d) HsDouble d; { return 0; }
-HsInt isFloatFinite(f) HsFloat f; { return 1; }
-HsInt isFloatNaN(f) HsFloat f; { return 0; }
-HsInt isFloatInfinite(f) HsFloat f; { return 0; }
-HsInt isFloatDenormalized(f) HsFloat f; { return 0; }
-HsInt isFloatNegativeZero(f) HsFloat f; { return 0; }
+HsInt isDoubleFinite(HsDouble d) { return 1;}
+HsInt isDoubleNaN(HsDouble d) { return 0; }
+HsInt isDoubleInfinite(HsDouble d) { return 0; }
+HsInt isDoubleDenormalized(HsDouble d) { return 0; }
+HsInt isDoubleNegativeZero(HsDouble d) { return 0; }
+HsInt isFloatFinite(HsFloat f) { return 1; }
+HsInt isFloatNaN(HsFloat f) { return 0; }
+HsInt isFloatInfinite(HsFloat f) { return 0; }
+HsInt isFloatDenormalized(HsFloat f) { return 0; }
+HsInt isFloatNegativeZero(HsFloat f) { return 0; }
 
 
 /* For exotic floating point formats, we can't do much */
index c8fabba..a9c19e4 100644 (file)
@@ -217,19 +217,19 @@ __hscore_memcpy_src_off( char *dst, char *src, int src_off, size_t sz )
 { return memcpy(dst, src+src_off, sz); }
 
 INLINE HsInt
-__hscore_bufsiz()
+__hscore_bufsiz(void)
 {
   return BUFSIZ;
 }
 
 INLINE int
-__hscore_seek_cur()
+__hscore_seek_cur(void)
 {
   return SEEK_CUR;
 }
 
 INLINE int
-__hscore_o_binary()
+__hscore_o_binary(void)
 {
 #if defined(_MSC_VER)
   return O_BINARY;
@@ -239,7 +239,7 @@ __hscore_o_binary()
 }
 
 INLINE int
-__hscore_o_rdonly()
+__hscore_o_rdonly(void)
 {
 #ifdef O_RDONLY
   return O_RDONLY;
@@ -656,12 +656,12 @@ INLINE void setTimevalTicks(struct timeval *p, HsWord64 usecs)
 // You should not access _environ directly on Darwin in a bundle/shared library.
 // See #2458 and http://developer.apple.com/library/mac/#documentation/Darwin/Reference/ManPages/man7/environ.7.html
 #include <crt_externs.h>
-INLINE char **__hscore_environ() { return *(_NSGetEnviron()); }
+INLINE char **__hscore_environ(void) { return *(_NSGetEnviron()); }
 #else
 /* ToDo: write a feature test that doesn't assume 'environ' to
  *    be in scope at link-time. */
 extern char** environ;
-INLINE char **__hscore_environ() { return environ; }
+INLINE char **__hscore_environ(void) { return environ; }
 #endif
 
 /* lossless conversions between pointers and integral types */