about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2020-11-11 23:30:56 -0800
committerKartik Agaram <vc@akkartik.com>2020-11-11 23:30:56 -0800
commitd71559924670854f475685c7506c93561a96864b (patch)
tree58f6e1f8300ec7f7cd6a9a90d0d421687914f933
parent307745bcc2efbd4c5b8191b45d5e1885be1c0089 (diff)
downloadmu-d71559924670854f475685c7506c93561a96864b.tar.gz
7226
-rw-r--r--apps/tile/rpn.mu12
-rw-r--r--apps/tile/table.mu18
-rw-r--r--apps/tile/value-stack.mu34
-rw-r--r--apps/tile/value.mu17
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