From 4717d78ac378816e0239dd9bf7b79f65a52c384c Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Fri, 23 Dec 2016 16:26:16 +0000
Subject: [PATCH] * 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 -
---
 rtl/objpas/typinfo.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rtl/objpas/typinfo.pp b/rtl/objpas/typinfo.pp
index 748aed194e..7129aacc69 100644
--- a/rtl/objpas/typinfo.pp
+++ b/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}