New file for the darwin_private_extern fix

[pf3gnuchains/gcc-fork.git] / libf2c / libF77 / h_nint.c

diff --git a/libf2c/libF77/h_nint.c b/libf2c/libF77/h_nint.c
index 0af3735..a8c366a 100644 (file)
--- a/libf2c/libF77/h_nint.c
+++ b/libf2c/libF77/h_nint.c
@@ -1,14 +1,9 @@
 #include "f2c.h"
 
-#ifdef KR_headers
-double floor();
-shortint h_nint(x) real *x;
-#else
 #undef abs
 #include <math.h>
-shortint h_nint(real *x)
-#endif
+shortint
+h_nint (real * x)
 {
-return( (*x)>=0 ?
-       floor(*x + .5) : -floor(.5 - *x) );
+  return (shortint) (*x >= 0 ? floor (*x + .5) : -floor (.5 - *x));
 }