Mercurial > hg > xemacs-beta

diff src/opaque.c @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents 8eaf7971accc
children 557eaa0339bf
line wrap: on
line diff
--- a/src/opaque.c	Mon Aug 13 09:54:24 2007 +0200
+++ b/src/opaque.c	Mon Aug 13 09:55:28 2007 +0200
@@ -107,8 +107,8 @@
 Lisp_Object
 make_opaque (int size, CONST void *data)
 {
-  struct Lisp_Opaque *p = alloc_lcrecord (sizeof (*p) + size - sizeof (int),
-					  lrecord_opaque);
+  struct Lisp_Opaque *p = (struct Lisp_Opaque *)
+    alloc_lcrecord (sizeof (*p) + size - sizeof (int), lrecord_opaque);
   Lisp_Object val;
 
   p->markfun = 0;
@@ -140,9 +140,9 @@
 		  Lisp_Object (*markfun) (Lisp_Object obj,
 					  void (*markobj) (Lisp_Object)))
 {
-  struct Lisp_Opaque_List *p = alloc_lcrecord (sizeof (*p),
-					       lrecord_opaque_list);
   Lisp_Object val = Qnil;
+  struct Lisp_Opaque_List *p =
+    alloc_lcrecord_type (struct Lisp_Opaque_List, lrecord_opaque_list);
 
   p->markfun = markfun;
   p->size = size;