From d464a1d3a62d620b6336131c355467bdc273e3c5 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Sat, 15 Jan 2022 13:03:11 +0000
Subject: Rework printer to add vertical padding too

---
 main.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'main.c')

diff --git a/main.c b/main.c
index ad84ad3..82c44f5 100644
--- a/main.c
+++ b/main.c
@@ -1,6 +1,7 @@
 #include <u.h>
 #include <libc.h>
 #include <bio.h>
+#include <pool.h>
 
 #include "apl9.h"
 
@@ -17,14 +18,20 @@ main(int argc, char *argv[])
 	globalsymtab = newsymtab();
 	currentsymtab = globalsymtab;
 	traceeval = 0;
+	debugmem = 0;
 
 	ARGBEGIN{
 	case 't':
 			traceeval = 1;
 			break;
+	case 'm':
+			debugmem = 1;
+			mainmem->flags |= POOL_NOREUSE;
+			break;
 	}ARGEND
 
 	while(!off){
+		checkmem("main loop");
 		Rune *input = prompt(L"\t");
 		Datum *result = evalline(input);
 		if(result == nil){
@@ -39,7 +46,7 @@ main(int argc, char *argv[])
 				freearray(result->array);
 			free(result);
 		}
-		print("Unfreed allocations: %d\n", alloccounts);
+		print("Unfreed arrays: %d\n", alloccounts);
 	}
 	exits(nil);
 }
-- 
cgit v1.2.3