User: crestani Date: 06/03/26 16:33:41 Modified: xemacs/src ChangeLog alloc.c lisp.h Log: 2006-03-26 Marcus Crestani <crestani(a)xemacs.org&gt; * alloc.c (make_uninit_string): Use set_lispstringp_direct. * lisp.h (set_lispstringp_direct): New. Revision Changes Path 1.933 +5 -0 XEmacs/xemacs/src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v retrieving revision 1.932 retrieving revision 1.933 diff -u -p -r1.932 -r1.933 --- ChangeLog 2006/03/26 14:05:29 1.932 +++ ChangeLog 2006/03/26 14:33:37 1.933 ＠＠ -1,3 +1,8 ＠＠ +2006-03-26 Marcus Crestani <crestani(a)xemacs.org&gt; + + * alloc.c (make_uninit_string): Use set_lispstringp_direct. + * lisp.h (set_lispstringp_direct): New. + 2006-03-21 Marcus Crestani <crestani(a)xemacs.org&gt; * mc-alloc.c (visit_all_used_page_headers): 1.124 +1 -0 XEmacs/xemacs/src/alloc.c Index: alloc.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/alloc.c,v retrieving revision 1.123 retrieving revision 1.124 diff -u -p -r1.123 -r1.124 --- alloc.c 2006/02/27 16:29:21 1.123 +++ alloc.c 2006/03/26 14:33:38 1.124 ＠＠ -2500,6 +2500,7 ＠＠ make_uninit_string (Bytecount length) 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)); 1.140 +1 -0 XEmacs/xemacs/src/lisp.h Index: lisp.h =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/src/lisp.h,v retrieving revision 1.139 retrieving revision 1.140 diff -u -p -r1.139 -r1.140 --- lisp.h 2006/03/20 21:20:29 1.139 +++ lisp.h 2006/03/26 14:33:39 1.140 ＠＠ -2475,6 +2475,7 ＠＠ DECLARE_MODULE_API_LRECORD (string, Lisp /* 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)