1 files changed, 12 insertions, 0 deletions
diff --git a/source/util/Diag.mc b/source/util/Diag.mc
index 0ab121f..8fba19d 100644
--- a/source/util/Diag.mc
+++ b/source/util/Diag.mc
@@ -56,6 +56,18 @@ module Diag {
     function firstFrame() as Void {
     }
 
+    // The glance's memory after its first draw (README 18: at most 70 % of
+    // the glance's 64 KB; `make memtest` checks it).
+    (:debug)
+    function glanceMemory() as Void {
+        var stats = System.getSystemStats();
+        System.println("DIAG glance mem_used=" + stats.usedMemory + " mem_total=" + stats.totalMemory);
+    }
+
+    (:release)
+    function glanceMemory() as Void {
+    }
+
     // A screen finished its first draw since it was shown.
     (:debug)
     function shown(screen as String) as Void {