diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-11-05 00:51:15 -0800 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-11-05 00:51:15 -0800 |
| commit | 686b87cc06de415c5ecdca75bb706cdc54c358da (patch) | |
| tree | 10de25d9ef9fba53254b5daa2b6d1fd35ea6dcfd /apps/tile | |
| parent | cc356b35bf183823f6c78c9b9f3b5eeddfd5614c (diff) | |
| download | mu-686b87cc06de415c5ecdca75bb706cdc54c358da.tar.gz | |
7181 - type checks for 'address' instruction
Diffstat (limited to 'apps/tile')
| -rw-r--r-- | apps/tile/word.mu | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/apps/tile/word.mu b/apps/tile/word.mu index 64d03ff8..61c0646e 100644 --- a/apps/tile/word.mu +++ b/apps/tile/word.mu @@ -523,7 +523,7 @@ fn word-is-decimal-integer? _self: (addr word) -> _/eax: boolean { # ABSOLUTELY GHASTLY fn word-exists? _haystack-ah: (addr handle word), _needle: (addr word) -> _/ebx: boolean { - var needle-name-storage: (handle addr byte) + var needle-name-storage: (handle array byte) var needle-name-ah/eax: (addr handle array byte) <- address needle-name-storage word-to-string _needle, needle-name-ah # profligate leak var _needle-name/eax: (addr array byte) <- lookup *needle-name-ah @@ -537,7 +537,7 @@ fn word-exists? _haystack-ah: (addr handle word), _needle: (addr word) -> _/ebx: return 0 # false } # check curr - var curr-name-storage: (handle addr byte) + var curr-name-storage: (handle array byte) var curr-name-ah/ecx: (addr handle array byte) <- address curr-name-storage word-to-string curr, curr-name-ah # profligate leak var curr-name/eax: (addr array byte) <- lookup *curr-name-ah |