diff src/alloc.c @ 5151:641d0cdd1d00

fix compilation problems identified by Robert Delius Royar -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-03-16 Ben Wing <ben@xemacs.org> * alloc.c (make_lcrecord_list): * alloc.c (alloc_managed_lcrecord): Fix compilation problems identified by Robert Delius Royar.
author Ben Wing <ben@xemacs.org>
date Tue, 16 Mar 2010 23:09:34 -0500
parents 88bd4f3ef8e4
children cb303ff63e76
line wrap: on
line diff
--- a/src/alloc.c	Mon Mar 15 16:38:03 2010 -0500
+++ b/src/alloc.c	Tue Mar 16 23:09:34 2010 -0500
@@ -3200,8 +3200,8 @@
 {
   /* Don't use alloc_automanaged_lcrecord() avoid infinite recursion
      allocating this. */
-  struct lcrecord_list *p = (struct lcrecord_list *)
-    old_alloc_lcrecord (&lrecord_lcrecord_list);
+  struct lcrecord_list *p =
+    XLCRECORD_LIST (old_alloc_lcrecord (&lrecord_lcrecord_list));
 
   p->implementation = implementation;
   p->size = size;
@@ -3247,8 +3247,7 @@
       return val;
     }
   else
-    return wrap_pointer_1 (old_alloc_sized_lcrecord (list->size,
-						     list->implementation));
+    return old_alloc_sized_lcrecord (list->size, list->implementation);
 }
 
 /* "Free" a Lisp object LCRECORD by placing it on its associated free list