warning cleanup: remove unused parameters.

This is the second round of an effort to enable GCC's -Wextra
option. All function parameters that are unused and
are removable are removed. They are eliminated from the
function defintions, declarations, callers, and any related
function pointer variables or structure members.

* arith.c (nary_simple_op): Remove unused self parameter.
See lib.c: maxv, minv.

* chksum.c (crc32_buf, crc32_str): Remove unused self
parameter.
(crc32): Don't pass self to the above functions.

* eval.c (copy_env_handler, copy_bh_env_handler): Remove
unused parent parameter. See unwind.c.
(supplement_op_syms): Remove unused max parameter.
(me_op): Don't pass max to supplement_op_syms.

* lib.c (seq_iter_rewind): Remove unused self parameter.
(lazy_flatten_func): Remove unused env parameter.
(lazy_flatten): Use func_n1 to create non-environment-carrying
funtion out of lazy_flatten_func.
(maxv, minv): Don't pass self parameter to nary_simple_op.
(middle_pivot): Remove unused lessfun param.
(quicksort): Don't pass lessfun to middle_pivot.
(diff, isec): Don't pass self to seq_iter_rewind.

* lib.h (seq_iter_rewind, nary_simple_op): Declarations
updated.

* struct.c (get_super_slots): Remove unused self parameteer.
(make_struct_type): Don't pass self to get_super_slots.

* sysif.c (flock_unpack): Remove unused self parameter.
(fcntl_wrap): Don't pass self to flock_unpack.

* unwind.c (uw_push_cont_copy): Remove parent parameter from
function pointer parameter. See eval.c: copy_env_handler.
(call_copy_handlers): Remove parent parameter and don't
pass that argument to the indirect call via pointer
to the copy handler function.
(revive_cont, capture_cont): Don't pass 0 value to
removed parent parameter of call_copy_handlers.

* unwind.h (struct uw_cont_copy): Function pointer member copy
loses parent parameter.
(uw_push_cont_copy): Declaration updated.

1 files changed, 4 insertions, 4 deletions

diff --git a/chksum.c b/chksum.c
index b4404c31..63d2c7bd 100644
--- a/chksum.c
+++ b/chksum.c
@@ -285,7 +285,7 @@ val crc32_stream(val stream, val nbytes)
   return unum(crc);
 }
 
-static val crc32_buf(val buf, val self)
+static val crc32_buf(val buf)
 {
   ucnum len = c_unum(buf->b.len);
   mem_t *data = buf->b.data;
@@ -304,7 +304,7 @@ static val crc32_buf(val buf, val self)
   return unum(crc);
 }
 
-static val crc32_str(val str, val self)
+static val crc32_str(val str)
 {
   val s = make_byte_input_stream(str);
   return crc32_stream(s, nil);
@@ -319,9 +319,9 @@ val crc32(val obj)
   case STR:
   case LSTR:
   case LIT:
-    return crc32_str(obj, self);
+    return crc32_str(obj);
   case BUF:
-    return crc32_buf(obj, self);
+    return crc32_buf(obj);
   default:
     uw_throwf(error_s, lit("~a: cannot hash ~s, only buffer and strings"),
               self, obj, nao);