104test.subx - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

blob: 5b14049e6f2b718508004936cb12771def199365 (plain) (tree)

21bddb2e ^

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31pre { line-height: 125%; }
td.linenos .normal { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
span.linenos { color: inherit; background-color: transparent; padding-left: 5px; padding-right:# 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

== data

Num-test-failures:
  0/imm32