diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-10-14 13:42:03 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-10-14 13:42:03 -0700 |
| commit | 480fd9958abbd9b3b8443190ece755504cacdf9c (patch) | |
| tree | 653c0bb68d2f58dd3665ea8289a5c79c1cbb8327 /apps/factorial3.subx | |
| parent | d9f8784d4c73a257205f040eeb31414814db56f8 (diff) | |
| download | mu-480fd9958abbd9b3b8443190ece755504cacdf9c.tar.gz | |
7032
Diffstat (limited to 'apps/factorial3.subx')
| -rw-r--r-- | apps/factorial3.subx | 59 |
1 files changed, 30 insertions, 29 deletions
diff --git a/apps/factorial3.subx b/apps/factorial3.subx index e8f39066..eb07b5ca 100644 --- a/apps/factorial3.subx +++ b/apps/factorial3.subx @@ -16,38 +16,11 @@ # Expected output: # ........ # Every '.' indicates a passing test. Failing tests get a 'F'. +# +# Compare apps/factorial2.subx == code -Entry: # run tests if necessary, compute `factorial(5)` if not - # . prologue - 89/<- %ebp 4/r32/esp - - # initialize heap - (new-segment *Heap-size Heap) - - # - if argc > 1 and argv[1] == "test", then return run_tests() - # if (argc <= 1) goto run-main - 81 7/subop/compare *ebp 1/imm32 - 7e/jump-if-<= $run-main/disp8 - # if (!kernel-string-equal?(argv[1], "test")) goto run-main - (kernel-string-equal? *(ebp+8) "test") # => eax - # . if (eax == false) goto run-main - 3d/compare-eax-and 0/imm32/false - 74/jump-if-= $run-main/disp8 - # - (run-tests) - # syscall(exit, *Num-test-failures) - 8b/-> *Num-test-failures 3/r32/ebx - eb/jump $main:end/disp8 -$run-main: - # - otherwise - (factorial 5) # => eax - # syscall(exit, eax) - 89/<- %ebx 0/r32/eax -$main:end: - e8/call syscall_exit/disp32 - factorial: # n: int -> int/eax # . prologue 55/push-ebp @@ -78,3 +51,31 @@ test-factorial: (factorial 5) (check-ints-equal %eax 0x78 "F - test-factorial") c3/return + +Entry: # run tests if necessary, compute `factorial(5)` if not + # . prologue + 89/<- %ebp 4/r32/esp + + # initialize heap (needed by tests elsewhere) + (new-segment *Heap-size Heap) + + # - if argc > 1 and argv[1] == "test", then return run_tests() + # if (argc <= 1) goto run-main + 81 7/subop/compare *ebp 1/imm32 + 7e/jump-if-<= $run-main/disp8 + # if (!kernel-string-equal?(argv[1], "test")) goto run-main + (kernel-string-equal? *(ebp+8) "test") # => eax + # . if (eax == false) goto run-main + 3d/compare-eax-and 0/imm32/false + 74/jump-if-= $run-main/disp8 + # + (run-tests) + # syscall(exit, *Num-test-failures) + 8b/-> *Num-test-failures 3/r32/ebx + eb/jump $main:end/disp8 +$run-main: + # - otherwise + (factorial 5) # => eax + 89/<- %ebx 0/r32/eax +$main:end: + e8/call syscall_exit/disp32 |