Mercurial > hg > xemacs-beta
comparison src/alloc.c @ 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 | d674024a8674 |
| children | 1043bbfa24cf |
comparison
equal
deleted
inserted
replaced
| 3303:619edf713d55 | 3304:73051095a712 |
|---|---|
| 2498 /* The above allocations set the UID field, which overlaps with the | 2498 /* The above allocations set the UID field, which overlaps with the |
| 2499 ascii-length field, to some non-zero value. We need to zero it. */ | 2499 ascii-length field, to some non-zero value. We need to zero it. */ |
| 2500 XSET_STRING_ASCII_BEGIN (wrap_string (s), 0); | 2500 XSET_STRING_ASCII_BEGIN (wrap_string (s), 0); |
| 2501 | 2501 |
| 2502 #ifdef NEW_GC | 2502 #ifdef NEW_GC |
| 2503 set_lispstringp_direct (s); | |
| 2503 STRING_DATA_OBJECT (s) = | 2504 STRING_DATA_OBJECT (s) = |
| 2504 wrap_string_direct_data (alloc_lrecord (fullsize, | 2505 wrap_string_direct_data (alloc_lrecord (fullsize, |
| 2505 &lrecord_string_direct_data)); | 2506 &lrecord_string_direct_data)); |
| 2506 #else /* not NEW_GC */ | 2507 #else /* not NEW_GC */ |
| 2507 set_lispstringp_data (s, BIG_STRING_FULLSIZE_P (fullsize) | 2508 set_lispstringp_data (s, BIG_STRING_FULLSIZE_P (fullsize) |