fix le memory leak

src/Free/Arg.c

@@ -0,0 +1,10 @@
+#include "../../include/ground.h"
+
+void _GroundFreeArg(GroundArg* in) {
+    if (in->type == GroundArg_Value) {
+        Ground.Free.Value(&in->as.value);
+    } else {
+        // FIXME - double free for arg
+        // free(in->as.ref);
+    }
+}

src/Free/Instruction.c

@@ -0,0 +1,10 @@
+#include "../../include/ground.h"
+
+void _GroundFreeInstruction(GroundInstruction* in) {
+    for (size_t i = 0; i < in->args.len; i++) {
+        Ground.Free.Arg(&in->args.at[i]);
+    }
+    free(in->args.at);
+    in->args.len = 0;
+    in->args.capacity = 0;
+}

src/Free/Program.c

@@ -0,0 +1,10 @@
+#include "../../include/ground.h"
+
+void _GroundFreeProgram(GroundProgram* in) {
+    for (size_t i = 0; i < in->len; i++) {
+        Ground.Free.Instruction(&in->at[i]);
+    }
+    free(in->at);
+    in->len = 0;
+    in->capacity = 0;
+}

src/Free/State.c

@@ -0,0 +1,26 @@
+#include "../../include/ground.h"
+
+void _GroundFreeState(GroundState* in) {
+    {
+        GroundVariable *s, *tmp;
+        HASH_ITER(hh, in->variables, s, tmp) {
+            Ground.Free.Value(&s->value);
+            HASH_DEL(in->variables, s);
+            free(s);
+        }
+    }
+    {
+        GroundCatch *s, *tmp;
+        HASH_ITER(hh, in->catches, s, tmp) {
+            HASH_DEL(in->variables, s);
+            free(s);
+        }
+    }
+    {
+        GroundLabel *s, *tmp;
+        HASH_ITER(hh, in->labels, s, tmp) {
+            HASH_DEL(in->variables, s);
+            free(s);
+        }
+    }
+}