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

* partially applied patch by J. Gareth "Kit" Moreton to inline parts of cclasses, resolves #39344

Browse Source
This commit is contained in:
florian 2021-10-06 21:23:25 +02:00
parent e77bf0f3bd
commit d5867793f6
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cclasses.pas
View File

@ -230,7 +230,7 @@ type
function Extract(item: Pointer): Pointer;
function IndexOf(Item: Pointer): Integer;
function Find(const AName:TSymStr): Pointer;
function FindIndexOf(const AName:TSymStr): Integer;
function FindIndexOf(const AName:TSymStr): Integer; {$ifdef CCLASSESINLINE}inline;{$endif}
function FindWithHash(const AName:TSymStr;AHash:LongWord): Pointer;
function Rename(const AOldName,ANewName:TSymStr): Integer;
function Remove(Item: Pointer): Integer;
@ -284,7 +284,7 @@ type
FFreeObjects : Boolean;
FHashList: TFPHashList;
function GetCount: integer; {$ifdef CCLASSESINLINE}inline;{$endif}
procedure SetCount(const AValue: integer);
procedure SetCount(const AValue: integer); {$ifdef CCLASSESINLINE}inline;{$endif}
protected
function GetItem(Index: Integer): TObject; {$ifdef CCLASSESINLINE}inline;{$endif}
procedure SetItem(Index: Integer; AObject: TObject);
@ -305,7 +305,7 @@ type
function IndexOf(AObject: TObject): Integer; {$ifdef CCLASSESINLINE}inline;{$endif}
function Find(const s:TSymStr): TObject; {$ifdef CCLASSESINLINE}inline;{$endif}
function FindIndexOf(const s:TSymStr): Integer; {$ifdef CCLASSESINLINE}inline;{$endif}
function FindWithHash(const AName:TSymStr;AHash:LongWord): Pointer;
function FindWithHash(const AName:TSymStr;AHash:LongWord): Pointer; {$ifdef CCLASSESINLINE}inline;{$endif}
function Rename(const AOldName,ANewName:TSymStr): Integer; {$ifdef CCLASSESINLINE}inline;{$endif}
function FindInstanceOf(AClass: TClass; AExact: Boolean; AStartAt: Integer): Integer;
procedure Pack; {$ifdef CCLASSESINLINE}inline;{$endif}
@ -465,7 +465,7 @@ type
constructor Create(Ablocksize:longword);
destructor Destroy;override;
procedure reset;
function size:longword;
function size:longword; {$ifdef CCLASSESINLINE}inline;{$endif}
procedure align(i:longword);
procedure seek(i:longword);
function read(var d;len:longword):longword;
@ -571,7 +571,7 @@ type
constructor create(initsize: longint);
constructor create_bytesize(bytesize: longint);
destructor destroy; override;
procedure clear;
procedure clear; {$ifdef CCLASSESINLINE}inline;{$endif}
procedure grow(nsize: longint);
{ sets a bit }
procedure include(index: longint);