paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* made some fields in fgl.pp private as proposed by Michalis Kamburelis, resolves #19873

Browse Source 
git-svn-id: trunk@18210 -
This commit is contained in:
florian 2011-08-14 19:52:01 +00:00
parent 63403e5199
commit 3787ed993c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/fgl.pp
View File

@ -100,7 +100,7 @@ type
end;
generic TFPGList<T> = class(TFPSList)
public
private
type
TCompareFunc = function(const Item1, Item2: T): Integer;
TTypeList = array[0..MaxGListSize] of T;
@ -134,7 +134,7 @@ type
end;
generic TFPGObjectList<T> = class(TFPSList)
public
private
type
TCompareFunc = function(const Item1, Item2: T): Integer;
TTypeList = array[0..MaxGListSize] of T;
@ -170,7 +170,7 @@ type
end;
generic TFPGInterfacedObjectList<T> = class(TFPSList)
public
private
type
TCompareFunc = function(const Item1, Item2: T): Integer;
TTypeList = array[0..MaxGListSize] of T;
@ -254,7 +254,7 @@ type
end;
generic TFPGMap<TKey, TData> = class(TFPSMap)
public
private
type
TKeyCompareFunc = function(const Key1, Key2: TKey): Integer;
TDataCompareFunc = function(const Data1, Data2: TData): Integer;
@ -299,7 +299,7 @@ type
end;
generic TFPGMapInterfacedObjectData<TKey, TData> = class(TFPSMap)
public
private
type
TKeyCompareFunc = function(const Key1, Key2: TKey): Integer;
TDataCompareFunc = function(const Data1, Data2: TData): Integer;