X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=src%2Fent%2Fent-gaussian.c;h=0a038cae92537c3628931dfc03fca0dec76045dd;hb=HEAD;hp=61fd433dd6182df3914824207d46eb7bed968082;hpb=51b9dd462d23dd8dcc7eeebfc434842c31813314;p=sxemacs

diff --git a/src/ent/ent-gaussian.c b/src/ent/ent-gaussian.c
index 61fd433..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[] = {