Mercurial > hg > xemacs-beta

diff src/opaque.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 e0ca0b9b1a35
children de9952d2ed18
line wrap: on
line diff
--- a/src/opaque.c	Mon Sep 20 19:11:29 2004 +0000
+++ b/src/opaque.c	Mon Sep 20 19:20:08 2004 +0000
@@ -42,7 +42,8 @@
 
 /* Should never, ever be called. (except by an external debugger) */
 static void
-print_opaque (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
+print_opaque (Lisp_Object obj, Lisp_Object printcharfun,
+	      int UNUSED (escapeflag))
 {
   const Lisp_Opaque *p = XOPAQUE (obj);
 
@@ -90,7 +91,7 @@
 /* This will not work correctly for opaques with subobjects! */
 
 static int
-equal_opaque (Lisp_Object obj1, Lisp_Object obj2, int depth)
+equal_opaque (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth))
 {
   Bytecount size;
   return ((size = XOPAQUE_SIZE (obj1)) == XOPAQUE_SIZE (obj2) &&
@@ -100,7 +101,7 @@
 /* This will not work correctly for opaques with subobjects! */
 
 static unsigned long
-hash_opaque (Lisp_Object obj, int depth)
+hash_opaque (Lisp_Object obj, int UNUSED (depth))
 {
   if (XOPAQUE_SIZE (obj) == sizeof (unsigned long))
     return *((unsigned long *) XOPAQUE_DATA (obj));
@@ -123,7 +124,8 @@
 
 /* Should never, ever be called. (except by an external debugger) */
 static void
-print_opaque_ptr (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
+print_opaque_ptr (Lisp_Object obj, Lisp_Object printcharfun,
+		  int UNUSED (escapeflag))
 {
   const Lisp_Opaque_Ptr *p = XOPAQUE_PTR (obj);
 
@@ -134,13 +136,13 @@
 }
 
 static int
-equal_opaque_ptr (Lisp_Object obj1, Lisp_Object obj2, int depth)
+equal_opaque_ptr (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth))
 {
   return (XOPAQUE_PTR (obj1)->ptr == XOPAQUE_PTR (obj2)->ptr);
 }
 
 static unsigned long
-hash_opaque_ptr (Lisp_Object obj, int depth)
+hash_opaque_ptr (Lisp_Object obj, int UNUSED (depth))
 {
   return (unsigned long) XOPAQUE_PTR (obj)->ptr;
 }