diff --git a/Src/AST/Myc.Ast.Nodes.pas b/Src/AST/Myc.Ast.Nodes.pas index 022cce0..c4a2098 100644 --- a/Src/AST/Myc.Ast.Nodes.pas +++ b/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; diff --git a/Src/AST/Myc.Ast.Scope.pas b/Src/AST/Myc.Ast.Scope.pas index 8f071b1..7259177 100644 --- a/Src/AST/Myc.Ast.Scope.pas +++ b/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; diff --git a/Test/MycTests.dpr b/Test/MycTests.dpr index e4bcd38..4bdec25 100644 --- a/Test/MycTests.dpr +++ b/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} diff --git a/Test/MycTests.dproj b/Test/MycTests.dproj index 245c89b..8c1c934 100644 --- a/Test/MycTests.dproj +++ b/Test/MycTests.dproj @@ -136,6 +136,7 @@ $(PreBuildEvent)]]> + Base