diff options
| -rw-r--r-- | apps/tile/data.mu | 9 | ||||
| -rw-r--r-- | apps/tile/word.mu | 9 |
2 files changed, 9 insertions, 9 deletions
diff --git a/apps/tile/data.mu b/apps/tile/data.mu index 40b24df7..3319003b 100644 --- a/apps/tile/data.mu +++ b/apps/tile/data.mu @@ -92,15 +92,6 @@ fn initialize-line _line: (addr line), out: (addr handle word) { initialize-word word } -fn initialize-word _self: (addr word) { - var self/esi: (addr word) <- copy _self - var data-ah/eax: (addr handle gap-buffer) <- get self, scalar-data - allocate data-ah - var data/eax: (addr gap-buffer) <- lookup *data-ah - initialize-gap-buffer data - # TODO: sometimes initialize box-data rather than scalar-data -} - fn create-primitive-defs _self: (addr handle function) { # x 2* = x 2 * var self/esi: (addr handle function) <- copy _self diff --git a/apps/tile/word.mu b/apps/tile/word.mu index d8b7778a..8016a496 100644 --- a/apps/tile/word.mu +++ b/apps/tile/word.mu @@ -1,3 +1,12 @@ +fn initialize-word _self: (addr word) { + var self/esi: (addr word) <- copy _self + var data-ah/eax: (addr handle gap-buffer) <- get self, scalar-data + allocate data-ah + var data/eax: (addr gap-buffer) <- lookup *data-ah + initialize-gap-buffer data + # TODO: sometimes initialize box-data rather than scalar-data +} + ## some helpers for creating words. mostly for tests fn initialize-word-with _self: (addr word), s: (addr array byte) { |