#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"
}
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[] = {
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);
/* void bigc_set_bigg(bigc c, bigg g)
* {
- * bigc_set_bigfr_bigfr(bigg_re(g), z1);
+ * bigc_set_bigfr_bigfr(bigg_re(g), z1);
* }
*/
/* jump over a leading minus */
cp++;
}
-
+
while ((*cp >= '0' && *cp <= '9'))
cp++;