\f
static void
-bigc_print(Lisp_Object obj, Lisp_Object printcharfun, int UNUSED(escapeflag))
+bigc_print(Lisp_Object obj, Lisp_Object printcharfun, int SXE_UNUSED(escapeflag))
{
Bufbyte *fstr = bigc_to_string(XBIGC_DATA(obj), 10);
write_c_string((char*)fstr, printcharfun);
}
static int
-bigc_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED(depth))
+bigc_equal (Lisp_Object obj1, Lisp_Object obj2, int SXE_UNUSED(depth))
{
return bigc_eq(XBIGC_DATA(obj1), XBIGC_DATA(obj2));
}
static unsigned long
-bigc_hash (Lisp_Object obj, int UNUSED(depth))
+bigc_hash (Lisp_Object obj, int SXE_UNUSED(depth))
{
return bigc_hashcode(XBIGC_DATA(obj));
}
static Lisp_Object
-bigc_mark (Lisp_Object UNUSED(obj))
+bigc_mark (Lisp_Object SXE_UNUSED(obj))
{
return Qnil;
}
static void
-bigc_finalise (void *UNUSED(header), int for_disksave)
+bigc_finalise (void *SXE_UNUSED(header), int for_disksave)
{
if (for_disksave)
signal_simple_error
/* void bigc_set_bigc(bigc c, bigc c)
* {
- * bigc_set_bigfr_bigfr(bigc_re(c), z1);
+ * bigc_set_bigfr_bigfr(bigc_re(c), z1);
* }
*/
bigc_abs(tmpnorm, c);
bigfr_add(bigc_re(res), tmpnorm, bigc_re(c));
bigfr_sub(bigc_im(res), tmpnorm, bigc_re(c));
-
+
/* compute 1/2 and divide the above by it */
bigfr_set_long(tmphalf, 2);
bigfr_div(bigc_re(res), bigc_re(res), tmphalf);