paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 14:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Luiz americo to use FPList where possible

Browse Source 
git-svn-id: trunk@15663 -
This commit is contained in:
michael 2010-07-30 09:06:18 +00:00
parent dbbe861797
commit 4d2786d238
6 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/action.inc
View File

@ -88,7 +88,7 @@ end;
constructor TBasicAction.Create(AOwner: TComponent); constructor TBasicAction.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FClients := TList.Create; FClients := TFpList.Create;
end; end;

8
rtl/objpas/classes/classes.inc
View File

@ -721,15 +721,15 @@ begin
end; end;
threadvar threadvar
GlobalLoaded, GlobalLists: TList; GlobalLoaded, GlobalLists: TFpList;
procedure BeginGlobalLoading; procedure BeginGlobalLoading;
begin begin
if not Assigned(GlobalLists) then if not Assigned(GlobalLists) then
GlobalLists := TList.Create; GlobalLists := TFpList.Create;
GlobalLists.Add(GlobalLoaded); GlobalLists.Add(GlobalLoaded);
GlobalLoaded := TList.Create; GlobalLoaded := TFpList.Create;
end; end;
@ -747,7 +747,7 @@ procedure EndGlobalLoading;
begin begin
{ Free the memory occupied by BeginGlobalLoading } { Free the memory occupied by BeginGlobalLoading }
GlobalLoaded.Free; GlobalLoaded.Free;
GlobalLoaded := TList(GlobalLists.Last); GlobalLoaded := TFpList(GlobalLists.Last);
GlobalLists.Delete(GlobalLists.Count - 1); GlobalLists.Delete(GlobalLists.Count - 1);
if GlobalLists.Count = 0 then if GlobalLists.Count = 0 then
begin begin

10
rtl/objpas/classes/classesh.inc
View File

@ -469,7 +469,7 @@ type
TCollection = class(TPersistent) TCollection = class(TPersistent)
private private
FItemClass: TCollectionItemClass; FItemClass: TCollectionItemClass;
FItems: TList; FItems: TFpList;
FUpdateCount: Integer; FUpdateCount: Integer;
FNextID: Integer; FNextID: Integer;
FPropName: string; FPropName: string;
@ -1131,7 +1131,7 @@ type
FOwner: TComponent; FOwner: TComponent;
FParent: TComponent; FParent: TComponent;
FFixups: TObject; FFixups: TObject;
FLoaded: TList; FLoaded: TFpList;
FOnFindMethod: TFindMethodEvent; FOnFindMethod: TFindMethodEvent;
FOnSetMethodProperty: TSetMethodPropertyEvent; FOnSetMethodProperty: TSetMethodPropertyEvent;
FOnSetName: TSetNameEvent; FOnSetName: TSetNameEvent;
@ -1575,8 +1575,8 @@ type
FOwner: TComponent; FOwner: TComponent;
FName: TComponentName; FName: TComponentName;
FTag: Longint; FTag: Longint;
FComponents: TList; FComponents: TFpList;
FFreeNotifies: TList; FFreeNotifies: TFpList;
FDesignInfo: Longint; FDesignInfo: Longint;
FVCLComObject: Pointer; FVCLComObject: Pointer;
FComponentState: TComponentState; FComponentState: TComponentState;
@ -1708,7 +1708,7 @@ type
FOnExecute: TNotifyEvent; FOnExecute: TNotifyEvent;
FOnUpdate: TNotifyEvent; FOnUpdate: TNotifyEvent;
protected protected
FClients: TList; FClients: TFpList;
procedure Change; virtual; procedure Change; virtual;
procedure SetOnExecute(Value: TNotifyEvent); virtual; procedure SetOnExecute(Value: TNotifyEvent); virtual;
property OnChange: TNotifyEvent read FOnChange write FOnChange; property OnChange: TNotifyEvent read FOnChange write FOnChange;

2
rtl/objpas/classes/collect.inc
View File

@ -292,7 +292,7 @@ constructor TCollection.Create(AItemClass: TCollectionItemClass);
begin begin
inherited create; inherited create;
FItemClass:=AItemClass; FItemClass:=AItemClass;
FItems:=TList.Create; FItems:=TFpList.Create;
end; end;

4
rtl/objpas/classes/compon.inc
View File

@ -106,7 +106,7 @@ Procedure TComponent.Insert(AComponent: TComponent);
begin begin
If not assigned(FComponents) then If not assigned(FComponents) then
FComponents:=TList.Create; FComponents:=TFpList.Create;
FComponents.Add(AComponent); FComponents.Add(AComponent);
AComponent.FOwner:=Self; AComponent.FOwner:=Self;
end; end;
@ -561,7 +561,7 @@ begin
else else
begin begin
If not (Assigned(FFreeNotifies)) then If not (Assigned(FFreeNotifies)) then
FFreeNotifies:=TList.Create; FFreeNotifies:=TFpList.Create;
If FFreeNotifies.IndexOf(AComponent)=-1 then If FFreeNotifies.IndexOf(AComponent)=-1 then
begin begin
FFreeNotifies.Add(AComponent); FFreeNotifies.Add(AComponent);

4
rtl/objpas/classes/reader.inc
View File

@ -587,7 +587,7 @@ end;
procedure TReader.BeginReferences; procedure TReader.BeginReferences;
begin begin
FLoaded := TList.Create; FLoaded := TFpList.Create;
end; end;
procedure TReader.CheckValue(Value: TValueType); procedure TReader.CheckValue(Value: TValueType);
@ -1423,7 +1423,7 @@ begin
if Assigned(GlobalLoaded) then if Assigned(GlobalLoaded) then
FLoaded := GlobalLoaded FLoaded := GlobalLoaded
else else
FLoaded := TList.Create; FLoaded := TFpList.Create;
try try
if FLoaded.IndexOf(FRoot) < 0 then if FLoaded.IndexOf(FRoot) < 0 then