Browse Source

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

Sven Barth 3 years ago
parent
commit
b7034cb960
1 changed files with 34 additions and 33 deletions
  1. 34 33
      packages/rtl-objpas/src/inc/syshelpers.pp

+ 34 - 33
packages/rtl-objpas/src/inc/syshelpers.pp

@@ -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.