nixify
This commit is contained in:
21
test/env.ssa
Normal file
21
test/env.ssa
Normal file
@@ -0,0 +1,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); }
|
||||
# <<<
|
||||
Reference in New Issue
Block a user