Parcourir la source

* as restructuring TTypeData to correctly layout tkBool for 64-bit Booleans is basically impossible at least add a comment for tkBool to the tkInt64 and tkQWord branches

git-svn-id: trunk@35188 -
svenbarth il y a 8 ans
Parent
commit
4717d78ac3
1 fichiers modifiés avec 2 ajouts et 0 suppressions
  1. 2 0
      rtl/objpas/typinfo.pp

+ 2 - 0
rtl/objpas/typinfo.pp

@@ -279,8 +279,10 @@ unit typinfo;
                         {EnumUnitName: ShortString;})
                     );
 {$ifndef VER3_0}
+                  {tkBool with OrdType=otSQWord }
                   tkInt64:
                     (MinInt64Value, MaxInt64Value: Int64);
+                  {tkBool with OrdType=otUQWord }
                   tkQWord:
                     (MinQWordValue, MaxQWordValue: QWord);
 {$endif VER3_0}