diff options
| author | Leo Tenenbaum <pommicket@gmail.com> | 2021-11-28 10:28:25 -0500 |
|---|---|---|
| committer | Leo Tenenbaum <pommicket@gmail.com> | 2021-11-28 10:28:25 -0500 |
| commit | ea3c9319928d10afd69c14556c284bfe1f81dd93 (patch) | |
| tree | 1d8d2f7995855e21061719d80bd7e58a2ca539b4 /04b/in03 | |
| parent | d03916a3f804c13805d0383e3d74ab446bf81d6e (diff) | |
small corrections
Diffstat (limited to '04b/in03')
| -rw-r--r-- | 04b/in03 | 38 |
1 files changed, 28 insertions, 10 deletions
@@ -209,9 +209,11 @@ align ; store type 1J=R J+=d1 - ; store address - D=:stack_end - D=4D + ; increase stack_end, store it in J + C=:stack_end + D=4C + D+=d8 + 4C=D 4J=D J+=d4 ; store null terminator @@ -241,6 +243,7 @@ align reserve d8 :handle_global + xcc ; ignore if this is the second pass C=:second_pass C=1C @@ -303,6 +306,10 @@ align C=:local_variables_end 8C=D + ; reset stack_end + D=:stack_end + 8D=0 + ; go read the next line !:read_line @@ -399,15 +406,18 @@ align :handle_return - ; @TODO: handle argument - + I=:line + ; "return " is 7 chars long + I+=d7 + + call :set_rax_to_term J=d4 I=:function_epilogue D=d15 syscall x1 - ; go read the next lines + ; go read the next line !:read_line :mov_rsp_rbp @@ -450,8 +460,8 @@ align :ident_lookup C=:second_pass C=1C - ; use default of 0 on first pass - ?C!0:return_0 + ; use default of 1 on first pass + ?C=0:return_1 C=:ident_lookup_sep 8C=D @@ -463,12 +473,19 @@ align I=8I call :ident= C=A - ; move past terminator - J+=d1 + ; move past terminator of identifier in table + :ident_finish_loop + D=1J + J+=d1 + A=xa + ?D!A:ident_finish_loop + ; check if this was it ?C!0:return_J + ; nope. keep going 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 @@ -509,6 +526,7 @@ align ; variable J=:local_variables D=d5 + xcc call :ident_lookup C=A ?C=0:rax2term_try_global |