X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fopaque.c;h=70d29b931c43366659db6515ed7baa9329d9861b;hb=4082f470d7c6075a5c04c1bdf6e9e3f27c9700d5;hp=c93805a7f23a8c380ca5a855a8c2a147d792014c;hpb=33c8db8e2477d62fd8734f65475f2ed516167532;p=chise%2Fxemacs-chise.git-

diff --git a/src/opaque.c b/src/opaque.c
index c93805a..70d29b9 100644
--- a/src/opaque.c
+++ b/src/opaque.c
@@ -42,7 +42,6 @@ Boston, MA 02111-1307, USA.  */
 #include <config.h>
 #include "lisp.h"
 #include "opaque.h"
-#include <stddef.h>
 
 Lisp_Object Qopaquep;
 
@@ -115,7 +114,7 @@ Lisp_Object
 make_opaque (size_t size, CONST void *data)
 {
   Lisp_Opaque *p = (Lisp_Opaque *)
-    alloc_lcrecord (offsetof (Lisp_Opaque, data) + size, lrecord_opaque);
+    alloc_lcrecord (offsetof (Lisp_Opaque, data) + size, &lrecord_opaque);
   p->markfun = 0;
   p->size_or_chain = make_int (size);
 
@@ -176,7 +175,7 @@ hash_opaque (Lisp_Object obj, int depth)
 
 DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("opaque", opaque,
 					mark_opaque, print_opaque, 0,
-					equal_opaque, hash_opaque,
+					equal_opaque, hash_opaque, 0,
 					sizeof_opaque, Lisp_Opaque);
 
 static Lisp_Object
@@ -195,7 +194,7 @@ make_opaque_list (size_t size,
 {
   Lisp_Object val;
   Lisp_Opaque_List *p =
-    alloc_lcrecord_type (Lisp_Opaque_List, lrecord_opaque_list);
+    alloc_lcrecord_type (Lisp_Opaque_List, &lrecord_opaque_list);
 
   p->markfun = markfun;
   p->size = size;
@@ -206,7 +205,7 @@ make_opaque_list (size_t size,
 
 DEFINE_LRECORD_IMPLEMENTATION ("opaque-list", opaque_list,
 			       mark_opaque_list, internal_object_printer,
-			       0, 0, 0, Lisp_Opaque_List);
+			       0, 0, 0, 0, Lisp_Opaque_List);
 
 Lisp_Object
 allocate_managed_opaque (Lisp_Object opaque_list, CONST void *data)