diff options
Diffstat (limited to 'apps')
-rw-r--r-- | apps/tile/rpn.mu | 12 | ||||
-rw-r--r-- | apps/tile/table.mu | 18 | ||||
-rw-r--r-- | apps/tile/value-stack.mu | 34 | ||||
-rw-r--r-- | apps/tile/value.mu | 17 |
4 files changed, 0 insertions, 81 deletions
diff --git a/apps/tile/rpn.mu b/apps/tile/rpn.mu index 935d7bdd..22aa9c19 100644 --- a/apps/tile/rpn.mu +++ b/apps/tile/rpn.mu @@ -609,12 +609,6 @@ fn evaluate functions: (addr handle function), bindings: (addr table), scratch: top <- decrement var dest-offset/edx: (offset value) <- compute-offset data, top var target-val/edx: (addr value) <- index data, dest-offset -#? { -#? print-string 0, "DD: " -#? var y0/eax: int <- copy target-val -#? print-int32-hex 0, y0 -#? print-string 0, "\n" -#? } # create binding from curr-stream to target-val var key-h: (handle array byte) var key/ecx: (addr handle array byte) <- address key-h @@ -648,12 +642,6 @@ fn evaluate functions: (addr handle function), bindings: (addr table), scratch: var val/eax: (addr value) <- lookup *val-ah compare val, 0 break-if-= -#? { -#? print-string 0, "UU: " -#? var y0/eax: int <- copy val -#? print-int32-hex 0, y0 -#? print-string 0, "\n" -#? } push-value-stack out, val break $evaluate:process-word } diff --git a/apps/tile/table.mu b/apps/tile/table.mu index 8b8b93f3..b0fdb648 100644 --- a/apps/tile/table.mu +++ b/apps/tile/table.mu @@ -36,29 +36,11 @@ fn deep-copy-table _src: (addr table), _dest: (addr table) { var src-val-ah/eax: (addr handle value) <- get src-bind, value var _src-val/eax: (addr value) <- lookup *src-val-ah var src-val/ecx: (addr value) <- copy _src-val -#? { -#? print-string 0, "src type: " -#? var foo/eax: (addr int) <- get src-val, type -#? print-int32-decimal 0, *foo -#? print-string 0, "\n" -#? } var dest-val-ah/eax: (addr handle value) <- get dest-bind, value allocate dest-val-ah var dest-val/eax: (addr value) <- lookup *dest-val-ah -#? { -#? var foo/eax: int <- copy dest-val -#? print-string 0, "iter: " -#? print-int32-hex 0, foo -#? print-string 0, "\n" -#? } #? print-string 0, "deep copy value {\n" deep-copy-value src-val, dest-val -#? { -#? print-string 0, "dest: " -#? var foo/eax: (addr int) <- get dest-val, type -#? print-int32-decimal 0, *foo -#? print-string 0, "\n" -#? } #? print-string 0, "}\n" } i <- increment diff --git a/apps/tile/value-stack.mu b/apps/tile/value-stack.mu index e8e05068..a3d05322 100644 --- a/apps/tile/value-stack.mu +++ b/apps/tile/value-stack.mu @@ -82,40 +82,6 @@ fn push-value-stack _self: (addr value-stack), val: (addr value) { var dest-offset/edx: (offset value) <- compute-offset data, top var dest-addr/edx: (addr value) <- index data, dest-offset copy-object val, dest-addr -#? { -#? print-string 0, "push-value-stack/src: " -#? var x5/eax: (addr value) <- copy val -#? { -#? var y0/eax: int <- copy x5 -#? print-int32-hex 0, y0 -#? print-string 0, " -- " -#? } -#? var x6/eax: (addr int) <- get x5, type -#? compare x6, 0 -#? break-if-= -#? print-int32-hex 0, *x6 -#? print-string 0, "\n" -#? } -#? { -#? print-string 0, "push-value-stack/dest: " -#? var x5/eax: (addr value) <- copy dest-addr -#? { -#? var y0/eax: int <- copy x5 -#? print-int32-hex 0, y0 -#? print-string 0, " -- " -#? } -#? compare x5, 0 -#? break-if-= -#? var x6/eax: (addr handle screen) <- get x5, screen-data -#? var x7/eax: (addr screen) <- lookup *x6 -#? compare x7, 0 -#? break-if-= -#? { -#? var foo/eax: int <- copy x7 -#? print-int32-hex 0, foo -#? } -#? print-string 0, "\n" -#? } increment *top-addr } diff --git a/apps/tile/value.mu b/apps/tile/value.mu index 68bd42e5..cd3e1594 100644 --- a/apps/tile/value.mu +++ b/apps/tile/value.mu @@ -1,12 +1,6 @@ fn render-value-at screen: (addr screen), row: int, col: int, _val: (addr value), max-width: int { move-cursor screen, row, col var val/esi: (addr value) <- copy _val -#? { -#? print-string 0, "val: " -#? var y0/eax: int <- copy val -#? print-int32-hex 0, y0 -#? print-string 0, "\n" -#? } var val-type/ecx: (addr int) <- get val, type # per-type rendering logic goes here compare *val-type, 1 # string @@ -58,12 +52,6 @@ fn render-value-at screen: (addr screen), row: int, col: int, _val: (addr value) #? print-string 0, "render-screen" var val-ah/eax: (addr handle screen) <- get val, screen-data var val-screen/eax: (addr screen) <- lookup *val-ah -#? { -#? print-string 0, " -- " -#? var foo/eax: int <- copy val-screen -#? print-int32-hex 0, foo -#? print-string 0, " {\n" -#? } render-screen screen, row, col, val-screen #? print-string 0, "}\n" return @@ -142,11 +130,6 @@ fn render-screen screen: (addr screen), row: int, col: int, _target-screen: (add start-color screen, 0xf2, 7 move-cursor screen, row, col var target-screen/esi: (addr screen) <- copy _target-screen -#? { -#? var foo/eax: int <- copy target-screen -#? print-int32-hex 0, foo -#? print-string 0, "\n" -#? } var ncols-a/ecx: (addr int) <- get target-screen, num-cols print-upper-border screen, *ncols-a var r/edx: int <- copy 1 |