2001-06-06 20:29:01 +00:00
|
|
|
%myty = type int
|
|
|
|
%myfn = type float (int,double,uint,short)
|
2004-07-14 23:14:07 +00:00
|
|
|
type int(%myfn*)
|
2001-06-06 20:29:01 +00:00
|
|
|
type int(int)
|
2004-07-14 23:14:07 +00:00
|
|
|
type int(int(int)*)
|
2002-05-02 21:52:35 +00:00
|
|
|
|
|
|
|
%thisfuncty = type int (int) *
|
2001-06-06 20:29:01 +00:00
|
|
|
implementation
|
|
|
|
|
2002-10-06 22:43:49 +00:00
|
|
|
declare void %F(%thisfuncty, %thisfuncty, %thisfuncty)
|
|
|
|
|
2001-06-06 20:29:01 +00:00
|
|
|
; This function always returns zero
|
2002-10-06 22:43:49 +00:00
|
|
|
int %zarro(int %Func)
|
2001-06-06 20:29:01 +00:00
|
|
|
begin
|
|
|
|
Startup:
|
2002-05-02 21:52:35 +00:00
|
|
|
add int 0, 10
|
|
|
|
ret int 0
|
2001-06-06 20:29:01 +00:00
|
|
|
end
|
|
|
|
|
2002-10-06 22:43:49 +00:00
|
|
|
int %test(int)
|
2001-06-06 20:29:01 +00:00
|
|
|
begin
|
2002-10-06 22:43:49 +00:00
|
|
|
call void %F(%thisfuncty %zarro, %thisfuncty %test, %thisfuncty %foozball)
|
2001-06-06 20:29:01 +00:00
|
|
|
ret int 0
|
|
|
|
end
|
|
|
|
|
2002-10-06 22:43:49 +00:00
|
|
|
int %foozball(int)
|
2001-06-06 20:29:01 +00:00
|
|
|
begin
|
|
|
|
ret int 0
|
|
|
|
end
|
|
|
|
|