:art: Few fixes

diff --git a/src/lib/import.c b/src/lib/import.c
index 039f75e0306a8c56231b2b0d20c2c2e0837e5d9f..ce6068c7ac6d49d6e6ffbabf65da3cbae0f13d18 100644 (file)
--- a/src/lib/import.c
+++ b/src/lib/import.c
@@ -267,9 +267,7 @@ ANN m_int gwi_class_ext(const Gwi gwi, Type_Decl* td) {
 ANN m_int gwi_class_end(const Gwi gwi) {
   if(!gwi->gwion->env->class_def)
     GWI_ERR_B("import: too many class_end called.")
-  const Nspc nspc = gwi->gwion->env->class_def->nspc;
-  if(nspc->info->class_data_size && !nspc->info->class_data)
-    nspc->info->class_data = (m_bit*)xcalloc(1, nspc->info->class_data_size);
+  nspc_allocdata(gwi->gwion->env->class_def->nspc);
   env_pop(gwi->gwion->env, 0);
   return GW_OK;
 }

diff --git a/src/vm/vm_name.c b/src/vm/vm_name.c
index 851f1817e27bdda4e0d78ed3dedad871c61384aa..458fe63df27b3a3abc6d454fec5667c18b697c8c 100644 (file)
--- a/src/vm/vm_name.c
+++ b/src/vm/vm_name.c
@@ -6,7 +6,7 @@
 
 m_str code_name_set(const m_str name, const m_str file) {
   const size_t len = strlen(name) + strlen(file) + 2;
-  const m_str str = (const m_str)xcalloc(1, len);
+  m_str str = (const m_str)xcalloc(1, len);
   sprintf(str, "%s$%s", name, file);
   return str;
 }

diff --git a/src/vm/vm_shred.c b/src/vm/vm_shred.c
index aa35302f478dac01944879e40efb8830df00b4ee..e4edcebd48dfb3e10aedb64910fb731f813ad286 100644 (file)
--- a/src/vm/vm_shred.c
+++ b/src/vm/vm_shred.c
@@ -27,7 +27,7 @@ static inline void free_shredinfo(MemPool mp, struct ShredInfo_ *info) {
     const Vector v = info->args;
     LOOP_OPTIM
     for(m_uint i = vector_size(v) + 1; --i;)
-      free((void*)vector_at(v, i - 1));
+      xfree((void*)vector_at(v, i - 1));
     free_vector(mp, v);
   }
   mp_free(mp, ShredInfo, info); // ??? info->p