Extended data value type descriptions

2025-09-15 12:42:06 +02:00
parent e78ef0a3ea
commit 3ad004a895
3 changed files with 65 additions and 14 deletions
@@ -78,9 +78,6 @@ constructor TExecutionScope.Create(
    const ADescriptor: IScopeDescriptor;
    const ACapturedUpvalues: TArray<IValueCell>
 );
-var
-    slotCount: Integer;
-    i: Integer;
 begin
    inherited Create;
    FParent := AParent;
@@ -89,10 +86,7 @@ begin
    FCapturedUpvalues := ACapturedUpvalues; // Store upvalues

    if ADescriptor <> nil then
-    begin
-        slotCount := ADescriptor.SlotCount;
-        SetLength(FValues, slotCount);
-    end;
+        SetLength(FValues, ADescriptor.SlotCount);
 end;

 destructor TExecutionScope.Destroy;