Build Fix -- compatibility issue with newer autoconf

[sxemacs] / src / ent / ent-gaussian.c

diff --git a/src/ent/ent-gaussian.c b/src/ent/ent-gaussian.c
index c0ccfcd..0a038ca 100644 (file)
--- a/src/ent/ent-gaussian.c
+++ b/src/ent/ent-gaussian.c
@@ -26,6 +26,11 @@ along with this program.  If not, see <http://www.gnu.org/licenses/>. */
 #include "lisp.h"
 #include "sysproc.h"    /* For qxe_getpid */
 
+#include "ent.h"
+#include "ent-float.h"
+#ifdef HAVE_MPFR
+#include "ent-mpfr.h"
+#endif
 #include "ent-gaussian.h"
 #ifdef HAVE_MPC
 #include "ent-mpc.h"
@@ -36,7 +41,7 @@ static ase_nullary_operation_f Qent_gaussian_zero, Qent_gaussian_one;
 
 \f
 static void
-bigg_print(Lisp_Object obj, Lisp_Object printcharfun, int UNUSED(escapeflag))
+bigg_print(Lisp_Object obj, Lisp_Object printcharfun, int SXE_UNUSED(escapeflag))
 {
        Bufbyte *fstr = bigg_to_string(XBIGG_DATA(obj), 10);
        write_c_string((char*)fstr, printcharfun);
@@ -46,42 +51,30 @@ bigg_print(Lisp_Object obj, Lisp_Object printcharfun, int UNUSED(escapeflag))
 }
 
 static int
-bigg_equal(Lisp_Object obj1, Lisp_Object obj2, int depth)
+bigg_equal(Lisp_Object obj1, Lisp_Object obj2, int SXE_UNUSED(depth))
 {
        return bigg_eql(XBIGG_DATA(obj1), XBIGG_DATA(obj2));
-
-       /* less warnings */
-       if (depth);
 }
 
 static unsigned long
-bigg_hash(Lisp_Object obj, int depth)
+bigg_hash(Lisp_Object obj, int SXE_UNUSED(depth))
 {
        return bigg_hashcode(XBIGG_DATA(obj));
-
-       /* less warnings */
-       if (depth);
 }
 
 static Lisp_Object
-bigg_mark(Lisp_Object obj)
+bigg_mark(Lisp_Object SXE_UNUSED(obj))
 {
        return Qnil;
-
-       /* less warnings */
-       if (obj == Qnil);
 }
 
 static void
-bigg_finalise(void *header, int for_disksave)
+bigg_finalise(void *SXE_UNUSED(header), int for_disksave)
 {
        if (for_disksave)
                signal_simple_error
                        ("Can't dump an emacs containing "
                         "pseudo-gaussian objects",Qt);
-
-       /* less warnings */
-       if (header);
 }
 
 static const struct lrecord_description bigg_description[] = {
@@ -135,7 +128,7 @@ Bufbyte *bigg_to_string(bigg g, int base)
        Bufbyte *intg_str;
        Bufbyte *imag_str;
        int intg_len, imag_len;
-        int sign, neg;
+       int sign, neg;
 
        intg_str = (Bufbyte*)bigz_to_string(bigg_re(g), base);
        imag_str = (Bufbyte*)bigz_to_string(bigg_im(g), base);
@@ -205,7 +198,7 @@ void bigg_set_bigz_bigz(bigg g, bigz z1, bigz z2)
 
 /* void bigc_set_bigg(bigc c, bigg g)
  * {
- *     bigc_set_bigfr_bigfr(bigg_re(g), z1);
+ *     bigc_set_bigfr_bigfr(bigg_re(g), z1);
  * }
  */
 
@@ -454,7 +447,7 @@ Lisp_Object read_bigg_string(char *cp)
                /* jump over a leading minus */
                cp++;
        }
-               
+
        while ((*cp >= '0' && *cp <= '9'))
                cp++;
 
@@ -852,7 +845,7 @@ ent_valne_BIGG_T(Lisp_Object l, Lisp_Object r)
 
 \f
 static Lisp_Object
-ent_lift_all_BIGG_T(Lisp_Object number, ent_lift_args_t UNUSED(la))
+ent_lift_all_BIGG_T(Lisp_Object number, ent_lift_args_t SXE_UNUSED(la))
 {
        number = ent_lift(number, BIGZ_T, NULL);
        bigg_set_bigz(ent_scratch_bigg, XBIGZ_DATA(number));
@@ -862,7 +855,7 @@ ent_lift_all_BIGG_T(Lisp_Object number, ent_lift_args_t UNUSED(la))
 #if defined HAVE_MPC && defined WITH_MPC ||    \
        defined HAVE_PSEUC && defined WITH_PSEUC
 static Lisp_Object
-ent_lift_BIGC_T_BIGG_T(Lisp_Object number, ent_lift_args_t UNUSED(la))
+ent_lift_BIGC_T_BIGG_T(Lisp_Object number, ent_lift_args_t SXE_UNUSED(la))
 {
        Lisp_Object re, im;