:art: Poolize VM_Shred->name

diff --git a/src/vm/vm_shred.c b/src/vm/vm_shred.c
index 02e4fc760387fcc9fa4207e1d28faf5b2a124fbf..c755ab8aa7a20bd733ab8ea71441a85185fb3eb6 100644 (file)
--- a/src/vm/vm_shred.c
+++ b/src/vm/vm_shred.c
@@ -17,12 +17,12 @@ struct Stack_ {
 static inline struct ShredInfo_ *new_shredinfo(MemPool p, const m_str name) {
   struct ShredInfo_ *info = mp_calloc(p, ShredInfo);
   info->mp = p;
-  info->name = strdup(name);
+  info->name = mstrdup(p, name);
   return info;
 }
 
 static inline void free_shredinfo(MemPool mp, struct ShredInfo_ *info) {
-  free(info->name);
+  free_mstr(mp, info->name);
   if(info->args) {
     const Vector v = info->args;
     LOOP_OPTIM