From e429f1c5844a6efb3c013416e007e77775a16fa3 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 22 Apr 1998 08:57:42 +0000
Subject: 1.1b9_14

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@182 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 string.c | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

(limited to 'string.c')

diff --git a/string.c b/string.c
index 19321c09e5..45c01c6899 100644
--- a/string.c
+++ b/string.c
@@ -28,6 +28,7 @@ VALUE cString;
 
 #define STR_FREEZE FL_USER1
 #define STR_TAINT  FL_USER2
+#define STR_NO_ORIG FL_USER3
 void reg_prepare_re _((VALUE));
 void kcode_reset_option _((void));
 
@@ -84,12 +85,12 @@ VALUE
 str_new4(orig)
     VALUE orig;
 {
-    if (RSTRING(orig)->orig) {
-	return str_freeze(RSTRING(orig)->orig);
-    }
-    else if (FL_TEST(orig, STR_FREEZE)) {
+    if (FL_TEST(orig, STR_FREEZE)) {
 	return orig;
     }
+    else if (RSTRING(orig)->orig && !FL_TEST(orig, STR_NO_ORIG)) {
+	return str_freeze(RSTRING(orig)->orig);
+    }
     else {
 	NEWOBJ(str, struct RString);
 	OBJSETUP(str, cString, T_STRING);
@@ -110,7 +111,7 @@ str_assign(str, str2)
     VALUE str, str2;
 {
     if (NIL_P(str2) || str == str2) return;
-    if (!RSTRING(str)->orig && RSTRING(str)->ptr)
+    if ((!RSTRING(str)->orig||FL_TEST(str, STR_NO_ORIG)) && RSTRING(str)->ptr)
 	free(RSTRING(str)->ptr);
     RSTRING(str)->ptr = RSTRING(str2)->ptr;
     RSTRING(str)->len = RSTRING(str2)->len;
@@ -143,7 +144,7 @@ str_clone(orig)
 {
     VALUE str;
 
-    if (RSTRING(orig)->orig)
+    if (RSTRING(orig)->orig && !FL_TEST(orig, STR_NO_ORIG))
 	str = str_new3(RSTRING(orig)->orig);
     else
 	str = str_new(RSTRING(orig)->ptr, RSTRING(orig)->len);
@@ -336,7 +337,7 @@ str_modify(str)
     }
     if (FL_TEST(str, STR_FREEZE))
 	TypeError("can't modify frozen string");
-    if (!RSTRING(str)->orig) return;
+    if (!RSTRING(str)->orig || FL_TEST(str, STR_NO_ORIG)) return;
     ptr = RSTRING(str)->ptr;
     RSTRING(str)->ptr = ALLOC_N(char, RSTRING(str)->len+1);
     if (RSTRING(str)->ptr) {
@@ -367,7 +368,7 @@ VALUE
 str_dup_frozen(str)
     VALUE str;
 {
-    if (RSTRING(str)->orig) {
+    if (RSTRING(str)->orig && !FL_TEST(str, STR_NO_ORIG)) {
 	return str_freeze(RSTRING(str)->orig);
     }
     if (FL_TEST(str, STR_FREEZE))
-- 
cgit v1.2.3