paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 07:34:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* TObject.InitInstance got very big so inlining has no advantage anymore, resolves #39494

Browse Source
This commit is contained in:
florian 2021-12-25 19:06:37 +01:00
parent cafd708b6d
commit c0979bbc0c
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/objpas.inc
View File

@ -377,7 +377,7 @@
end;
end;
class function TObject.InitInstance(instance : pointer) : tobject; {$ifdef SYSTEMINLINE} inline; {$ENDIF}
class function TObject.InitInstance(instance : pointer) : tobject;
{$ifndef VER3_0}
var

16
rtl/inc/objpash.inc
View File

@ -215,7 +215,7 @@
procedure DefaultHandler(var message);virtual;
procedure Free;
class function InitInstance(instance : pointer) : tobject; {$ifdef SYSTEMINLINE} inline; {$endif}
class function InitInstance(instance : pointer) : tobject;
procedure CleanupInstance;
class function ClassType : tclass;{$ifdef SYSTEMINLINE}inline;{$endif}
class function ClassInfo : pointer;
@ -444,20 +444,20 @@
UnsafeAttribute = class(TCustomAttribute);
RefAttribute = class(TCustomAttribute);
VolatileAttribute = class(TCustomAttribute);
StoredAttribute = Class(TCustomAttribute)
Private
FFlag : Boolean;
FName : String;
Public
Constructor Create;
Constructor Create(Const aFlag : Boolean);
Constructor Create(Const aName : String);
Constructor Create;
Constructor Create(Const aFlag : Boolean);
Constructor Create(Const aName : String);
Property Flag : Boolean Read FFlag;
Property Name : String Read FName;
Property Name : String Read FName;
end;
Const
ExceptProc : TExceptProc = Nil;
RaiseProc : TExceptProc = Nil;