Implement procedure pointers

2025-02-24 00:24:36 +01:00
parent 18857e1a88
commit 85b6843ecf
9 changed files with 217 additions and 181 deletions
--- a/source.elna
+++ b/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.