commit 1a7fa73f0b8ef5d35c97df6c748f2b031ea93054
parent d7b977c93e7ddb7f3c48fe69dc0e56b5ab79ed36
Author: citbl <citbl@citbl.org>
Date: Sun, 14 Jun 2026 23:14:42 +1000
minor todos
Diffstat:
1 file changed, 2 insertions(+), 0 deletions(-)
diff --git a/src/scope.adb b/src/scope.adb
@@ -153,6 +153,7 @@ package body Scope is
-- scope func --
----------------
+ -- TODO parameters must be put in this scope
procedure Scope_Func (S : in out Scoper; Fn : in out Func_Decl) is
Found_Scope : AST_Scope_Ref;
begin
@@ -164,6 +165,7 @@ package body Scope is
Put_Line ("scoping call");
Scope_Call (S, Statement.Call);
Statement.Scope := S.Scope;
+ -- TODO when scoping adds a symbol, check whether it exists first: no shadowing.
end if;
end loop;
end;