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

rtl: make fgl compilable with 2.4.0

Browse Source 
git-svn-id: trunk@15658 -
This commit is contained in:
paul 2010-07-29 01:47:57 +00:00
parent 1876fb1c74
commit dbbe861797
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/objpas/fgl.pp
View File

@ -23,6 +23,10 @@ interface
uses
types, sysutils;
{$IF defined(VER2_4)}
{$DEFINE OldSyntax}
{$IFEND}
const
MaxListSize = Maxint div 16;
@ -103,8 +107,7 @@ type
PTypeList = ^TTypeList;
PT = ^T;
TFPGListEnumeratorSpec = specialize TFPGListEnumerator<T>;
protected
var
{$ifndef OldSyntax}protected var{$else}var protected{$endif}
FOnCompare: TCompareFunc;
procedure CopyItem(Src, Dest: Pointer); override;
procedure Deref(Item: Pointer); override;
@ -136,8 +139,7 @@ type
TTypeList = array[0..MaxGListSize] of T;
PTypeList = ^TTypeList;
PT = ^T;
protected
var
{$ifndef OldSyntax}protected var{$else}var protected{$endif}
FOnCompare: TCompareFunc;
FFreeObjects: Boolean;
procedure CopyItem(Src, Dest: Pointer); override;
@ -170,8 +172,7 @@ type
TTypeList = array[0..MaxGListSize] of T;
PTypeList = ^TTypeList;
PT = ^T;
protected
var
{$ifndef OldSyntax}protected var{$else}var protected{$endif}
FOnCompare: TCompareFunc;
procedure CopyItem(Src, Dest: Pointer); override;
procedure Deref(Item: Pointer); override;
@ -256,8 +257,7 @@ type
TDataCompareFunc = function(const Data1, Data2: TData): Integer;
PKey = ^TKey;
PData = ^TData;
protected
var
{$ifndef OldSyntax}protected var{$else}var protected{$endif}
FOnKeyCompare: TKeyCompareFunc;
FOnDataCompare: TDataCompareFunc;
procedure CopyItem(Src, Dest: Pointer); override;