From 4eda8c599c6b6fa35d25e6760617709d7cb56a25 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Tue, 10 Aug 2021 22:47:30 -0700
Subject: [PATCH] debugging helper: heap remaining

---
 120allocate.subx | 12 ++++++++++++
 400.mu           |  1 +
 2 files changed, 13 insertions(+)

diff --git a/120allocate.subx b/120allocate.subx
index 26d2a74b..bb4b3cb1 100644
--- a/120allocate.subx
+++ b/120allocate.subx
@@ -75,6 +75,18 @@ $allocate:end:
     5d/pop-to-ebp
     c3/return
 
+heap-bound:  # -> _/eax: int
+    # . prologue
+    55/push-ebp
+    89/copy                         3/mod/direct    5/rm32/ebp    .           .             .           4/r32/esp   .               .                 # copy esp to ebp
+    #
+    8b/copy                         0/mod/indirect  5/rm32/.disp32            .             .           0/r32/eax   Heap/disp32     .                 # copy *Heap to eax
+$heap-bound:end:
+    # . epilogue
+    89/copy                         3/mod/direct    4/rm32/esp    .           .             .           5/r32/ebp   .               .                 # copy ebp to esp
+    5d/pop-to-ebp
+    c3/return
+
 # Claim the next 'n' bytes of memory starting at ad->curr and update ad->curr.
 # Abort if there isn't enough memory in 'ad'.
 allocate-raw:  # ad: (addr allocation-descriptor), n: int, out: (addr handle _)
diff --git a/400.mu b/400.mu
index d1143ea8..7eba6f46 100644
--- a/400.mu
+++ b/400.mu
@@ -38,6 +38,7 @@ sig turn-on-debug-print
 sig turn-off-debug-print
 sig abort e: (addr array byte)
 sig dump-call-stack
+sig heap-bound -> _/eax: int
 
 sig count-event
 sig count-of-events -> _/eax: int