[ruby-dev:3835] realloc in rb_str_cat() (Re: pack("M")/unpack("M"))

前田です。

In message "[ruby-dev:3811] Re: pack("M")/unpack("M")"
Yukihiro Matsumoto <[e-mail]> wrote:

> |ところで、stc_catで毎回reallocされることをはじめて知ったのですが、
> |Arrayみたいにlenとcapaを別にして管理するというのは無理ですか？
> 
> 以下のふたつの理由で当面考えていません．
> 
>   * struct RString にスキマが残っていない

半ば予想していた答でした(^^;

>   * 「普通の」reallocならcapaの管理を行う

これはどういう仕組みなのでしょう。

> が，なにか別のアイディアが見付かればいつでも検討したいと思っ
> てます．

ptrをsizeof(int)分余計にallocateして、

#define STR_CAPA(s) *((int *) RSTRING(s)->ptr + RSTRING(s)->len + 1)

とかいうのは苦しいですよね(^^;

他にはこんなのも考えました。
# が、malloc_usable_sizeはどこでも使えるものではなさそうな気が...。

--- string.c~	Wed Dec 16 16:30:33 1998
+++ string.c	Wed Dec 16 23:37:39 1998
@@ -417,9 +417,18 @@
     char *ptr;
     int len;
 {
+    int min, capa;
+
     if (len > 0) {
 	rb_str_modify(str);
-	REALLOC_N(RSTRING(str)->ptr, char, RSTRING(str)->len + len + 1);
+	min = RSTRING(str)->len + len + 1;
+	capa = malloc_usable_size(RSTRING(str)->ptr);
+	if (capa < min) {
+	    if (capa * 2 > min)
+		REALLOC_N(RSTRING(str)->ptr, char, capa * 2);
+	    else
+		REALLOC_N(RSTRING(str)->ptr, char, min);
+	}
 	if (ptr)
 	    memcpy(RSTRING(str)->ptr + RSTRING(str)->len, ptr, len);
 	RSTRING(str)->len += len;

-- 
前田 修吾 (mailto:[e-mail])