Просмотр исходного кода

* have the remaining 7 Boolean types also use tkBool as typekind instead of tkInteger

git-svn-id: trunk@35186 -
svenbarth 8 лет назад
Родитель
Сommit
7023a6f95b
1 измененных файлов с 6 добавлено и 3 удалено
  1. 6 3
      compiler/ncgrtti.pas

+ 6 - 3
compiler/ncgrtti.pas

@@ -686,15 +686,18 @@ implementation
                 dointeger(tkInt64);
             u64bit :
                 dointeger(tkQWord);
-            pasbool8:
+            pasbool8,
+            pasbool16,
+            pasbool32,
+            pasbool64:
                 dointeger(tkBool);
             { use different low/high values to be Delphi compatible }
             bool8bit,
             bool16bit,
             bool32bit:
-                doint32_64(tkInteger,longint(low(longint)),longint(high(longint)));
+                doint32_64(tkBool,longint(low(longint)),longint(high(longint)));
             bool64bit:
-                doint32_64(tkInteger,low(int64),high(int64));
+                doint32_64(tkBool,low(int64),high(int64));
             uchar:
                 dointeger(tkChar);
             uwidechar: