akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

an often-overflowing stream when running brcircle 

We really need to systematically check our trace streams.
This commit is contained in:
Kartik K. Agaram 2021-05-07 15:11:49 -07:00
parent c5f50f05b7
commit d3f17627d8
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
shell/evaluate.mu
View File

@ -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

2
shell/sandbox.mu
View File

@ -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