Changeset 4 for trunk/Compiler/USourceCode.pas

Timestamp:

Nov 5, 2010, 7:24:45 AM (14 years ago)

Author:

george

Message:

• Modified: Reorganize parser code to use logical separated functions.

File:

• trunk/Compiler/USourceCode.pas (modified) (4 diffs)

trunk/Compiler/USourceCode.pas

@@ -25 +25 @@
   TVariableList = class;
   TFunctionList = class;
-  TExpressionList = class;
+  TListExpression = class;
   TExpression = class;
   TFunction = class;
@@ -331 +331 @@
     Value: TValue;
     OperatorName: string;
-    SubItems: TExpressionList;
+    SubItems: TListExpression;
     Associated: Boolean;
     constructor Create;
     destructor Destroy; override;
     procedure Assign(Source: TExpression);
-  end;
-
-  TExpressionList = class(TListExpression)
-    destructor Destroy; override;
   end;
 
@@ -789 +785 @@
 constructor TExpression.Create;
 begin
-  SubItems := TExpressionList.Create;
+  SubItems := TListExpression.Create;
   SubItems.Count := 2;
   SubItems.OwnsObjects := False;
@@ -810 +806 @@
   Variable := Source.Variable;
   SubItems.Assign(Source.SubItems);
-end;
-
-{ TExpressionList }
-
-destructor TExpressionList.Destroy;
-begin
-  inherited;
 end;