Refactoring

Src/AST/Myc.Ast.Nodes.pas

@@ -45,14 +45,6 @@ type
         class operator Equal(const A: TResolvedAddress; B: TResolvedAddress): Boolean;
     end;
 
-    IValueCell = interface
-        {$region 'private'}
-        function GetValue: TDataValue;
-        procedure SetValue(const AValue: TDataValue);
-        {$endregion}
-        property Value: TDataValue read GetValue write SetValue;
-    end;
-
     IAstVisitor = interface
         function VisitConstant(const Node: IConstantNode): TDataValue;
         function VisitIdentifier(const Node: IIdentifierNode): TDataValue;

Src/AST/Myc.Ast.Scope.pas

@@ -13,6 +13,14 @@ type
     IExecutionScope = interface;
     IScopeDescriptor = interface;
 
+    IValueCell = interface
+        {$region 'private'}
+        function GetValue: TDataValue;
+        procedure SetValue(const AValue: TDataValue);
+        {$endregion}
+        property Value: TDataValue read GetValue write SetValue;
+    end;
+
     IExecutionScope = interface
         {$region 'private'}
         function GetParent: IExecutionScope;

Test/MycTests.dpr

@@ -15,7 +15,7 @@ uses
 {$ENDIF }
     DUnitX.TestFramework,
     TestNotifier in 'TestNotifier.pas',
-    TestNotifier_Threading in 'TestNotifier_Threading.pas',
+    TestNotifier_Threading in 'TestNotifier_Threading.pas' {/TestNotifier_ChaosStress in 'TestNotifier_ChaosStress.pas',},
     TestNotifier_ChaosStress in 'TestNotifier_ChaosStress.pas',
     TestTasks in 'TestTasks.pas',
     TestCoreFutures in 'TestCoreFutures.pas',
@@ -32,7 +32,8 @@ uses
     Myc.Data.Decimal in '..\Src\Data\Myc.Data.Decimal.pas',
     TestDataDecimal in 'TestDataDecimal.pas',
     TestDataPOD in 'TestDataPOD.pas',
-    Test.Ast.Interpreter.Scope in 'Test.Ast.Interpreter.Scope.pas';
+    Test.Ast.Interpreter.Scope in 'Test.Ast.Interpreter.Scope.pas',
+    Myc.Data.Chunks in '..\Src\Data\Myc.Data.Chunks.pas';
 
 { keep comment here to protect the following conditional from being removed by the IDE when adding a unit }
 {$IFNDEF TESTINSIGHT}

Test/MycTests.dproj

@@ -136,6 +136,7 @@ $(PreBuildEvent)]]></PreBuildEvent>
         <DCCReference Include="TestDataDecimal.pas"/>
         <DCCReference Include="TestDataPOD.pas"/>
         <DCCReference Include="Test.Ast.Interpreter.Scope.pas"/>
+        <DCCReference Include="..\Src\Data\Myc.Data.Chunks.pas"/>
         <BuildConfiguration Include="Base">
             <Key>Base</Key>
         </BuildConfiguration>