2001-06-06 20:29:01 +00:00
|
|
|
%myty = type int
|
|
|
|
%myfn = type float (int,double,uint,short)
|
|
|
|
type int(%myfn)
|
|
|
|
type int(int)
|
|
|
|
type int(int(int))
|
|
|
|
implementation
|
|
|
|
|
|
|
|
; This function always returns zero
|
|
|
|
int "zarro"(int %Func)
|
2001-10-03 01:48:04 +00:00
|
|
|
%q = const uint 4000000000
|
|
|
|
%p = const int 0
|
2001-06-06 20:29:01 +00:00
|
|
|
begin
|
|
|
|
Startup:
|
|
|
|
add int %p, 10
|
|
|
|
ret int %p
|
|
|
|
end
|
|
|
|
|
|
|
|
int "test"(int)
|
2001-10-03 14:59:11 +00:00
|
|
|
%thisfuncty = type int (int) *
|
2001-06-06 20:29:01 +00:00
|
|
|
begin
|
|
|
|
add %thisfuncty %zarro, %test
|
|
|
|
add %thisfuncty %test, %foozball
|
|
|
|
ret int 0
|
|
|
|
end
|
|
|
|
|
|
|
|
int "foozball"(int)
|
|
|
|
begin
|
|
|
|
ret int 0
|
|
|
|
end
|
|
|
|
|