X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=src%2Fent%2Fent-gaussian.c;h=0a038cae92537c3628931dfc03fca0dec76045dd;hb=f44c1b5697e1bb9a20437099a28c843b90af8d15;hp=ea8e8efc3397eb8b7931ad7307e4e0cd93ab5f2c;hpb=97aeaca3773f1b6f5c7fbc5bba579fb67c0d0986;p=sxemacs

diff --git a/src/ent/ent-gaussian.c b/src/ent/ent-gaussian.c
index ea8e8ef..0a038ca 100644
--- 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"
@@ -46,42 +51,30 @@ bigg_print(Lisp_Object obj, Lisp_Object printcharfun, int SXE_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++;