Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 3304:73051095a712

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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 168191f9515f
children 2f13ae1532db
comparison
equal deleted inserted replaced
3303:619edf713d55 3304:73051095a712
2473 fields -- are here. Everything else is in text.h, since they depend on 2473 fields -- are here. Everything else is in text.h, since they depend on
2474 stuff there. */ 2474 stuff there. */
2475 2475
2476 /* Operations on Lisp_String *'s; only ones left */ 2476 /* Operations on Lisp_String *'s; only ones left */
2477 #ifdef NEW_GC 2477 #ifdef NEW_GC
2478 #define set_lispstringp_direct(s) ((s)->indirect = 0)
2478 #define set_lispstringp_indirect(s) ((s)->indirect = 1) 2479 #define set_lispstringp_indirect(s) ((s)->indirect = 1)
2479 #define set_lispstringp_length(s, len) XSET_STRING_DATA_SIZE (s, len) 2480 #define set_lispstringp_length(s, len) XSET_STRING_DATA_SIZE (s, len)
2480 #define set_lispstringp_data(s, ptr) XSET_STRING_DATA_DATA (s, ptr) 2481 #define set_lispstringp_data(s, ptr) XSET_STRING_DATA_DATA (s, ptr)
2481 #else /* not NEW_GC */ 2482 #else /* not NEW_GC */
2482 #define set_lispstringp_length(s, len) ((void) ((s)->size_ = (len))) 2483 #define set_lispstringp_length(s, len) ((void) ((s)->size_ = (len)))