Mercurial > hg > xemacs-beta
diff src/floatfns.c @ 2286:04bc9d2f42c7
[xemacs-hg @ 2004-09-20 19:18:55 by james]
Mark all unused parameters as unused. Also eliminate some unneeded local
variables.
| author | james |
|---|---|
| date | Mon, 20 Sep 2004 19:20:08 +0000 |
| parents | f557693c61de |
| children | b5e1d4f6b66f 3742ea8250b5 |
line wrap: on
line diff
--- a/src/floatfns.c Mon Sep 20 19:11:29 2004 +0000 +++ b/src/floatfns.c Mon Sep 20 19:20:08 2004 +0000 @@ -122,7 +122,14 @@ error using the given arguments. If bignums are available, range errors are never signaled. */ static Lisp_Object -float_to_int (double x, const char *name, Lisp_Object num, Lisp_Object num2) +float_to_int (double x, +#ifdef HAVE_BIGNUM + const char *UNUSED (name), Lisp_Object UNUSED (num), + Lisp_Object UNUSED (num2) +#else + const char *name, Lisp_Object num, Lisp_Object num2 +#endif + ) { #ifdef HAVE_BIGNUM bignum_set_double (scratch_bignum, x); @@ -166,19 +173,19 @@ static Lisp_Object -mark_float (Lisp_Object obj) +mark_float (Lisp_Object UNUSED (obj)) { return Qnil; } static int -float_equal (Lisp_Object obj1, Lisp_Object obj2, int depth) +float_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth)) { return (extract_float (obj1) == extract_float (obj2)); } static Hashcode -float_hash (Lisp_Object obj, int depth) +float_hash (Lisp_Object obj, int UNUSED (depth)) { /* mod the value down to 32-bit range */ /* #### change for 64-bit machines */