Permalink
Browse files

refactored a bit to save memory

  • Loading branch information...
1 parent 0528d0a commit c9efe62ab6e63a9fadb58538c9a8b45b2f721d61 @martok committed Nov 23, 2011
Showing with 116 additions and 104 deletions.
  1. +114 −102 uMath.pas
  2. +2 −2 uTests.pas
View
View
@@ -192,7 +192,7 @@ procedure TMathSysTest.TestParser;
procedure TMathSysTest.TestDatatypes;
var result: IValue;
begin
- Result:= TE_Constant.Create();
+ Result:= TValue.Create();
BeginGroup('DataTypes');
try
BeginGroup('Num->Num');
@@ -233,7 +233,7 @@ procedure TMathSysTest.TestContexts;
begin
BeginGroup('Contexts');
try
- cnst:= TE_Constant.Create(42.000);
+ cnst:= TE_Constant.Create(TValue.Create(42.000));
BeginGroup('Define 1');
Sys.Context.Define('test',cnst);
Expect(Sys.Context.Definition('test')=cnst ,'Didn''t receive same object.');

0 comments on commit c9efe62

Please sign in to comment.