about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--apps/tile/data.mu5
-rw-r--r--apps/tile/table.mu2
-rw-r--r--apps/tile/value-stack.mu6
3 files changed, 6 insertions, 7 deletions
diff --git a/apps/tile/data.mu b/apps/tile/data.mu
index 3cd2337d..18b7e7ce 100644
--- a/apps/tile/data.mu
+++ b/apps/tile/data.mu
@@ -34,9 +34,8 @@ type word {
 }
 
 type value {
-  scalar-data: int
-  text-data: (handle array byte)
-  box-data: (handle line)
+  type: int
+  int-data: int  # if type = 0
 }
 
 type table {
diff --git a/apps/tile/table.mu b/apps/tile/table.mu
index 73c8fef5..e7dfac40 100644
--- a/apps/tile/table.mu
+++ b/apps/tile/table.mu
@@ -43,7 +43,7 @@ fn make-binding _self: (addr bind), key: (addr handle array byte), _val: int {
   var dest2/eax: (addr handle value) <- get self, value
   allocate dest2
   var dest3/eax: (addr value) <- lookup *dest2
-  var dest4/eax: (addr int) <- get dest3, scalar-data
+  var dest4/eax: (addr int) <- get dest3, int-data
   var val/ecx: int <- copy _val
   copy-to *dest4, val
 }
diff --git a/apps/tile/value-stack.mu b/apps/tile/value-stack.mu
index 8e921eca..ba1a824d 100644
--- a/apps/tile/value-stack.mu
+++ b/apps/tile/value-stack.mu
@@ -27,7 +27,7 @@ fn push-int-to-value-stack _self: (addr value-stack), _val: int {
   var top/edx: int <- copy *top-addr
   var dest-offset/edx: (offset value) <- compute-offset data, top
   var dest-addr/edx: (addr value) <- index data, dest-offset
-  var dest-addr2/eax: (addr int) <- get dest-addr, scalar-data
+  var dest-addr2/eax: (addr int) <- get dest-addr, int-data
   var val/esi: int <- copy _val
 #?   print-int32-hex-to-real-screen val
   copy-to *dest-addr2, val
@@ -62,7 +62,7 @@ $pop-int-from-value-stack:body: {
   var top/edx: int <- copy *top-addr
   var dest-offset/edx: (offset value) <- compute-offset data, top
   var result-addr/eax: (addr value) <- index data, dest-offset
-  var result-addr2/eax: (addr int) <- get result-addr, scalar-data
+  var result-addr2/eax: (addr int) <- get result-addr, int-data
   val <- copy *result-addr2
 }
 }
@@ -100,7 +100,7 @@ fn value-stack-max-width _self: (addr value-stack) -> result/eax: int {
     break-if->=
     var o/edx: (offset value) <- compute-offset data, i
     var g/edx: (addr value) <- index data, o
-    var g2/edx: (addr int) <- get g, scalar-data
+    var g2/edx: (addr int) <- get g, int-data
     var w/eax: int <- decimal-size *g2
     compare w, out
     {