Mercurial > hg > xemacs-beta
changeset 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 | b0ab9aa48977 |
| children | 45753d9a0dc4 |
| files | src/ChangeLog src/alloc.c |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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