diff options
Diffstat (limited to 'shell/print.mu')
-rw-r--r-- | shell/print.mu | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/shell/print.mu b/shell/print.mu index 3dec6cff..307b9ffd 100644 --- a/shell/print.mu +++ b/shell/print.mu @@ -47,6 +47,18 @@ fn print-cell _in: (addr handle cell), out: (addr stream byte), trace: (addr tra trace-higher trace return } + compare *in-type, 5/primitive + { + break-if-!= + write out, "[screen " + var screen-ah/eax: (addr handle screen) <- get in-addr, screen-data + var screen/eax: (addr screen) <- lookup *screen-ah + var screen-addr/eax: int <- copy screen + write-int32-decimal out, screen-addr + write out, "]" + trace-higher trace + return + } } # debug helper |