Brummel/MycLib
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects 1 Releases Wiki Activity

Fixed closure upvalue scoping

Browse Source
This commit is contained in:
Michael Schimmel
2025-09-30 17:41:21 +02:00
parent 1c1bd4cdca
commit 1fd7fb9da9
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Src/AST/Myc.Ast.Scope.pas
+3 -1
View File
@@ -35,6 +35,8 @@ type
procedure Clear;
function Capture(const Address: TResolvedAddress): IValueCell;
function GetNameID(const Name: String): Integer;
function CreateDescriptor: IScopeDescriptor;
property Values[const Address: TResolvedAddress]: TDataValue read GetValues write SetValues; default;
@@ -101,7 +103,6 @@ type
procedure DumpScope(const ABuilder: TStringBuilder; AIndent: Integer);
procedure NeedNameToIndex;
function GetNameID(const Name: String): Integer;
function GetParent: IExecutionScope;
function GetNameToIndex: TDictionary<Integer, Integer>;
function GetValues(const Address: TResolvedAddress): TDataValue;
@@ -110,6 +111,7 @@ type
constructor Create(AParent: IExecutionScope; const ADescriptor: IScopeDescriptor; const ACapturedUpvalues: TArray<IValueCell>);
destructor Destroy; override;
procedure Clear;
function GetNameID(const Name: String): Integer;
function Dump: string;
procedure Define(const Name: string; const Value: TDataValue);
procedure DefineBoxed(const Address: TResolvedAddress; const Value: TDataValue);