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

* Removed unused vars.

Browse Source 
git-svn-id: trunk@10631 -
This commit is contained in:
yury 2008-04-12 13:29:48 +00:00
parent 9472825478
commit bc50a7fd6c
3 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1240,8 +1240,6 @@ type
FRootAncestor: TComponent;
FPropPath: String;
FAncestors: TStringList;
FAncestorPos: Integer;
FChildPos: Integer;
FOnFindAncestor: TFindAncestorEvent;
FOnWriteMethodProperty: TWriteMethodPropertyEvent;
FOnWriteStringProperty:TReadWriteStringPropertyEvent;

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

@ -324,7 +324,6 @@ begin
end;
procedure TFPList.DoCopy(ListA, ListB : TFPList);
var l : TFPList;
begin
if assigned (ListB) then
CopyMove (ListB)
@ -393,7 +392,6 @@ begin
end;
procedure TFPList.DoOr(ListA, ListB : TFPList);
var r : integer;
begin
if assigned (ListB) then
begin
@ -670,7 +668,6 @@ begin
end;
procedure TList.DoCopy(ListA, ListB : TList);
var l : TList;
begin
if assigned (ListB) then
CopyMove (ListB)
@ -739,7 +736,6 @@ begin
end;
procedure TList.DoOr(ListA, ListB : TList);
var r : integer;
begin
if assigned (ListB) then
begin

5
rtl/objpas/classes/resref.inc
View File

@ -82,7 +82,6 @@ type
var
NeedResolving : TLinkedList;
ResolveSection : TRTLCriticalSection;
LastAddInstance : TUnresolvedInstance;
// Add an instance to the global list of instances which need resolving.
Function FindUnresolvedInstance(AInstance: TPersistent) : TUnResolvedInstance;
@ -139,10 +138,6 @@ end;
procedure GlobalFixupReferences;
var
V : TResolveReferenceVisitor;
I : Integer;
begin
If (NeedResolving=Nil) then
Exit;