ANSI C fixes

diff --git a/modules/src/flt_arith/b64_sft.c b/modules/src/flt_arith/b64_sft.c
index 80f1c91..d724f38 100644 (file)
--- a/modules/src/flt_arith/b64_sft.c
+++ b/modules/src/flt_arith/b64_sft.c
@@ -7,6 +7,9 @@
 
 #include "flt_misc.h"
 
+#if __STDC__ > 0
+void
+#endif
 flt_b64_sft(e,n)
        register struct flt_mantissa *e;
        register int n;

diff --git a/modules/src/flt_arith/flt_add.c b/modules/src/flt_arith/flt_add.c
index 7b18834..0db127b 100644 (file)
--- a/modules/src/flt_arith/flt_add.c
+++ b/modules/src/flt_arith/flt_add.c
@@ -7,6 +7,9 @@
 
 #include "flt_misc.h"
 
+#if __STDC__ > 0
+void
+#endif
 flt_add(e1,e2,e3)
        register flt_arith *e1,*e2,*e3;
 {
@@ -74,6 +77,9 @@ flt_add(e1,e2,e3)
        flt_chk(e3);
 }
 
+#if __STDC__ > 0
+void
+#endif
 flt_sub(e1,e2,e3)
        flt_arith *e1,*e2,*e3;
 {

diff --git a/modules/src/flt_arith/flt_ar2flt.c b/modules/src/flt_arith/flt_ar2flt.c
index c714ed5..21e91a8 100644 (file)
--- a/modules/src/flt_arith/flt_ar2flt.c
+++ b/modules/src/flt_arith/flt_ar2flt.c
@@ -8,6 +8,9 @@
 #include "flt_misc.h"
 #include <em_arith.h>
 
+#if __STDC__ > 0
+void
+#endif
 flt_arith2flt(n, e, uns)
        register arith n;
        register flt_arith *e;

diff --git a/modules/src/flt_arith/flt_arith.h b/modules/src/flt_arith/flt_arith.h
index 98b2398..3d31b3d 100644 (file)
--- a/modules/src/flt_arith/flt_arith.h
+++ b/modules/src/flt_arith/flt_arith.h
@@ -7,6 +7,10 @@
 #ifndef __FLT_INCLUDED__
 #define __FLT_INCLUDED__
 
+#ifndef arith
+#define arith long
+#endif
+
 struct flt_mantissa {
        long    flt_h_32;       /* high order 32 bits of mantissa */
        long    flt_l_32;       /* low order 32 bits of mantissa */
@@ -26,4 +30,21 @@ extern int   flt_status;
 #define FLT_BTSM       020
 
 #define FLT_STRLEN     32      /* max length of result of flt_flt2str() */
+
+#if __STDC__ > 0
+void flt_add(flt_arith *, flt_arith *, flt_arith *);
+void flt_sub(flt_arith *, flt_arith *, flt_arith *);
+void flt_mul(flt_arith *, flt_arith *, flt_arith *);
+void flt_div(flt_arith *, flt_arith *, flt_arith *);
+void flt_modf(flt_arith *, flt_arith *, flt_arith *);
+int flt_cmp(flt_arith *, flt_arith *);
+void flt_str2flt(char *, flt_arith *);
+void flt_flt2str(flt_arith *, char *, int);
+void flt_arith2flt(arith, flt_arith *, int);
+arith flt_flt2arith(flt_arith *, int);
+void flt_b64_sft(struct flt_mantissa *, int);
+void flt_umin(flt_arith *);
+#else
+arith flt_flt2arith();
+#endif
 #endif /* __FLT_INCLUDED__ */

diff --git a/modules/src/flt_arith/flt_chk.c b/modules/src/flt_arith/flt_chk.c
index 112ccb9..bfdd332 100644 (file)
--- a/modules/src/flt_arith/flt_chk.c
+++ b/modules/src/flt_arith/flt_chk.c
@@ -8,7 +8,9 @@
 #include "flt_misc.h"
 
 int    flt_status = 0;
-
+#if __STDC__ > 0
+void
+#endif
 flt_chk(e)
        register flt_arith *e;
 {

diff --git a/modules/src/flt_arith/flt_div.c b/modules/src/flt_arith/flt_div.c
index 5413aa1..dc8aea3 100644 (file)
--- a/modules/src/flt_arith/flt_div.c
+++ b/modules/src/flt_arith/flt_div.c
@@ -6,7 +6,9 @@
 /* $Header$ */
 
 #include "flt_misc.h"
-
+#if __STDC__ > 0
+void
+#endif
 flt_div(e1,e2,e3)
        register flt_arith *e1,*e2,*e3;
 {

diff --git a/modules/src/flt_arith/flt_misc.h b/modules/src/flt_arith/flt_misc.h
index 0720cd8..467c6fb 100644 (file)
--- a/modules/src/flt_arith/flt_misc.h
+++ b/modules/src/flt_arith/flt_misc.h
@@ -20,3 +20,11 @@
 #define flt_chk                _flt_chk
 #define flt_b64_add    _flt_64add
 #define flt_split      _flt_split
+
+#if __STDC__ > 0
+int ucmp(long, long);
+void flt_nrm(flt_arith *);
+void flt_chk(flt_arith *);
+int flt_b64_add(struct flt_mantissa *, struct flt_mantissa *);
+void flt_split(flt_arith *, unsigned short *);
+#endif

diff --git a/modules/src/flt_arith/flt_modf.c b/modules/src/flt_arith/flt_modf.c
index 32c97ee..675c26b 100644 (file)
--- a/modules/src/flt_arith/flt_modf.c
+++ b/modules/src/flt_arith/flt_modf.c
@@ -6,7 +6,9 @@
 /* $Header$ */
 
 #include "flt_misc.h"
-
+#if __STDC__ > 0
+void
+#endif
 flt_modf(e, ipart, fpart)
        register flt_arith *e, *ipart, *fpart;
 {

diff --git a/modules/src/flt_arith/flt_mul.c b/modules/src/flt_arith/flt_mul.c
index 6954346..caac6b7 100644 (file)
--- a/modules/src/flt_arith/flt_mul.c
+++ b/modules/src/flt_arith/flt_mul.c
@@ -6,7 +6,9 @@
 /* $Header$ */
 
 #include "flt_misc.h"
-
+#if __STDC__ > 0
+void
+#endif
 flt_mul(e1,e2,e3)
        register flt_arith *e1,*e2,*e3;
 {

diff --git a/modules/src/flt_arith/flt_nrm.c b/modules/src/flt_arith/flt_nrm.c
index 3d634f0..df6d75c 100644 (file)
--- a/modules/src/flt_arith/flt_nrm.c
+++ b/modules/src/flt_arith/flt_nrm.c
@@ -6,7 +6,9 @@
 /* $Header$ */
 
 #include "flt_misc.h"
-
+#if __STDC__ > 0
+void
+#endif
 flt_nrm(e)
        register flt_arith *e;
 {

diff --git a/modules/src/flt_arith/flt_str2fl.c b/modules/src/flt_arith/flt_str2fl.c
index 6612639..f9936ba 100644 (file)
--- a/modules/src/flt_arith/flt_str2fl.c
+++ b/modules/src/flt_arith/flt_str2fl.c
@@ -217,7 +217,9 @@ add_exponent(e, exp)
        if (!status) status = flt_status;
        flt_status = status;
 }
-
+#if __STDC__ > 0
+void
+#endif
 flt_str2flt(s, e)
        register char           *s;
        register flt_arith      *e;
@@ -418,7 +420,9 @@ flt_ecvt(e, decpt, sign)
        }
        return buf;
 }
-
+#if __STDC__ > 0
+void
+#endif
 flt_flt2str(e, buf, bufsize)
        flt_arith *e;
        char *buf;

diff --git a/modules/src/flt_arith/flt_umin.c b/modules/src/flt_arith/flt_umin.c
index 1d16bbf..182eb7f 100644 (file)
--- a/modules/src/flt_arith/flt_umin.c
+++ b/modules/src/flt_arith/flt_umin.c
@@ -6,7 +6,9 @@
 /* $Header$ */
 
 #include "flt_misc.h"
-
+#if __STDC__ > 0
+void
+#endif
 flt_umin(e)
        flt_arith *e;
 {

diff --git a/modules/src/flt_arith/split.c b/modules/src/flt_arith/split.c
index 6c619ed..d5c0344 100644 (file)
--- a/modules/src/flt_arith/split.c
+++ b/modules/src/flt_arith/split.c
@@ -1,7 +1,9 @@
 /* $Header$ */
 
 #include "flt_misc.h"
-
+#if __STDC__ > 0
+void
+#endif
 flt_split(e, p)
        register flt_arith *e;
        register unsigned short *p;