added hk_free()

Author: F3159258 Fabio de Souza Villaca Medeiros

core/json.c

@@ -143,7 +143,7 @@ static void encode_call(HkVM *vm, HkValue *args)
   char *chars = cJSON_Print(json);
   cJSON_Delete(json);
   HkString *str = hk_string_from_chars(-1, chars);
-  free(chars);
+  hk_free(chars);
   hk_vm_push_string(vm, str);
   if (!hk_vm_is_ok(vm))
     hk_string_free(str);

core/lists.c

@@ -56,7 +56,7 @@ static inline LinkedListNode *LinkedListNode_new(HkValue elem)
 static inline void LinkedListNode_free(LinkedListNode *node)
 {
   hk_value_release(node->elem);
-  free(node);
+  hk_free(node);
 }
 
 static inline LinkedList *linked_list_new(void)

extensions/bigint.c

@@ -133,7 +133,7 @@ static void to_string_call(HkVM *vm, HkValue *args)
   }
   char *chars = mpz_get_str(NULL, base, bigint->num);
   HkString *str = hk_string_from_chars(-1, chars);
-  free(chars);
+  hk_free(chars);
   hk_vm_push_string(vm, str);
 }
 
@@ -155,7 +155,7 @@ static void to_bytes_call(HkVM *vm, HkValue *args)
   size_t length;
   char *chars = mpz_export(NULL, &length, 1, 1, 0, 0, bigint->num);
   HkString *str = hk_string_from_chars((int) length, chars);
-  free(chars);
+  hk_free(chars);
   hk_vm_push_string(vm, str);
 }
 

extensions/leveldb.c

@@ -162,7 +162,7 @@ static void open_call(HkVM *vm, HkValue *args)
   {
     hk_array_inplace_add_element(arr, HK_NIL_VALUE);
     hk_array_inplace_add_element(arr, hk_string_value(hk_string_from_chars(-1, err)));
-    free(err);
+    hk_free(err);
     hk_vm_push_array(vm, arr);
     return;
   }
@@ -210,7 +210,7 @@ static void put_call(HkVM *vm, HkValue *args)
   {
     hk_array_inplace_add_element(arr, HK_FALSE_VALUE);
     hk_array_inplace_add_element(arr, hk_string_value(hk_string_from_chars(-1, err)));
-    free(err);
+    hk_free(err);
     hk_vm_push_array(vm, arr);
     return;
   }
@@ -241,13 +241,13 @@ static void get_call(HkVM *vm, HkValue *args)
   {
     hk_array_inplace_add_element(arr, HK_NIL_VALUE);
     hk_array_inplace_add_element(arr, hk_string_value(hk_string_from_chars(-1, err)));
-    free(err);
+    hk_free(err);
     hk_vm_push_array(vm, arr);
     return;
   }
   hk_array_inplace_add_element(arr, hk_string_value(hk_string_from_chars(value_length, value)));
   hk_array_inplace_add_element(arr, HK_NIL_VALUE);
-  free(value);
+  hk_free(value);
   hk_vm_push_array(vm, arr);
 }
 
@@ -272,7 +272,7 @@ static void delete_call(HkVM *vm, HkValue *args)
   {
     hk_array_inplace_add_element(arr, HK_FALSE_VALUE);
     hk_array_inplace_add_element(arr, hk_string_value(hk_string_from_chars(-1, err)));
-    free(err);
+    hk_free(err);
     hk_vm_push_array(vm, arr);
     return;
   }

include/hook/memory.h

@@ -11,9 +11,10 @@
 #ifndef HK_MEMORY_H
 #define HK_MEMORY_H
 
-#include <stdint.h>
+#include <stddef.h>
 
-void *hk_allocate(int size);
-void *hk_reallocate(void *ptr, int size);
+void *hk_allocate(size_t size);
+void *hk_reallocate(void *ptr, size_t size);
+void hk_free(void *ptr);
 
 #endif // HK_MEMORY_H

src/array.c

@@ -9,7 +9,6 @@
 //
 
 #include <hook/array.h>
-#include <stdlib.h>
 #include <hook/memory.h>
 #include <hook/utils.h>
 
@@ -108,8 +107,8 @@ void hk_array_free(HkArray *arr)
 {
   for (int i = 0; i < arr->length; ++i)
     hk_value_release(arr->elements[i]);
-  free(arr->elements);
-  free(arr);
+  hk_free(arr->elements);
+  hk_free(arr);
 }
 
 void hk_array_release(HkArray *arr)

src/callable.c

@@ -9,7 +9,6 @@
 //
 
 #include <hook/callable.h>
-#include <stdlib.h>
 #include <hook/memory.h>
 #include <hook/utils.h>
 
@@ -44,7 +43,7 @@ static inline void free_functions(HkFunction *fn)
 {
   for (int i = 0; i < fn->functionsLength; ++i)
     hk_function_release(fn->functions[i]);
-  free(fn->functions);
+  hk_free(fn->functions);
 }
 
 static inline void grow_functions(HkFunction *fn)
@@ -74,7 +73,7 @@ void hk_function_free(HkFunction *fn)
   hk_string_release(fn->file);
   hk_chunk_deinit(&fn->chunk);
   free_functions(fn);
-  free(fn);
+  hk_free(fn);
 }
 
 void hk_function_release(HkFunction *fn)
@@ -155,7 +154,7 @@ void hk_closure_free(HkClosure *cl)
   hk_function_release(fn);
   for (int i = 0; i < numNonlocals; ++i)
     hk_value_release(cl->nonlocals[i]);
-  free(cl);
+  hk_free(cl);
 }
 
 void hk_closure_release(HkClosure *cl)
@@ -179,7 +178,7 @@ HkNative *hk_native_new(HkString *name, int arity, HkCallFn call)
 void hk_native_free(HkNative *native)
 {
   hk_string_release(native->name);
-  free(native);
+  hk_free(native);
 }
 
 void hk_native_release(HkNative *native)

src/chunk.c

@@ -9,7 +9,6 @@
 //
 
 #include <hook/chunk.h>
-#include <stdlib.h>
 #include <hook/memory.h>
 #include <hook/utils.h>
 
@@ -56,8 +55,8 @@ void hk_chunk_init(HkChunk *chunk)
 
 void hk_chunk_deinit(HkChunk *chunk)
 {
-  free(chunk->code);
-  free(chunk->lines);
+  hk_free(chunk->code);
+  hk_free(chunk->lines);
   hk_array_free(chunk->consts);
 }
 

src/iterator.c

@@ -9,7 +9,7 @@
 //
 
 #include <hook/iterator.h>
-#include <stdlib.h>
+#include <hook/memory.h>
 
 void hk_iterator_init(HkIterator *it, void (*deinit)(HkIterator *),
   bool (*isValid)(HkIterator *), HkValue (*getCurrent)(HkIterator *),
@@ -27,7 +27,7 @@ void hk_iterator_free(HkIterator *it)
 {
   if (it->deinit)
     it->deinit(it);
-  free(it);
+  hk_free(it);
 }
 
 void hk_iterator_release(HkIterator *it)

src/memory.c

@@ -11,12 +11,17 @@
 #include <hook/memory.h>
 #include <stdlib.h>
 
-void *hk_allocate(int size)
+void *hk_allocate(size_t size)
 {
   return malloc(size);
 }
 
-void *hk_reallocate(void *ptr, int size)
+void *hk_reallocate(void *ptr, size_t size)
 {
   return realloc(ptr, size);
 }
+
+void hk_free(void *ptr)
+{
+  free(ptr);
+}