about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-05-07 15:11:49 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-05-07 15:12:56 -0700
commitd3f17627d88f7a128ae398cca9f1b7fce2a7575e (patch)
treea6e29094e156e1ec24642a395bcafd3576b10efc
parentc5f50f05b7d3efe77533e697202378352089bae5 (diff)
downloadmu-d3f17627d88f7a128ae398cca9f1b7fce2a7575e.tar.gz
an often-overflowing stream when running brcircle
We really need to systematically check our trace streams.
-rw-r--r--shell/evaluate.mu2
-rw-r--r--shell/sandbox.mu2
2 files changed, 3 insertions, 1 deletions
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