blob: 373b1b1576ce02541d13c1fcddb8ca5e02cdfe49 (
plain) (
blame)
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
31
|
# a hack example,
# we use a dark type to get
# a pointer to the stack.
type :magic = align 1 { 0 }
data $ret = { l 0 }
export
function $test(:magic %p) {
@start
%av =w loadw $a
%a1 =w add 1, %av
storew %a1, $a # increment $a
%r1 =l loadl $ret # fetch from $ret
%p1 =l add %p, -8
%r2 =l loadl %p1 # get the return address
storel %r2, $ret # store it in $ret
%c =w ceql %r1, %r2
jnz %c, @fin, @cal
@cal
%i =w call $test() # no argument given, intentionally!
@fin
ret
}
# >>> driver
# extern void test(void);
# int a = 2;
# int main() { test(); return !(a == 5); }
# <<<
|
