From 7f66cf7d66f71d729f9ad1b129d9d817c075b979 Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby.or.jp>
Date: Fri, 17 Jul 2020 10:51:01 +0900
Subject: Fix `memsize_of` for string objects; #5032

---
 mrbgems/mruby-objectspace/src/mruby_objectspace.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'mrbgems/mruby-objectspace/src/mruby_objectspace.c')

diff --git a/mrbgems/mruby-objectspace/src/mruby_objectspace.c b/mrbgems/mruby-objectspace/src/mruby_objectspace.c
index 7892c6a1b..a9469203f 100644
--- a/mrbgems/mruby-objectspace/src/mruby_objectspace.c
+++ b/mrbgems/mruby-objectspace/src/mruby_objectspace.c
@@ -250,7 +250,10 @@ os_memsize_of_object(mrb_state* mrb, mrb_value obj, mrb_value recurse, mrb_int*
 
   switch(obj.tt) {
     case MRB_TT_STRING:
-      (*t) += RSTRING_LEN(obj);
+      (*t) += mrb_objspace_page_slot_size();
+      if (!RSTR_EMBED_P(RSTRING(obj)) && !RSTR_SHARED_P(RSTRING(obj))) {
+        (*t) += RSTRING_CAPA(obj);
+      }
       break;
     case MRB_TT_CLASS:
     case MRB_TT_MODULE:
-- 
cgit v1.2.3