feat: port gcc to MontaukOS

programs/include/montauk/heap.h

@@ -123,13 +123,28 @@ namespace heap_detail {
         return nullptr;
     }
 
-    static inline bool grow(uint64_t bytes) {
-        uint64_t pages = (bytes + 0xFFF) / 0x1000;
-        if (pages < 4) pages = 4;
+    // Next slab size for heap growth. The kernel tracks a finite number
+    // of SYS_ALLOC records per process (MaxHeapAllocs), so growing once
+    // per large allocation exhausts them under allocation-heavy loads
+    // (the native ld ran out mid-link). Doubling slabs keep the syscall
+    // count logarithmic in total heap size.
+    inline uint64_t g_grow_slab = 16 * 0x1000;
 
-        void* mem = montauk::alloc(pages * 0x1000);
+    static inline bool grow(uint64_t bytes) {
+        uint64_t want = (bytes + 0xFFF) & ~0xFFFULL;
+        if (want < 0x4000) want = 0x4000;
+
+        uint64_t slab = (want > g_grow_slab) ? want : g_grow_slab;
+        if (g_grow_slab < 4 * 1024 * 1024) g_grow_slab *= 2;
+
+        void* mem = montauk::alloc(slab);
+        if (mem == nullptr && slab > want) {
+            // Big slab refused (low memory): retry with the exact need.
+            slab = want;
+            mem = montauk::alloc(slab);
+        }
         if (mem == nullptr) return false;
-        insert_overflow(mem, pages * 0x1000);
+        insert_overflow(mem, slab);
         return true;
     }