diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2021-04-25 22:07:57 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2021-04-25 22:08:00 -0700 |
| commit | 24a6f99107827efd29fa2320dfea3941cee0abc3 (patch) | |
| tree | 8a9d7d4ee2bb4a75582b15a74287191d7473f22e /shell/evaluate.mu | |
| parent | 6e0f0bdf50e248f68f5b5df2d7163d854b893174 (diff) | |
| download | mu-24a6f99107827efd29fa2320dfea3941cee0abc3.tar.gz | |
failing tests not printing since show-stack-state
Diffstat (limited to 'shell/evaluate.mu')
| -rw-r--r-- | shell/evaluate.mu | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/shell/evaluate.mu b/shell/evaluate.mu index 30fbe9fe..c08da72d 100644 --- a/shell/evaluate.mu +++ b/shell/evaluate.mu @@ -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 |