# HG changeset patch
# User crestani
# Date 1143383619 0
# Node ID 73051095a712dd3cd4a7b7f6b5d67c3da0358232
# Parent  619edf713d55b66eb38b4360aa04954fefca1bde
[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.

diff -r 619edf713d55 -r 73051095a712 src/ChangeLog
--- 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):
diff -r 619edf713d55 -r 73051095a712 src/alloc.c
--- 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));
diff -r 619edf713d55 -r 73051095a712 src/lisp.h
--- 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)