소스 검색

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

git-svn-id: trunk@35186 -
svenbarth 8 년 전
부모
커밋
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: