paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-01 03:37:11 +01: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 uses
types, sysutils; types, sysutils;
{$IF defined(VER2_4)}
{$DEFINE OldSyntax}
{$IFEND}
const const
MaxListSize = Maxint div 16; MaxListSize = Maxint div 16;
@ -103,8 +107,7 @@ type
PTypeList = ^TTypeList; PTypeList = ^TTypeList;
PT = ^T; PT = ^T;
TFPGListEnumeratorSpec = specialize TFPGListEnumerator<T>; TFPGListEnumeratorSpec = specialize TFPGListEnumerator<T>;
protected {$ifndef OldSyntax}protected var{$else}var protected{$endif}
var
FOnCompare: TCompareFunc; FOnCompare: TCompareFunc;
procedure CopyItem(Src, Dest: Pointer); override; procedure CopyItem(Src, Dest: Pointer); override;
procedure Deref(Item: Pointer); override; procedure Deref(Item: Pointer); override;
@ -136,8 +139,7 @@ type
TTypeList = array[0..MaxGListSize] of T; TTypeList = array[0..MaxGListSize] of T;
PTypeList = ^TTypeList; PTypeList = ^TTypeList;
PT = ^T; PT = ^T;
protected {$ifndef OldSyntax}protected var{$else}var protected{$endif}
var
FOnCompare: TCompareFunc; FOnCompare: TCompareFunc;
FFreeObjects: Boolean; FFreeObjects: Boolean;
procedure CopyItem(Src, Dest: Pointer); override; procedure CopyItem(Src, Dest: Pointer); override;
@ -170,8 +172,7 @@ type
TTypeList = array[0..MaxGListSize] of T; TTypeList = array[0..MaxGListSize] of T;
PTypeList = ^TTypeList; PTypeList = ^TTypeList;
PT = ^T; PT = ^T;
protected {$ifndef OldSyntax}protected var{$else}var protected{$endif}
var
FOnCompare: TCompareFunc; FOnCompare: TCompareFunc;
procedure CopyItem(Src, Dest: Pointer); override; procedure CopyItem(Src, Dest: Pointer); override;
procedure Deref(Item: Pointer); override; procedure Deref(Item: Pointer); override;
@ -256,8 +257,7 @@ type
TDataCompareFunc = function(const Data1, Data2: TData): Integer; TDataCompareFunc = function(const Data1, Data2: TData): Integer;
PKey = ^TKey; PKey = ^TKey;
PData = ^TData; PData = ^TData;
protected {$ifndef OldSyntax}protected var{$else}var protected{$endif}
var
FOnKeyCompare: TKeyCompareFunc; FOnKeyCompare: TKeyCompareFunc;
FOnDataCompare: TDataCompareFunc; FOnDataCompare: TDataCompareFunc;
procedure CopyItem(Src, Dest: Pointer); override; procedure CopyItem(Src, Dest: Pointer); override;