diff options
Diffstat (limited to 'subx')
| -rw-r--r-- | subx/050write_stderr.subx | 32 | ||||
| -rw-r--r-- | subx/051test.subx | 59 | ||||
| -rw-r--r-- | subx/052argv_equal.subx | 231 | ||||
| -rw-r--r-- | subx/Readme.md | 2 | ||||
| -rw-r--r-- | subx/apps/crenshaw2-1 | bin | 1245 -> 1245 bytes | |||
| -rw-r--r-- | subx/apps/crenshaw2-1.subx | 326 | ||||
| -rwxr-xr-x | subx/apps/factorial | bin | 1243 -> 1243 bytes | |||
| -rw-r--r-- | subx/apps/factorial.subx | 322 | ||||
| -rwxr-xr-x | subx/gen | 2 | ||||
| -rwxr-xr-x | subx/test_layers | 9 |
10 files changed, 336 insertions, 647 deletions
diff --git a/subx/050write_stderr.subx b/subx/050write_stderr.subx new file mode 100644 index 00000000..d6f4784d --- /dev/null +++ b/subx/050write_stderr.subx @@ -0,0 +1,32 @@ +== code + +write_stderr: # s : (address array byte) -> <void> + # prolog + 55/push-EBP + 89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP + # save registers + 50/push-EAX + 51/push-ECX + 52/push-EDX + 53/push-EBX + # write(2/stderr, (data) s+4, (size) *s) + # fd = 2 (stderr) + bb/copy . . . . . . . 2/imm32 # copy 2 to EBX + # x = s+4 + 8b/copy 1/mod/*+disp8 4/rm32/SIB 5/base/EBP 4/index/none . 1/r32/ECX 8/disp8 . # copy *(EBP+8) to ECX + 81 0/subop/add 3/mod/direct 1/rm32/ECX . . . . . 4/imm32 # add 4 to ECX + # size = *s + 8b/copy 1/mod/*+disp8 4/rm32/SIB 5/base/EBP 4/index/none . 2/r32/EDX 8/disp8 . # copy *(EBP+8) to EDX + 8b/copy 0/mod/indirect 2/rm32/EDX . . . 2/r32/EDX . . # copy *EDX to EDX + # call write() + b8/copy . . . . . . . 4/imm32/write # copy 1 to EAX + cd/syscall 0x80/imm8 + # restore registers + 5b/pop-to-EBX + 5a/pop-to-EDX + 59/pop-to-ECX + 58/pop-to-EAX + # end + 89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP + 5d/pop-to-EBP + c3/return diff --git a/subx/051test.subx b/subx/051test.subx new file mode 100644 index 00000000..8edcee49 --- /dev/null +++ b/subx/051test.subx @@ -0,0 +1,59 @@ +== code + +# print msg to stderr if a != b, otherwise print "." +check_ints_equal: # (a : int, b : int, msg : (address array byte)) -> boolean + # prolog + 55/push-EBP + 89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP + # save registers + 51/push-ECX + 53/push-EBX + # load args into EAX, EBX and ECX + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 0/r32/EAX 0x8/disp8 . # copy *(EBP+8) to EAX + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 3/r32/EBX 0xc/disp8 . # copy *(EBP+12) to EBX + # if EAX == b/EBX + 39/compare 3/mod/direct 0/rm32/EAX . . . 3/r32/EBX . . # compare EAX and EBX + 75/jump-if-unequal $check_ints_equal:else/disp8 + # print('.') + # push args + 68/push "."/imm32 + # call + e8/call write_stderr/disp32 + # discard arg + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add 4 to ESP + # return + eb/jump $check_ints_equal:end/disp8 + # else: +$check_ints_equal:else: + # copy msg into ECX + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 1/r32/ECX 0x10/disp8 . # copy *(EBP+16) to ECX + # print(ECX) + # push args + 51/push-ECX + # call + e8/call write_stderr/disp32 + # discard arg + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add 4 to ESP + # print newline + # push args + 68/push Newline/imm32 + # call + e8/call write_stderr/disp32 + # discard arg + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add 4 to ESP +$check_ints_equal:end: + # restore registers + 5b/pop-to-EBX + 59/pop-to-ECX + # end + 89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP + 5d/pop-to-EBP + c3/return + +== data + +Newline: + # size + 01 00 00 00 + # data + 0a/newline diff --git a/subx/052argv_equal.subx b/subx/052argv_equal.subx new file mode 100644 index 00000000..60c24b01 --- /dev/null +++ b/subx/052argv_equal.subx @@ -0,0 +1,231 @@ +== code + +# compare a null-terminated ascii string with a more idiomatic length-prefixed byte array +# reason for the name: the only place we should have null-terminated ascii strings is from commandline args +argv_equal: # s : null-terminated ascii string, benchmark : length-prefixed ascii string -> EAX : boolean + # prolog + 55/push-EBP + 89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP + # save registers + 51/push-ECX + 52/push-EDX + 53/push-EBX + 56/push-ESI + 57/push-EDI + + # pseudocode: + # initialize n = b.length + # initialize s1 = s + # initialize s2 = b.data + # i = 0 + # for (i = 0; i < n; ++n) + # c1 = *s1 + # c2 = *s2 + # if c1 == 0 + # return false + # if c1 != c2 + # return false + # return *s1 == 0 + # initialize s into EDI + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 7/r32/EDI 8/disp8 . # copy *(EBP+8) to EDI + # initialize benchmark length n into EDX + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 2/r32/EDX 0xc/disp8 . # copy *(EBP+12) to EDX + 8b/copy 0/mod/indirect 2/rm32/EDX . . . 2/r32/EDX . . # copy *EDX to EDX + # initialize benchmark data into ESI + 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 6/r32/ESI 0xc/disp8 . # copy *(EBP+12) to ESI + 81 0/subop/add 3/mod/direct 6/rm32/ESI . . . . . 4/imm32 # add 4 to ESI + # initialize loop counter i into ECX + b9/copy . . . . . . . 0/imm32/exit # copy 1 to ECX + # while (i/ECX < n/EDX) +$argv_loop: + 39/compare 3/mod/direct 1/rm32/ECX . . . 2/r32/EDX . . # compare ECX with EDX + 74/jump-if-equal $argv_break/disp8 + # c1/EAX, c2/EBX = *s, *benchmark + b8/copy 0/imm32 # clear EAX + 8a/copy 0/mod/indirect 7/rm32/EDI . . . 0/r32/EAX . . # copy byte at *EDI to lower byte of EAX + bb/copy 0/imm32 # clear EBX + 8a/copy 0/mod/indirect 6/rm32/ESI . . . 3/r32/EBX . . # copy byte at *ESI to lower byte of EBX + # if (c1 == 0) return false + 3d/compare . . . . . . . 0/imm32 # compare EAX with 0 + 74/jump-if-equal $argv_fail/disp8 + # if (c1 != c2) return false + 39/compare 3/mod/direct 0/rm32/EAX . . . 3/r32/EBX . . # compare EAX with EBX + 75/jump-if-not-equal $argv_fail/disp8 + # ++s1, ++s2, ++i + 41/inc-ECX + 46/inc-ESI + 47/inc-EDI + # end while + eb/jump $argv_loop/disp8 +$argv_break: + # if (*s/EDI == 0) return true + b8/copy 0/imm32 # clear EAX + 8a/copy 0/mod/indirect 7/rm32/EDI . . . 0/r32/EAX . . # copy byte at *EDI to lower byte of EAX + 81 7/subop/compare 3/mod/direct 0/rm32/EAX . . . . . 0/imm32 # compare EAX with 0 + 75/jump-if-not-equal $argv_fail/disp8 + b8/copy . . . . . . . 1/imm32 # copy 1 to EAX + eb/jump $argv_end/disp8 + # return false +$argv_fail: + b8/copy . . . . . . . 0/imm32 # copy 0 to EAX + +$argv_end: + # restore registers + 5f/pop-to-EDI + 5e/pop-to-ESI + 5b/pop-to-EBX + 5a/pop-to-EDX + 59/pop-to-ECX + # end + 89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP + 5d/pop-to-EBP + c3/return + +## tests + +test_compare_null_argv_with_empty_array: + # EAX = argv_equal(Null_argv, "") + # push args + 68/push ""/imm32 + 68/push Null_argv/imm32 + # call + e8/call argv_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP + # call check_ints_equal(EAX, 1, msg) + # push args + 68/push "F - test_compare_null_argv_with_empty_array"/imm32 + 68/push 1/imm32/true + 50/push-EAX + # call + e8/call check_ints_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP + c3/return + +test_compare_null_argv_with_non_empty_array: + # EAX = argv_equal(Null_argv, "Abc") + # push args + 68/push "Abc"/imm32 + 68/push Null_argv/imm32 + # call + e8/call argv_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP + # call check_ints_equal(EAX, 0, msg) + # push args + 68/push "F - test_compare_null_argv_with_non_empty_array"/imm32 + 68/push 0/imm32/false + 50/push-EAX + # call + e8/call check_ints_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP + c3/return + +test_compare_argv_with_equal_array: + # EAX = argv_equal(Abc_argv, "Abc") + # push args + 68/push "Abc"/imm32 + 68/push Abc_argv/imm32 + # call + e8/call argv_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP + # call check_ints_equal(EAX, 1, msg) + # push args + 68/push "F - test_compare_argv_with_equal_array"/imm32 + 68/push 1/imm32/true + 50/push-EAX + # call + e8/call check_ints_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP + c3/return + +test_compare_argv_with_inequal_array: + # EAX = argv_equal(Abc_argv, "Adc") + # push args + 68/push "Adc"/imm32 + 68/push Abc_argv/imm32 + # call + e8/call argv_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP + # call check_ints_equal(EAX, 0, msg) + # push args + 68/push "F - test_compare_argv_with_equal_array"/imm32 + 68/push 0/imm32/false + 50/push-EAX + # call + e8/call check_ints_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP + c3/return + +test_compare_argv_with_empty_array: + # EAX = argv_equal(Abc_argv, "") + # push args + 68/push ""/imm32 + 68/push Abc_argv/imm32 + # call + e8/call argv_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP + # call check_ints_equal(EAX, 0) + # push args + 68/push "F - test_compare_argv_with_equal_array"/imm32 + 68/push 0/imm32/false + 50/push-EAX + # call + e8/call check_ints_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP + c3/return + +test_compare_argv_with_shorter_array: + # EAX = argv_equal(Abc_argv, "Ab") + # push args + 68/push "Ab"/imm32 + 68/push Abc_argv/imm32 + # call + e8/call argv_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP + # call check_ints_equal(EAX, 0) + # push args + 68/push "F - test_compare_argv_with_shorter_array"/imm32 + 68/push 0/imm32/false + 50/push-EAX + # call + e8/call check_ints_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP + c3/return + +test_compare_argv_with_longer_array: + # EAX = argv_equal(Abc_argv, "Abcd") + # push args + 68/push "Abcd"/imm32 + 68/push Abc_argv/imm32 + # call + e8/call argv_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP + # call check_ints_equal(EAX, 0) + # push args + 68/push "F - test_compare_argv_with_longer_array"/imm32 + 68/push 0/imm32/false + 50/push-EAX + # call + e8/call check_ints_equal/disp32 + # discard args + 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP + c3/return + +== data + +Null_argv: + 00/null +Abc_argv: + 41/A 62/b 63/c 00/null diff --git a/subx/Readme.md b/subx/Readme.md index baba8e1b..49abbdf3 100644 --- a/subx/Readme.md +++ b/subx/Readme.md @@ -123,7 +123,7 @@ Putting them together, build and run one of the example programs: <img alt='apps/factorial.subx' src='../html/subx/factorial.png'> ``` -$ ./subx translate apps/factorial.subx -o apps/factorial +$ ./subx translate *.subx apps/factorial.subx -o apps/factorial $ ./subx run apps/factorial # returns the factorial of 5 $ echo $? 120 diff --git a/subx/apps/crenshaw2-1 b/subx/apps/crenshaw2-1 index cb0429f3..f6601a48 100644 --- a/subx/apps/crenshaw2-1 +++ b/subx/apps/crenshaw2-1 Binary files differdiff --git a/subx/apps/crenshaw2-1.subx b/subx/apps/crenshaw2-1.subx index ef0ee70e..c0bdc768 100644 --- a/subx/apps/crenshaw2-1.subx +++ b/subx/apps/crenshaw2-1.subx @@ -1,8 +1,8 @@ ## port of https://github.com/akkartik/crenshaw/blob/master/tutor2.1.pas # corresponds to the section "single digits" in https://compilers.iecc.com/crenshaw/tutor2.txt # -# To run: -# $ subx translate apps/crenshaw2.1.subx -o crenshaw 2.1 +# To run (from the subx directory): +# $ subx translate *.subx apps/crenshaw2.1.subx -o crenshaw 2.1 # $ echo '3' |subx run apps/crenshaw2.1 |xxd - # Expected output: # TODO @@ -31,7 +31,7 @@ b8/copy . . . . . . . 1/imm32/exit # copy 1 to EAX cd/syscall 0x80/imm8 -## compiler helpers +## helpers # print error message and exit # really maps to the 'Expected' function in Crenshaw @@ -81,313 +81,6 @@ error: # s : (address array byte) -> <void> # end c3/return -## helpers - -# print msg to stderr if a != b, otherwise print "." -check_ints_equal: # (a : int, b : int, msg : (address array byte)) -> boolean - # prolog - 55/push-EBP - 89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP - # save registers - 51/push-ECX - 53/push-EBX - # load args into EAX, EBX and ECX - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 0/r32/EAX 0x8/disp8 . # copy *(EBP+8) to EAX - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 3/r32/EBX 0xc/disp8 . # copy *(EBP+12) to EBX - # if EAX == b/EBX - 39/compare 3/mod/direct 0/rm32/EAX . . . 3/r32/EBX . . # compare EAX and EBX - 75/jump-if-unequal $check_ints_equal:else/disp8 - # print('.') - # push args - 68/push "."/imm32 - # call - e8/call write_stderr/disp32 - # discard arg - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add 4 to ESP - # return - eb/jump $check_ints_equal:end/disp8 - # else: -$check_ints_equal:else: - # copy msg into ECX - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 1/r32/ECX 0x10/disp8 . # copy *(EBP+16) to ECX - # print(ECX) - # push args - 51/push-ECX - # call - e8/call write_stderr/disp32 - # discard arg - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add 4 to ESP - # print newline - # push args - 68/push Newline/imm32 - # call - e8/call write_stderr/disp32 - # discard arg - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add 4 to ESP -$check_ints_equal:end: - # restore registers - 5b/pop-to-EBX - 59/pop-to-ECX - # end - 89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP - 5d/pop-to-EBP - c3/return - -# compare a null-terminated ascii string with a more idiomatic length-prefixed byte array -# reason for the name: the only place we should have null-terminated ascii strings is from commandline args -argv_equal: # s : null-terminated ascii string, benchmark : length-prefixed ascii string -> EAX : boolean - # prolog - 55/push-EBP - 89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP - # save registers - 51/push-ECX - 52/push-EDX - 53/push-EBX - 56/push-ESI - 57/push-EDI - - # pseudocode: - # initialize n = b.length - # initialize s1 = s - # initialize s2 = b.data - # i = 0 - # for (i = 0; i < n; ++n) - # c1 = *s1 - # c2 = *s2 - # if c1 == 0 - # return false - # if c1 != c2 - # return false - # return *s1 == 0 -# {{{ - # initialize s into EDI - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 7/r32/EDI 8/disp8 . # copy *(EBP+8) to EDI - # initialize benchmark length n into EDX - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 2/r32/EDX 0xc/disp8 . # copy *(EBP+12) to EDX - 8b/copy 0/mod/indirect 2/rm32/EDX . . . 2/r32/EDX . . # copy *EDX to EDX - # initialize benchmark data into ESI - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 6/r32/ESI 0xc/disp8 . # copy *(EBP+12) to ESI - 81 0/subop/add 3/mod/direct 6/rm32/ESI . . . . . 4/imm32 # add 4 to ESI - # initialize loop counter i into ECX - b9/copy . . . . . . . 0/imm32/exit # copy 1 to ECX - # while (i/ECX < n/EDX) -$argv_loop: - 39/compare 3/mod/direct 1/rm32/ECX . . . 2/r32/EDX . . # compare ECX with EDX - 74/jump-if-equal $argv_break/disp8 - # c1/EAX, c2/EBX = *s, *benchmark - b8/copy 0/imm32 # clear EAX - 8a/copy 0/mod/indirect 7/rm32/EDI . . . 0/r32/EAX . . # copy byte at *EDI to lower byte of EAX - bb/copy 0/imm32 # clear EBX - 8a/copy 0/mod/indirect 6/rm32/ESI . . . 3/r32/EBX . . # copy byte at *ESI to lower byte of EBX - # if (c1 == 0) return false - 3d/compare . . . . . . . 0/imm32 # compare EAX with 0 - 74/jump-if-equal $argv_fail/disp8 - # if (c1 != c2) return false - 39/compare 3/mod/direct 0/rm32/EAX . . . 3/r32/EBX . . # compare EAX with EBX - 75/jump-if-not-equal $argv_fail/disp8 - # ++s1, ++s2, ++i - 41/inc-ECX - 46/inc-ESI - 47/inc-EDI - # end while - eb/jump $argv_loop/disp8 -$argv_break: - # if (*s/EDI == 0) return true - b8/copy 0/imm32 # clear EAX - 8a/copy 0/mod/indirect 7/rm32/EDI . . . 0/r32/EAX . . # copy byte at *EDI to lower byte of EAX - 81 7/subop/compare 3/mod/direct 0/rm32/EAX . . . . . 0/imm32 # compare EAX with 0 - 75/jump-if-not-equal $argv_fail/disp8 - b8/copy . . . . . . . 1/imm32 # copy 1 to EAX - eb/jump $argv_end/disp8 - # return false -$argv_fail: - b8/copy . . . . . . . 0/imm32 # copy 0 to EAX - -$argv_end: - # restore registers - 5f/pop-to-EDI - 5e/pop-to-ESI - 5b/pop-to-EBX - 5a/pop-to-EDX - 59/pop-to-ECX - # end - 89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP - 5d/pop-to-EBP - c3/return -# }}} -# tests for argv_equal {{{ -test_compare_null_argv_with_empty_array: - # EAX = argv_equal(Null_argv, "") - # push args - 68/push ""/imm32 - 68/push Null_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 1, msg) - # push args - 68/push "F - test_compare_null_argv_with_empty_array"/imm32 - 68/push 1/imm32/true - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_null_argv_with_non_empty_array: - # EAX = argv_equal(Null_argv, "Abc") - # push args - 68/push "Abc"/imm32 - 68/push Null_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 0, msg) - # push args - 68/push "F - test_compare_null_argv_with_non_empty_array"/imm32 - 68/push 0/imm32/false - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_argv_with_equal_array: - # EAX = argv_equal(Abc_argv, "Abc") - # push args - 68/push "Abc"/imm32 - 68/push Abc_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 1, msg) - # push args - 68/push "F - test_compare_argv_with_equal_array"/imm32 - 68/push 1/imm32/true - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_argv_with_inequal_array: - # EAX = argv_equal(Abc_argv, "Adc") - # push args - 68/push "Adc"/imm32 - 68/push Abc_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 0, msg) - # push args - 68/push "F - test_compare_argv_with_equal_array"/imm32 - 68/push 0/imm32/false - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_argv_with_empty_array: - # EAX = argv_equal(Abc_argv, "") - # push args - 68/push ""/imm32 - 68/push Abc_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 0) - # push args - 68/push "F - test_compare_argv_with_equal_array"/imm32 - 68/push 0/imm32/false - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_argv_with_shorter_array: - # EAX = argv_equal(Abc_argv, "Ab") - # push args - 68/push "Ab"/imm32 - 68/push Abc_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 0) - # push args - 68/push "F - test_compare_argv_with_shorter_array"/imm32 - 68/push 0/imm32/false - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_argv_with_longer_array: - # EAX = argv_equal(Abc_argv, "Abcd") - # push args - 68/push "Abcd"/imm32 - 68/push Abc_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 0) - # push args - 68/push "F - test_compare_argv_with_longer_array"/imm32 - 68/push 0/imm32/false - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return -# }}} - -write_stderr: # s : (address array byte) -> <void> - # prolog - 55/push-EBP - 89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP - # save registers - 50/push-EAX - 51/push-ECX - 52/push-EDX - 53/push-EBX - # write(2/stderr, (data) s+4, (size) *s) - # fd = 2 (stderr) - bb/copy . . . . . . . 2/imm32 # copy 2 to EBX - # x = s+4 - 8b/copy 1/mod/*+disp8 4/rm32/SIB 5/base/EBP 4/index/none . 1/r32/ECX 8/disp8 . # copy *(EBP+8) to ECX - 81 0/subop/add 3/mod/direct 1/rm32/ECX . . . . . 4/imm32 # add 4 to ECX - # size = *s - 8b/copy 1/mod/*+disp8 4/rm32/SIB 5/base/EBP 4/index/none . 2/r32/EDX 8/disp8 . # copy *(EBP+8) to EDX - 8b/copy 0/mod/indirect 2/rm32/EDX . . . 2/r32/EDX . . # copy *EDX to EDX - # call write() - b8/copy . . . . . . . 4/imm32/write # copy 1 to EAX - cd/syscall 0x80/imm8 - # restore registers - 5b/pop-to-EBX - 5a/pop-to-EDX - 59/pop-to-ECX - 58/pop-to-EAX - # end - 89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP - 5d/pop-to-EBP - c3/return - write_stdout: # s : (address array byte) -> <void> # prolog 55/push-EBP @@ -419,17 +112,4 @@ write_stdout: # s : (address array byte) -> <void> 5d/pop-to-EBP c3/return -== data -Newline: - # size - 01 00 00 00 - # data - 0a/newline - -# for argv_equal tests -Null_argv: - 00/null -Abc_argv: - 41/A 62/b 63/c 00/null - # vim:ft=subx:nowrap:so=0 diff --git a/subx/apps/factorial b/subx/apps/factorial index 3d052619..6412cd1a 100755 --- a/subx/apps/factorial +++ b/subx/apps/factorial Binary files differdiff --git a/subx/apps/factorial.subx b/subx/apps/factorial.subx index 80ff7418..02725d0c 100644 --- a/subx/apps/factorial.subx +++ b/subx/apps/factorial.subx @@ -1,6 +1,6 @@ ## compute the factorial of 5, and return the result in the exit code # -# To run: +# To run (from the subx directory): # $ subx translate apps/factorial.subx -o apps/factorial # $ subx run apps/factorial # Expected result: @@ -102,324 +102,4 @@ test_factorial: # end c3/return -## helpers - -# print msg to stderr if a != b, otherwise print "." -check_ints_equal: # (a : int, b : int, msg : (address array byte)) -> boolean - # prolog - 55/push-EBP - 89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP - # save registers - 51/push-ECX - 53/push-EBX - # load args into EAX, EBX and ECX - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 0/r32/EAX 0x8/disp8 . # copy *(EBP+8) to EAX - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 3/r32/EBX 0xc/disp8 . # copy *(EBP+12) to EBX - # if EAX == b/EBX - 39/compare 3/mod/direct 0/rm32/EAX . . . 3/r32/EBX . . # compare EAX and EBX - 75/jump-if-unequal $check_ints_equal:else/disp8 - # print('.') - # push args - 68/push "."/imm32 - # call - e8/call write_stderr/disp32 - # discard arg - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add 4 to ESP - # return - eb/jump $check_ints_equal:end/disp8 - # else: -$check_ints_equal:else: - # copy msg into ECX - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 1/r32/ECX 0x10/disp8 . # copy *(EBP+16) to ECX - # print(ECX) - # push args - 51/push-ECX - # call - e8/call write_stderr/disp32 - # discard arg - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add 4 to ESP - # print newline - # push args - 68/push Newline/imm32 - # call - e8/call write_stderr/disp32 - # discard arg - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 4/imm32 # add 4 to ESP -$check_ints_equal:end: - # restore registers - 5b/pop-to-EBX - 59/pop-to-ECX - # end - 89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP - 5d/pop-to-EBP - c3/return - -# compare a null-terminated ascii string with a more idiomatic length-prefixed byte array -# reason for the name: the only place we should have null-terminated ascii strings is from commandline args -argv_equal: # s : null-terminated ascii string, benchmark : length-prefixed ascii string -> EAX : boolean - # prolog - 55/push-EBP - 89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP - # save registers - 51/push-ECX - 52/push-EDX - 53/push-EBX - 56/push-ESI - 57/push-EDI - - # pseudocode: - # initialize n = b.length - # initialize s1 = s - # initialize s2 = b.data - # i = 0 - # for (i = 0; i < n; ++n) - # c1 = *s1 - # c2 = *s2 - # if c1 == 0 - # return false - # if c1 != c2 - # return false - # return *s1 == 0 -# {{{ - # initialize s into EDI - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 7/r32/EDI 8/disp8 . # copy *(EBP+8) to EDI - # initialize benchmark length n into EDX - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 2/r32/EDX 0xc/disp8 . # copy *(EBP+12) to EDX - 8b/copy 0/mod/indirect 2/rm32/EDX . . . 2/r32/EDX . . # copy *EDX to EDX - # initialize benchmark data into ESI - 8b/copy 1/mod/*+disp8 4/rm32/sib 5/base/EBP 4/index/none . 6/r32/ESI 0xc/disp8 . # copy *(EBP+12) to ESI - 81 0/subop/add 3/mod/direct 6/rm32/ESI . . . . . 4/imm32 # add 4 to ESI - # initialize loop counter i into ECX - b9/copy . . . . . . . 0/imm32/exit # copy 1 to ECX - # while (i/ECX < n/EDX) -$argv_loop: - 39/compare 3/mod/direct 1/rm32/ECX . . . 2/r32/EDX . . # compare ECX with EDX - 74/jump-if-equal $argv_break/disp8 - # c1/EAX, c2/EBX = *s, *benchmark - b8/copy 0/imm32 # clear EAX - 8a/copy 0/mod/indirect 7/rm32/EDI . . . 0/r32/EAX . . # copy byte at *EDI to lower byte of EAX - bb/copy 0/imm32 # clear EBX - 8a/copy 0/mod/indirect 6/rm32/ESI . . . 3/r32/EBX . . # copy byte at *ESI to lower byte of EBX - # if (c1 == 0) return false - 3d/compare . . . . . . . 0/imm32 # compare EAX with 0 - 74/jump-if-equal $argv_fail/disp8 - # if (c1 != c2) return false - 39/compare 3/mod/direct 0/rm32/EAX . . . 3/r32/EBX . . # compare EAX with EBX - 75/jump-if-not-equal $argv_fail/disp8 - # ++s1, ++s2, ++i - 41/inc-ECX - 46/inc-ESI - 47/inc-EDI - # end while - eb/jump $argv_loop/disp8 -$argv_break: - # if (*s/EDI == 0) return true - b8/copy 0/imm32 # clear EAX - 8a/copy 0/mod/indirect 7/rm32/EDI . . . 0/r32/EAX . . # copy byte at *EDI to lower byte of EAX - 81 7/subop/compare 3/mod/direct 0/rm32/EAX . . . . . 0/imm32 # compare EAX with 0 - 75/jump-if-not-equal $argv_fail/disp8 - b8/copy . . . . . . . 1/imm32 # copy 1 to EAX - eb/jump $argv_end/disp8 - # return false -$argv_fail: - b8/copy . . . . . . . 0/imm32 # copy 0 to EAX - -$argv_end: - # restore registers - 5f/pop-to-EDI - 5e/pop-to-ESI - 5b/pop-to-EBX - 5a/pop-to-EDX - 59/pop-to-ECX - # end - 89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP - 5d/pop-to-EBP - c3/return -# }}} -# tests for argv_equal {{{ -test_compare_null_argv_with_empty_array: - # EAX = argv_equal(Null_argv, "") - # push args - 68/push ""/imm32 - 68/push Null_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 1, msg) - # push args - 68/push "F - test_compare_null_argv_with_empty_array"/imm32 - 68/push 1/imm32/true - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_null_argv_with_non_empty_array: - # EAX = argv_equal(Null_argv, "Abc") - # push args - 68/push "Abc"/imm32 - 68/push Null_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 0, msg) - # push args - 68/push "F - test_compare_null_argv_with_non_empty_array"/imm32 - 68/push 0/imm32/false - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_argv_with_equal_array: - # EAX = argv_equal(Abc_argv, "Abc") - # push args - 68/push "Abc"/imm32 - 68/push Abc_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 1, msg) - # push args - 68/push "F - test_compare_argv_with_equal_array"/imm32 - 68/push 1/imm32/true - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_argv_with_inequal_array: - # EAX = argv_equal(Abc_argv, "Adc") - # push args - 68/push "Adc"/imm32 - 68/push Abc_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 0, msg) - # push args - 68/push "F - test_compare_argv_with_equal_array"/imm32 - 68/push 0/imm32/false - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_argv_with_empty_array: - # EAX = argv_equal(Abc_argv, "") - # push args - 68/push ""/imm32 - 68/push Abc_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 0) - # push args - 68/push "F - test_compare_argv_with_equal_array"/imm32 - 68/push 0/imm32/false - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_argv_with_shorter_array: - # EAX = argv_equal(Abc_argv, "Ab") - # push args - 68/push "Ab"/imm32 - 68/push Abc_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 0) - # push args - 68/push "F - test_compare_argv_with_shorter_array"/imm32 - 68/push 0/imm32/false - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return - -test_compare_argv_with_longer_array: - # EAX = argv_equal(Abc_argv, "Abcd") - # push args - 68/push "Abcd"/imm32 - 68/push Abc_argv/imm32 - # call - e8/call argv_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 8/imm32 # add 8 to ESP - # call check_ints_equal(EAX, 0) - # push args - 68/push "F - test_compare_argv_with_longer_array"/imm32 - 68/push 0/imm32/false - 50/push-EAX - # call - e8/call check_ints_equal/disp32 - # discard args - 81 0/subop/add 3/mod/direct 4/rm32/ESP . . . . . 0xc/imm32 # add 12 to ESP - c3/return -# }}} - -write_stderr: # s : (address array byte) -> <void> - # prolog - 55/push-EBP - 89/copy 3/mod/direct 5/rm32/EBP . . . 4/r32/ESP . . # copy ESP to EBP - # save registers - 50/push-EAX - 51/push-ECX - 52/push-EDX - 53/push-EBX - # write(2/stderr, (data) s+4, (size) *s) - # fd = 2 (stderr) - bb/copy . . . . . . . 2/imm32 # copy 2 to EBX - # x = s+4 - 8b/copy 1/mod/*+disp8 4/rm32/SIB 5/base/EBP 4/index/none . 1/r32/ECX 8/disp8 . # copy *(EBP+8) to ECX - 81 0/subop/add 3/mod/direct 1/rm32/ECX . . . . . 4/imm32 # add 4 to ECX - # size = *s - 8b/copy 1/mod/*+disp8 4/rm32/SIB 5/base/EBP 4/index/none . 2/r32/EDX 8/disp8 . # copy *(EBP+8) to EDX - 8b/copy 0/mod/indirect 2/rm32/EDX . . . 2/r32/EDX . . # copy *EDX to EDX - # call write() - b8/copy . . . . . . . 4/imm32/write # copy 1 to EAX - cd/syscall 0x80/imm8 - # restore registers - 5b/pop-to-EBX - 5a/pop-to-EDX - 59/pop-to-ECX - 58/pop-to-EAX - # end - 89/copy 3/mod/direct 4/rm32/ESP . . . 5/r32/EBP . . # copy EBP to ESP - 5d/pop-to-EBP - c3/return - -== data -Newline: - # size - 01 00 00 00 - # data - 0a/newline - -# for argv_equal tests -Null_argv: - 00/null -Abc_argv: - 41/A 62/b 63/c 00/null - # vim:ft=subx:nowrap:so=0 diff --git a/subx/gen b/subx/gen index a73d763b..fb2e7532 100755 --- a/subx/gen +++ b/subx/gen @@ -7,5 +7,5 @@ then exit $? fi -CFLAGS=-g subx translate apps/$1.subx -o apps/`echo $1 |sed 's/\..*//'` +CFLAGS=-g subx translate *.subx apps/$1.subx -o apps/`echo $1 |sed 's/\..*//'` exit $? diff --git a/subx/test_layers b/subx/test_layers index fa801c10..2afa6dab 100755 --- a/subx/test_layers +++ b/subx/test_layers @@ -11,10 +11,17 @@ do done ./clean top -for f in examples/ex*.subx apps/*.subx +for f in examples/*.subx do echo $f target=`echo $f |sed 's/\..*//'` CFLAGS=-g ./subx translate $f -o $target git diff --quiet $target || exit 1 done +for f in apps/*.subx +do + echo $f + target=`echo $f |sed 's/\..*//'` + CFLAGS=-g ./subx translate *.subx $f -o $target + git diff --quiet $target || exit 1 +done |