Mercurial > hg > xemacs-beta
changeset 3304:73051095a712
[xemacs-hg @ 2006-03-26 14:33:37 by crestani]
2006-03-26 Marcus Crestani <crestani@xemacs.org>
* alloc.c (make_uninit_string): Use set_lispstringp_direct.
* lisp.h (set_lispstringp_direct): New.
| author | crestani |
|---|---|
| date | Sun, 26 Mar 2006 14:33:39 +0000 |
| parents | 619edf713d55 |
| children | 1043bbfa24cf |
| files | src/ChangeLog src/alloc.c src/lisp.h |
| diffstat | 3 files changed, 7 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Sun Mar 26 14:05:30 2006 +0000 +++ b/src/ChangeLog Sun Mar 26 14:33:39 2006 +0000 @@ -1,3 +1,8 @@ +2006-03-26 Marcus Crestani <crestani@xemacs.org> + + * alloc.c (make_uninit_string): Use set_lispstringp_direct. + * lisp.h (set_lispstringp_direct): New. + 2006-03-21 Marcus Crestani <crestani@xemacs.org> * mc-alloc.c (visit_all_used_page_headers):
--- a/src/alloc.c Sun Mar 26 14:05:30 2006 +0000 +++ b/src/alloc.c Sun Mar 26 14:33:39 2006 +0000 @@ -2500,6 +2500,7 @@ XSET_STRING_ASCII_BEGIN (wrap_string (s), 0); #ifdef NEW_GC + set_lispstringp_direct (s); STRING_DATA_OBJECT (s) = wrap_string_direct_data (alloc_lrecord (fullsize, &lrecord_string_direct_data));
--- a/src/lisp.h Sun Mar 26 14:05:30 2006 +0000 +++ b/src/lisp.h Sun Mar 26 14:33:39 2006 +0000 @@ -2475,6 +2475,7 @@ /* Operations on Lisp_String *'s; only ones left */ #ifdef NEW_GC +#define set_lispstringp_direct(s) ((s)->indirect = 0) #define set_lispstringp_indirect(s) ((s)->indirect = 1) #define set_lispstringp_length(s, len) XSET_STRING_DATA_SIZE (s, len) #define set_lispstringp_data(s, ptr) XSET_STRING_DATA_DATA (s, ptr)