Mercurial > hg > xemacs-beta

comparison src/tests.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 a8d8f419b459
children 6fa9919a9a0b
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
405 EMACS_INT sum; 405 EMACS_INT sum;
406 } test_hash_tables_data; 406 } test_hash_tables_data;
407 407
408 408
409 static int 409 static int
410 test_hash_tables_mapper (Lisp_Object key, Lisp_Object value, 410 test_hash_tables_mapper (Lisp_Object UNUSED (key), Lisp_Object value,
411 void *extra_arg) 411 void *extra_arg)
412 { 412 {
413 test_hash_tables_data *p = (test_hash_tables_data *) extra_arg; 413 test_hash_tables_data *p = (test_hash_tables_data *) extra_arg;
414 p->sum += XINT (value); 414 p->sum += XINT (value);
415 return 0; 415 return 0;
426 p->sum += XINT (value); 426 p->sum += XINT (value);
427 return 0; 427 return 0;
428 } 428 }
429 429
430 static int 430 static int
431 test_hash_tables_predicate (Lisp_Object key, Lisp_Object value, 431 test_hash_tables_predicate (Lisp_Object key,
432 void *extra_arg) 432 Lisp_Object UNUSED (value),
433 void *UNUSED (extra_arg))
433 { 434 {
434 return XINT (key) < 0; 435 return XINT (key) < 0;
435 } 436 }
436 437
437 438