# HG changeset patch
# User Ben Wing <ben@xemacs.org>
# Date 1268798974 18000
# Node ID 641d0cdd1d0048c4eb66ff6d9af67dbafa9913c3
# Parent  b0ab9aa48977c16339c83f3907f19f906febdd57
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.

diff -r b0ab9aa48977 -r 641d0cdd1d00 src/ChangeLog
--- a/src/ChangeLog	Mon Mar 15 16:38:03 2010 -0500
+++ b/src/ChangeLog	Tue Mar 16 23:09:34 2010 -0500
@@ -1,3 +1,9 @@
+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.
+	
 2010-03-15  Ben Wing  <ben@xemacs.org>
 
 	* extents.c (Fprevious_single_property_change):
diff -r b0ab9aa48977 -r 641d0cdd1d00 src/alloc.c
--- 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