From d3f17627d88f7a128ae398cca9f1b7fce2a7575e Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 7 May 2021 15:11:49 -0700 Subject: an often-overflowing stream when running brcircle We really need to systematically check our trace streams. --- shell/evaluate.mu | 2 +- shell/sandbox.mu | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/shell/evaluate.mu b/shell/evaluate.mu index 5e0122b0..cf9b51d1 100644 --- a/shell/evaluate.mu +++ b/shell/evaluate.mu @@ -53,7 +53,7 @@ fn evaluate _in-ah: (addr handle cell), _out-ah: (addr handle cell), env-h: (han { compare trace, 0 break-if-= - var stream-storage: (stream byte 0x200) + var stream-storage: (stream byte 0x300) var stream/ecx: (addr stream byte) <- address stream-storage write stream, "evaluate " print-cell in-ah, stream, 0/no-trace diff --git a/shell/sandbox.mu b/shell/sandbox.mu index d3cf3be2..f54df22e 100644 --- a/shell/sandbox.mu +++ b/shell/sandbox.mu @@ -615,6 +615,8 @@ fn run _in-ah: (addr handle gap-buffer), out: (addr stream byte), globals: (addr allocate-pair nil-ah var eval-result-h: (handle cell) var eval-result-ah/edi: (addr handle cell) <- address eval-result-h +#? set-cursor-position 0/screen, 0 0 +#? turn-on-debug-print debug-print "^", 4/fg, 0xc5/bg=blue-bg evaluate read-result-ah, eval-result-ah, *nil-ah, globals, trace, screen-cell, keyboard-cell, 1/call-number debug-print "$", 4/fg, 0xc5/bg=blue-bg -- cgit 1.4.1-2-gfad0