added pool allocator to core library

diff --git a/bin/onyx b/bin/onyx
index 4ceb49909ab66bc12981f75bb464912393de23a1..6bc20b20a56b4be667b315a74d4ae7ae20489c41 100755 (executable)
Binary files a/bin/onyx and b/bin/onyx differ

diff --git a/core/alloc.onyx b/core/alloc.onyx
index 792e497c41c81b09c151b43a27000ca69cb13d55..9950f9a4c91d5176e78108036a8a996baf056fd4 100644 (file)
--- a/core/alloc.onyx
+++ b/core/alloc.onyx
@@ -4,6 +4,7 @@ package core.alloc
 #load "core/alloc/fixed"
 #load "core/alloc/heap"
 #load "core/alloc/ring"
+#load "core/alloc/pool"
 
 TEMPORARY_ALLOCATOR_SIZE :: 1 << 12; // 4Kb
 

diff --git a/core/stdio.onyx b/core/stdio.onyx
index c3e67fda749518e5b9f8516770ea8731821eb8a9..c0a235e77ad71b8de94e2b5a770f286418a3766b 100644 (file)
--- a/core/stdio.onyx
+++ b/core/stdio.onyx
@@ -40,13 +40,24 @@ printf :: proc (format: str, va: ...) {
 }
 
 // This works on both slices and arrays
-print_array :: proc (arr: $T, sep := " ") {
-    for i: 0 .. arr.count {
-        print(arr.data[i]);
-        if i != arr.count - 1 do print(sep);
-    }
+print_array :: proc {
+    proc (arr: [$N] $T, sep := " ") {
+        for i: 0 .. N {
+            print(arr[i]);
+            if i != N - 1 do print(sep);
+        }
 
-    print("\n");
+        print("\n");
+    },
+
+    proc (arr: $T, sep := " ") {
+        for i: 0 .. arr.count {
+            print(arr.data[i]);
+            if i != arr.count - 1 do print(sep);
+        }
+
+        print("\n");
+    }
 }
 
 print_stream_flush :: proc () {

diff --git a/onyx.exe b/onyx.exe
index b8a51481b2898517ce1baf85e77cbe6e4d9669d7..b54fafb6e2d360fc095c72147792273feedb255f 100644 (file)
Binary files a/onyx.exe and b/onyx.exe differ

diff --git a/src/onyxutils.c b/src/onyxutils.c
index cfdd13e599a150d782a9695dc7648ca3c16172ad..0fd12a0848dd17f2aa3b11033498ae97abf6dc6c 100644 (file)
--- a/src/onyxutils.c
+++ b/src/onyxutils.c
@@ -395,7 +395,7 @@ static bh_arr(AstPolySolution) find_polymorphic_slns(AstPolyProc* pp, PolyProcLo
         else if (pp_lookup == PPLM_By_Function_Type) {
             Type* ft = (Type*) actual;
             if (param->idx >= ft->Function.param_count) {
-                if (err_msg) *err_msg = "Incompatible polymorphic argument to function paramter.";
+                if (err_msg) *err_msg = "Incompatible polymorphic argument to function parameter.";
                 goto sln_not_found;
             }