Implement procedure pointers
This commit is contained in:
13
source.elna
13
source.elna
@ -891,19 +891,6 @@ begin
|
||||
return 0
|
||||
end
|
||||
|
||||
proc f();
|
||||
begin
|
||||
write_s("In f\n")
|
||||
end
|
||||
|
||||
proc g();
|
||||
var x: ^proc()
|
||||
begin
|
||||
x := cast(f: ^proc())
|
||||
(* x() *)
|
||||
end
|
||||
|
||||
begin
|
||||
g()
|
||||
exit(process(cast(count: Int), cast(parameters: ^^Char)))
|
||||
end.
|
||||
|
Reference in New Issue
Block a user