diff options
Diffstat (limited to 'apps')
| -rwxr-xr-x | apps/assort | bin | 40134 -> 40134 bytes | |||
| -rw-r--r-- | apps/calls.subx | 62 | ||||
| -rwxr-xr-x | apps/crenshaw2-1 | bin | 33868 -> 33868 bytes | |||
| -rwxr-xr-x | apps/crenshaw2-1b | bin | 34427 -> 34427 bytes | |||
| -rwxr-xr-x | apps/dquotes | bin | 45338 -> 45338 bytes | |||
| -rwxr-xr-x | apps/factorial | bin | 32880 -> 32880 bytes | |||
| -rwxr-xr-x | apps/handle | bin | 33734 -> 33734 bytes | |||
| -rwxr-xr-x | apps/hex | bin | 42527 -> 42527 bytes | |||
| -rwxr-xr-x | apps/pack | bin | 52820 -> 52820 bytes | |||
| -rwxr-xr-x | apps/sigils | bin | 52847 -> 52847 bytes | |||
| -rwxr-xr-x | apps/survey | bin | 49417 -> 49417 bytes | |||
| -rwxr-xr-x | apps/tests | bin | 38946 -> 38946 bytes |
12 files changed, 57 insertions, 5 deletions
diff --git a/apps/assort b/apps/assort index aa49e087..df5bd853 100755 --- a/apps/assort +++ b/apps/assort Binary files differdiff --git a/apps/calls.subx b/apps/calls.subx index 6768fe7f..1c8fcdeb 100644 --- a/apps/calls.subx +++ b/apps/calls.subx @@ -389,9 +389,6 @@ $next-word-string-or-expression-without-metadata:check-for-end-of-call: # . if (eax == '/') goto error3 3d/compare-eax-and 0x2f/imm32/slash 0f 84/jump-if-equal $next-word-string-or-expression-without-metadata:error3/disp32 - # if (line->data[line->read] != ' ') goto error4 - 3d/compare-eax-and 0x20/imm32/space - 0f 85/jump-if-not-equal $next-word-string-or-expression-without-metadata:error4/disp32 # skip-chars-matching-whitespace(line) # . . push args 56/push-esi @@ -1120,7 +1117,7 @@ test-next-word-string-or-expression-without-metadata-handles-comment-after-trail 81 0/subop/add %esp 8/imm32 # check-ints-equal(slice->start, 0, msg) # . . push args - 68/push "F - test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren: start"/imm32 + 68/push "F - test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren: start"/imm32 68/push 0/imm32 ff 6/subop/push *ecx # . . call @@ -1129,7 +1126,62 @@ test-next-word-string-or-expression-without-metadata-handles-comment-after-trail 81 0/subop/add %esp 0xc/imm32 # check-ints-equal(slice->end, 0, msg) # . . push args - 68/push "F - test-next-word-string-or-expression-without-metadata-returns-eol-on-trailing-close-paren: end"/imm32 + 68/push "F - test-next-word-string-or-expression-without-metadata-handles-comment-after-trailing-close-paren: end"/imm32 + 68/push 0/imm32 + ff 6/subop/push *(ecx+4) + # . . call + e8/call check-ints-equal/disp32 + # . . discard args + 81 0/subop/add %esp 0xc/imm32 + # . epilog + 89/<- %esp 5/r32/ebp + 5d/pop-to-ebp + c3/return + +test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren: + # . prolog + 55/push-ebp + 89/<- %ebp 4/r32/esp + # setup + # . clear-stream(_test-input-stream) + # . . push args + 68/push _test-input-stream/imm32 + # . . call + e8/call clear-stream/disp32 + # . . discard args + 81 0/subop/add %esp 4/imm32 + # var slice/ecx = {0, 0} + 68/push 0/imm32/end + 68/push 0/imm32/start + 89/<- %ecx 4/r32/esp + # write(_test-input-stream, " )\n") + # . . push args + 68/push " )\n"/imm32 + 68/push _test-input-stream/imm32 + # . . call + e8/call write/disp32 + # . . discard args + 81 0/subop/add %esp 8/imm32 + # next-word-string-or-expression-without-metadata(_test-input-stream, slice) + # . . push args + 51/push-ecx + 68/push _test-input-stream/imm32 + # . . call + e8/call next-word-string-or-expression-without-metadata/disp32 + # . . discard args + 81 0/subop/add %esp 8/imm32 + # check-ints-equal(slice->start, 0, msg) + # . . push args + 68/push "F - test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren: start"/imm32 + 68/push 0/imm32 + ff 6/subop/push *ecx + # . . call + e8/call check-ints-equal/disp32 + # . . discard args + 81 0/subop/add %esp 0xc/imm32 + # check-ints-equal(slice->end, 0, msg) + # . . push args + 68/push "F - test-next-word-string-or-expression-without-metadata-handles-newline-after-trailing-close-paren: end"/imm32 68/push 0/imm32 ff 6/subop/push *(ecx+4) # . . call diff --git a/apps/crenshaw2-1 b/apps/crenshaw2-1 index 1527c069..73ea69a8 100755 --- a/apps/crenshaw2-1 +++ b/apps/crenshaw2-1 Binary files differdiff --git a/apps/crenshaw2-1b b/apps/crenshaw2-1b index 7e3f1984..c50483a7 100755 --- a/apps/crenshaw2-1b +++ b/apps/crenshaw2-1b Binary files differdiff --git a/apps/dquotes b/apps/dquotes index c6f46f08..98222863 100755 --- a/apps/dquotes +++ b/apps/dquotes Binary files differdiff --git a/apps/factorial b/apps/factorial index bbd8cf01..35e27ecf 100755 --- a/apps/factorial +++ b/apps/factorial Binary files differdiff --git a/apps/handle b/apps/handle index da5e3613..bfe24eaf 100755 --- a/apps/handle +++ b/apps/handle Binary files differdiff --git a/apps/hex b/apps/hex index 8ff8b296..8312b87a 100755 --- a/apps/hex +++ b/apps/hex Binary files differdiff --git a/apps/pack b/apps/pack index 1066018d..849f2e27 100755 --- a/apps/pack +++ b/apps/pack Binary files differdiff --git a/apps/sigils b/apps/sigils index ede25204..88ae4de2 100755 --- a/apps/sigils +++ b/apps/sigils Binary files differdiff --git a/apps/survey b/apps/survey index d3d9a604..9a142dac 100755 --- a/apps/survey +++ b/apps/survey Binary files differdiff --git a/apps/tests b/apps/tests index ac324f9f..24659a6d 100755 --- a/apps/tests +++ b/apps/tests Binary files differ |