fix some valgrind signaled memory leaks

Author: CHiPs44

src/ps_array.c

@@ -36,7 +36,6 @@ ps_array_data *ps_array_alloc(const ps_symbol *array_type)
     return array_data;
 }
 
-// TODO do not forget to call this when necessary
 ps_array_data *ps_array_free(ps_array_data *array_data)
 {
     if (ps_array_debug)

src/ps_symbol_table.c

@@ -128,7 +128,8 @@ ps_symbol_table_error ps_symbol_table_grow(ps_symbol_table *table)
         error = PS_SYMBOL_TABLE_ERROR_INVALID;
         goto cleanup;
     }
-    ps_symbol_table_log("*** GROW from %u to %u ***\n", old_size, table->size);
+    ps_memory_free(PS_MEMORY_SYMBOL, old_symbols);
+    ps_symbol_table_log("*** GROW from %u to %u ***\n", old_size, new_size);
     return PS_SYMBOL_TABLE_ERROR_NONE;
 cleanup:
     if (new_symbols != NULL)

src/ps_value.c

@@ -10,6 +10,7 @@
 #include <stdio.h>
 #include <string.h>
 
+#include "ps_array.h"
 #include "ps_error.h"
 #include "ps_memory.h"
 #include "ps_string.h"
@@ -33,10 +34,23 @@ ps_value *ps_value_free(ps_value *value)
 {
     if (value == NULL || !value->allocated)
         return NULL;
-    if (value->type != NULL && value->type->value != NULL && value->type->value->data.t != NULL &&
-        value->type->value->data.t->base == PS_TYPE_EXECUTABLE)
+    ps_value_type type = ps_value_get_type(value);
+    switch(type)
     {
-        ps_executable_free(value->data.x);
+        // case PS_TYPE_STRING:
+        //     ps_string_free(value->data.s);
+        //     break;
+        case PS_TYPE_ARRAY:
+            ps_array_free(value->data.a);
+            break;
+        case PS_TYPE_EXECUTABLE:
+            ps_executable_free(value->data.x);
+            break;
+        case PS_TYPE_DEFINITION:
+            ps_type_definition_free(value->data.t);
+            break;
+        default:
+            break;
     }
     ps_memory_free(PS_MEMORY_VALUE, value);
     return NULL;
@@ -118,21 +132,13 @@ bool ps_value_is_array(const ps_value *value)
 
 ps_value_type ps_value_get_type(const ps_value *value)
 {
-    // if (value == NULL)
-    //     fprintf(stderr, "ps_value_get_type: NULL!\n");
-    // else
-    //     ps_value_debug(stderr, "ps_value_get_type: ", value);
     if (value == NULL || value->type == NULL || value->type->value == NULL || value->type->value->data.t == NULL)
         return PS_TYPE_NONE;
     return value->type->value->data.t->type;
 }
 
 ps_value_type ps_value_get_base(const ps_value *value)
 {
-    // if (value == NULL)
-    //     fprintf(stderr, "ps_value_get_base: NULL!\n");
-    // else
-    //     ps_value_debug(stderr, "ps_value_get_base: ", value);
     if (value == NULL || value->type == NULL || value->type->value == NULL || value->type->value->data.t == NULL)
         return PS_TYPE_NONE;
     return value->type->value->data.t->base;

src/ps_visit_type.c

@@ -63,7 +63,7 @@ static bool ps_type_definition_register(ps_interpreter *interpreter, ps_interpre
         ps_symbol_free(*symbol);
         ps_value_free(value);
         ps_type_definition_free(type_def);
-        RETURN_ERROR(PS_ERROR_SYMBOL_NOT_ADDED)
+        TRACE_ERROR("REGISTER")
     }
 
     VISIT_END("OK");