[svn:parrot] r46400 - trunk/src/string

[bacek at svn.parrot.org]

Author: bacek
Date: Sat May  8 07:59:11 2010
New Revision: 46400
URL: https://trac.parrot.org/parrot/changeset/46400

Log:
Don't try to set shared flag for string without allocated buffer. fperrad++

Modified:
   trunk/src/string/api.c

Modified: trunk/src/string/api.c
==============================================================================
--- trunk/src/string/api.c	Sat May  8 02:08:40 2010	(r46399)
+++ trunk/src/string/api.c	Sat May  8 07:59:11 2010	(r46400)
@@ -386,7 +386,7 @@
     STRUCT_COPY(d, s);
 
     /* Now check that buffer allocated from pool and affected by compacting */
-    if (is_movable) {
+    if (is_movable && Buffer_bufstart(s)) {
         /* If so, mark it as shared */
         INTVAL * const buffer_flags = Buffer_bufrefcountptr(d);
         *buffer_flags |= Buffer_shared_FLAG;