diff options
| author | pommicket <pommicket@gmail.com> | 2022-01-05 18:19:28 -0500 |
|---|---|---|
| committer | pommicket <pommicket@gmail.com> | 2022-01-05 18:19:28 -0500 |
| commit | 6a31b0560a203fd4ae6642114dad488545ed0c3a (patch) | |
| tree | 65af34fa8dda935d93e8d973be21fdc94824491e /04b/in03 | |
| parent | ea3c9319928d10afd69c14556c284bfe1f81dd93 (diff) | |
new language idea
Diffstat (limited to '04b/in03')
| -rw-r--r-- | 04b/in03 | 15 |
1 files changed, 5 insertions, 10 deletions
@@ -243,7 +243,6 @@ align reserve d8 :handle_global - xcc ; ignore if this is the second pass C=:second_pass C=1C @@ -262,6 +261,7 @@ align 8C=I J=:global_variables D=d5 + call :ident_lookup C=A ?C!0:global_redeclaration @@ -458,17 +458,15 @@ align ; look up identifier rsi in list rdi with separation rdx between entries ; returns address of whatever's right after the identifier in the list, or 0 if not found :ident_lookup - C=:second_pass - C=1C - ; use default of 1 on first pass - ?C=0:return_1 - C=:ident_lookup_sep 8C=D C=:ident_lookup_i 8C=I :ident_lookup_loop + ; check if reached the end of the table + C=1J + ?C=0:return_0 I=:ident_lookup_i I=8I call :ident= @@ -485,9 +483,6 @@ align C=:ident_lookup_sep C=8C J+=C - ; check if reached the end of the table - C=1J - ?C=0:return_0 !:ident_lookup_loop ; can the character in rbx appear in an identifier? @@ -525,8 +520,8 @@ align ; variable J=:local_variables - D=d5 xcc + D=d5 call :ident_lookup C=A ?C=0:rax2term_try_global |