RTL and Data value refactoring and defered values
This commit is contained in:
@@ -390,8 +390,11 @@ end;
|
||||
procedure TScopeDescriptor.PopulateFromScope(Scope: TExecutionScope);
|
||||
begin
|
||||
for var pair in Scope.NameToIndex do
|
||||
if not FSymbols.ContainsKey(pair.Key) then
|
||||
FSymbols.Add(pair.Key, pair.Value);
|
||||
begin
|
||||
var name := Scope.NameStrings[pair.Key];
|
||||
if not FSymbols.ContainsKey(name) then
|
||||
FSymbols.Add(name, pair.Value);
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TAstBinder.TUpvalueMapping.Create;
|
||||
|
||||
Reference in New Issue
Block a user