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

* partial fix for Mantis #35346: more "inline" directives for TCStream and TCMemoryStream methods

Browse Source 
git-svn-id: trunk@42303 -
This commit is contained in:
svenbarth 2019-06-28 13:30:33 +00:00
parent 7ef3d39d93
commit a578993234
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
compiler/cstreams.pas
View File

@ -67,8 +67,8 @@ type
TCStream = class(TObject) TCStream = class(TObject)
private private
function GetPosition: Longint; function GetPosition: Longint; {$ifdef USEINLINE}inline;{$endif}
procedure SetPosition(Pos: Longint); procedure SetPosition(Pos: Longint); {$ifdef USEINLINE}inline;{$endif}
function GetSize: Longint; function GetSize: Longint;
protected protected
procedure SetSize(NewSize: Longint); virtual; procedure SetSize(NewSize: Longint); virtual;
@ -79,22 +79,22 @@ type
procedure ReadBuffer(var Buffer; Count: Longint); procedure ReadBuffer(var Buffer; Count: Longint);
procedure WriteBuffer(const Buffer; Count: Longint); procedure WriteBuffer(const Buffer; Count: Longint);
function CopyFrom(Source: TCStream; Count: Longint): Longint; function CopyFrom(Source: TCStream; Count: Longint): Longint;
function ReadComponent(Instance: TCComponent): TCComponent; function ReadComponent(Instance: TCComponent): TCComponent; {$ifdef USEINLINE}inline;{$endif}
function ReadComponentRes(Instance: TCComponent): TCComponent; function ReadComponentRes(Instance: TCComponent): TCComponent; {$ifdef USEINLINE}inline;{$endif}
procedure WriteComponent(Instance: TCComponent); procedure WriteComponent(Instance: TCComponent); {$ifdef USEINLINE}inline;{$endif}
procedure WriteComponentRes(const ResName: string; Instance: TCComponent); procedure WriteComponentRes(const ResName: string; Instance: TCComponent); {$ifdef USEINLINE}inline;{$endif}
procedure WriteDescendent(Instance, Ancestor: TCComponent); procedure WriteDescendent(Instance, Ancestor: TCComponent); {$ifdef USEINLINE}inline;{$endif}
procedure WriteDescendentRes(const ResName: string; Instance, Ancestor: TCComponent); procedure WriteDescendentRes(const ResName: string; Instance, Ancestor: TCComponent); {$ifdef USEINLINE}inline;{$endif}
procedure WriteResourceHeader(const ResName: string; {!!!:out} var FixupInfo: Integer); procedure WriteResourceHeader(const ResName: string; {!!!:out} var FixupInfo: Integer); {$ifdef USEINLINE}inline;{$endif}
procedure FixupResourceHeader(FixupInfo: Integer); procedure FixupResourceHeader(FixupInfo: Integer); {$ifdef USEINLINE}inline;{$endif}
procedure ReadResHeader; procedure ReadResHeader; {$ifdef USEINLINE}inline;{$endif}
function ReadByte : Byte; function ReadByte : Byte; {$ifdef USEINLINE}inline;{$endif}
function ReadWord : Word; function ReadWord : Word; {$ifdef USEINLINE}inline;{$endif}
function ReadDWord : Cardinal; function ReadDWord : Cardinal; {$ifdef USEINLINE}inline;{$endif}
function ReadAnsiString : AnsiString; function ReadAnsiString : AnsiString;
procedure WriteByte(b : Byte); procedure WriteByte(b : Byte); {$ifdef USEINLINE}inline;{$endif}
procedure WriteWord(w : Word); procedure WriteWord(w : Word); {$ifdef USEINLINE}inline;{$endif}
procedure WriteDWord(d : Cardinal); procedure WriteDWord(d : Cardinal); {$ifdef USEINLINE}inline;{$endif}
Procedure WriteAnsiString (S : AnsiString); Procedure WriteAnsiString (S : AnsiString);
property Position: Longint read GetPosition write SetPosition; property Position: Longint read GetPosition write SetPosition;
property Size: Longint read GetSize write SetSize; property Size: Longint read GetSize write SetSize;
@ -153,11 +153,11 @@ type
FMemory: Pointer; FMemory: Pointer;
FSize, FPosition: Longint; FSize, FPosition: Longint;
protected protected
procedure SetPointer(Ptr: Pointer; ASize: Longint); procedure SetPointer(Ptr: Pointer; ASize: Longint); {$ifdef USEINLINE}inline;{$endif}
public public
function Read(var Buffer; Count: Longint): Longint; override; function Read(var Buffer; Count: Longint): Longint; override;
function Seek(Offset: Longint; Origin: Word): Longint; override; function Seek(Offset: Longint; Origin: Word): Longint; override;
procedure SaveToStream(Stream: TCStream); procedure SaveToStream(Stream: TCStream); {$ifdef USEINLINE}inline;{$endif}
procedure SaveToFile(const FileName: string); procedure SaveToFile(const FileName: string);
property Memory: Pointer read FMemory; property Memory: Pointer read FMemory;
end; end;