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

* move Boolean helpers before the ordinal ones so that ToOneZeroString can be inlined correctly

Browse Source 
(cherry picked from commit b7034cb960)
This commit is contained in:
Sven Barth 2021-12-01 23:38:29 +01:00 committed by marcoonthegit
parent 28006018ac
commit 9ad4acc8bd
1 changed files with 34 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
packages/rtl-objpas/src/inc/syshelpers.pp
View File

@ -247,6 +247,40 @@ end;
////////////////////// //////////////////////
{ ---------------------------------------------------------------------
TBooleanSysHelper
---------------------------------------------------------------------}
{$define TBOOLHELPER:=TBooleanSysHelper}
{$define TBOOLTYPE:=Boolean}
{$i syshelpersb.inc}
{ ---------------------------------------------------------------------
TByteBoolSysHelper
---------------------------------------------------------------------}
{$define TBOOLHELPER:=TByteBoolSysHelper}
{$define TBOOLTYPE:=ByteBool}
{$i syshelpersb.inc}
{ ---------------------------------------------------------------------
TWordBoolSysHelper
---------------------------------------------------------------------}
{$define TBOOLHELPER:=TWordBoolSysHelper}
{$define TBOOLTYPE:=WordBool}
{$i syshelpersb.inc}
{ ---------------------------------------------------------------------
TLongBoolSysHelper
---------------------------------------------------------------------}
{$define TBOOLHELPER:=TLongBoolSysHelper}
{$define TBOOLTYPE:=LongBool}
{$i syshelpersb.inc}
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------
TByteSysHelper TByteSysHelper
---------------------------------------------------------------------} ---------------------------------------------------------------------}
@ -341,38 +375,5 @@ end;
{$define TORDINALNIBBLEINDEX:=TNativeUIntNibbleIndex} {$define TORDINALNIBBLEINDEX:=TNativeUIntNibbleIndex}
{$i syshelperso.inc} {$i syshelperso.inc}
{ ---------------------------------------------------------------------
TBooleanSysHelper
---------------------------------------------------------------------}
{$define TBOOLHELPER:=TBooleanSysHelper}
{$define TBOOLTYPE:=Boolean}
{$i syshelpersb.inc}
{ ---------------------------------------------------------------------
TByteBoolSysHelper
---------------------------------------------------------------------}
{$define TBOOLHELPER:=TByteBoolSysHelper}
{$define TBOOLTYPE:=ByteBool}
{$i syshelpersb.inc}
{ ---------------------------------------------------------------------
TWordBoolSysHelper
---------------------------------------------------------------------}
{$define TBOOLHELPER:=TWordBoolSysHelper}
{$define TBOOLTYPE:=WordBool}
{$i syshelpersb.inc}
{ ---------------------------------------------------------------------
TLongBoolSysHelper
---------------------------------------------------------------------}
{$define TBOOLHELPER:=TLongBoolSysHelper}
{$define TBOOLTYPE:=LongBool}
{$i syshelpersb.inc}
end. end.