diff options
| -rw-r--r-- | apps/tile/word.mu | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/apps/tile/word.mu b/apps/tile/word.mu index b425868e..7d44475c 100644 --- a/apps/tile/word.mu +++ b/apps/tile/word.mu @@ -63,34 +63,34 @@ fn word-length _self: (addr word) -> result/eax: int { result <- gap-buffer-length data } -fn first-word _self: (addr word) -> result/eax: (addr word) { - var self/esi: (addr word) <- copy _self - var out/edi: (addr word) <- copy self - var prev/esi: (addr handle word) <- get self, prev +fn first-word _in: (addr handle word), out: (addr handle word) { + var curr-ah/esi: (addr handle word) <- copy _in + var curr/eax: (addr word) <- lookup *curr-ah + var prev/edi: (addr handle word) <- copy 0 { + prev <- get curr, prev var curr/eax: (addr word) <- lookup *prev compare curr, 0 break-if-= - out <- copy curr - prev <- get curr, prev + copy-object prev, curr-ah loop } - result <- copy out + copy-object curr-ah, out } -fn final-word _self: (addr word) -> result/eax: (addr word) { - var self/esi: (addr word) <- copy _self - var out/edi: (addr word) <- copy self - var next/esi: (addr handle word) <- get self, next +fn final-word _in: (addr handle word), out: (addr handle word) { + var curr-ah/esi: (addr handle word) <- copy _in + var curr/eax: (addr word) <- lookup *curr-ah + var next/edi: (addr handle word) <- copy 0 { + next <- get curr, next var curr/eax: (addr word) <- lookup *next compare curr, 0 break-if-= - out <- copy curr - next <- get curr, next + copy-object next, curr-ah loop } - result <- copy out + copy-object curr-ah, out } fn first-grapheme _self: (addr word) -> result/eax: grapheme { |