failing tests not printing since show-stack-state

This commit is contained in:
Kartik K. Agaram 2021-04-25 22:07:57 -07:00
parent 6e0f0bdf50
commit 24a6f99107
1 changed files with 10 additions and 1 deletions

View File

@ -5,7 +5,16 @@
fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cell), globals: (addr global-table), trace: (addr trace), screen-cell: (addr handle cell), keyboard-cell: (addr handle cell), call-number: int {
# stack overflow? # disable when enabling Really-debug-print
check-stack
show-stack-state
{
var screen-cell/eax: (addr handle cell) <- copy screen-cell
compare screen-cell, 0
break-if-=
var screen-cell-addr/eax: (addr cell) <- lookup *screen-cell
compare screen-cell-addr, 0
break-if-=
# if screen-cell exists, we're probably not in a test
show-stack-state
}
# errors? skip
{
compare trace, 0