blob: 7a7bb58c9b18a92e3c4ba9df18df4ea051df3007 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
# sanity checks for env calls
function l $epar(env %e, l %i) {
@start
%x =l add %e, %i
ret %x
}
export function l $earg(l %a, l %b) {
@start
%r1 =l call $epar(env %a, l %b)
# okay to call a regular function
# with an env argument
%r2 =l call $labs(env 113, l %r1)
ret %r2
}
# >>> driver
# extern long earg(long, long);
# int main(void) { return !(earg(2, -44) == 42); }
# <<<
|
