paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 06:03:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@35186 -
This commit is contained in:
svenbarth 2016-12-23 16:05:14 +00:00
parent dbbb6dca32
commit 7023a6f95b
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncgrtti.pas
View File

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