Changeset 82 for branches/Transpascal/Compiler/USourceCode.pas

Timestamp:

Oct 30, 2010, 9:21:38 PM (14 years ago)

Author:

george

Message:

• Modified: TObjectList replaced by specialized generic TListObject.

File:

• branches/Transpascal/Compiler/USourceCode.pas (modified) (17 diffs)

branches/Transpascal/Compiler/USourceCode.pas

@@ -6 +6 @@
 
 uses
-  SysUtils, Variants, Classes,
-  Dialogs, Contnrs;
+  SysUtils, Variants, Classes, Dialogs, ListObject;
 
 type
@@ -60 +59 @@
   TFunctionCall = class(TCommand)
     FunctionRef: TFunction;
-    ParameterExpression: TObjectList; // TObjectList<TExpression>
+    ParameterExpression: TListObject; // TListObject<TExpression>
     constructor Create;
     destructor Destroy; override;
@@ -118 +117 @@
   TCaseOfEnd = class(TCommand)
     Expression: TExpression;
-    Branches: TObjectList; // TObjectList<TCaseOfEndBranche>
+    Branches: TListObject; // TListObject<TCaseOfEndBranche>
     ElseCommand: TCommand;
     constructor Create;
@@ -134 +133 @@
   end;
 
-  TCommandList = class(TObjectList)
+  TCommandList = class(TListObject)
 
   end;
@@ -190 +189 @@
 
   TTypeEnumeration = class(TType)
-    Items: TObjectList; // TObjectList<TEnumItem>
+    Items: TListObject; // TListObject<TEnumItem>
     constructor Create;
     destructor Destroy; override;
@@ -198 +197 @@
 
   TTypeClass = class(TType)
-    Items: TObjectList; // TObjectList<TType>
-    constructor Create;
-    destructor Destroy; override;
-  end;
-
-  TTypeList = class(TObjectList)
+    Items: TListObject; // TListObject<TType>
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  TTypeList = class(TListObject)
     Parent: TCommonBlock;
     function Search(Name: string; Exported: Boolean = False): TType;
@@ -217 +216 @@
   end;
 
-  TConstantList = class(TObjectList)
+  TConstantList = class(TListObject)
     Parent: TCommonBlock;
     function Search(Name: string): TConstant;
@@ -230 +229 @@
   end;
 
-  TVariableList = class(TObjectList)
+  TVariableList = class(TListObject)
     Parent: TCommonBlock;
     function Search(Name: string; Exported: Boolean = False): TVariable;
@@ -239 +238 @@
   end;
 
-  TParameterList = class(TObjectList)
+  TParameterList = class(TListObject)
     Parent: TFunction;
     function Search(Name: string): TParameter;
@@ -262 +261 @@
   end;
 
-  TExpressionList = class(TObjectList)
+  TExpressionList = class(TListObject)
     destructor Destroy; override;
   end;
@@ -279 +278 @@
   end;
 
-  TFunctionList = class(TObjectList)
+  TFunctionList = class(TListObject)
     Parent: TCommonBlock;
     function Search(Name: string; Exported: Boolean = False): TFunction;
@@ -292 +291 @@
   end;
 
-  TUsedModuleList = class(TObjectList)
+  TUsedModuleList = class(TListObject)
     ParentModule: TModule;
   end;
@@ -335 +334 @@
   { TModuleList }
 
-  TModuleList = class(TObjectList)
+  TModuleList = class(TListObject)
     function Search(Name: string): TModule;
   end;
@@ -669 +668 @@
 begin
   inherited;
-  Branches := TObjectList.Create
+  Branches := TListObject.Create
 end;
 
@@ -696 +695 @@
 begin
   inherited;
-  ParameterExpression := TObjectList.Create;
+  ParameterExpression := TListObject.Create;
 end;
 
@@ -830 +829 @@
 begin
   inherited;
-  Items := TObjectList.Create;
+  Items := TListObject.Create;
 end;
 
@@ -843 +842 @@
 constructor TTypeClass.Create;
 begin
-  Items := TObjectList.Create;
+  Items := TListObject.Create;
 end;