Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

47 lines
852 B

# Some helpers needed only because Mu doesn't support globals at the moment.
== code
count-test-failure:
# . prologue
55/push-ebp
89/<- %ebp 4/r32/esp
#
ff 0/subop/increment *Num-test-failures
$count-test-failure:end:
# . epilogue
89/<- %esp 5/r32/ebp
5d/pop-to-ebp
c3/return
num-test-failures: # -> _/eax: int
# . prologue
55/push-ebp
89/<- %ebp 4/r32/esp
#
8b/-> *Num-test-failures 0/r32/eax
$num-test-failures:end:
# . epilogue
89/<- %esp 5/r32/ebp
5d/pop-to-ebp
c3/return
running-tests?: # -> _/eax: int
# . prologue
55/push-ebp
89/<- %ebp 4/r32/esp
#
8b/-> *Running-tests? 0/r32/eax
$running-tests?:end:
# . epilogue
89/<- %esp 5/r32/ebp
5d/pop-to-ebp
c3/return
== data
Num-test-failures:
0/imm32
Running-tests?:
1/imm32/true