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

* use Low(LongInt) and Max(LongInt) as min/max values for the RTTI of the ByteBool, WordBool and LongBool types to be Delphi compatible; the range of the defs is not changed to avoid the application of range checks

Browse Source 
git-svn-id: trunk@35184 -
This commit is contained in:
svenbarth 2016-12-23 16:01:59 +00:00
parent bec40e9a4a
commit 26e7d005aa
1 changed files with 17 additions and 7 deletions

24
compiler/ncgrtti.pas
View File

@ -622,7 +622,7 @@ implementation
procedure orddef_rtti(def:torddef);
procedure dointeger(typekind: byte);
procedure doint32_64(typekind: byte;min,max:int64);
const
trans : array[tordtype] of byte =
(otUByte{otNone},
@ -657,24 +657,29 @@ implementation
case trans[def.ordtype] of
otUQWord:
begin
tcb.emit_ord_const(def.low.uvalue,u64inttype);
tcb.emit_ord_const(int64(def.high.uvalue),u64inttype);
tcb.emit_ord_const(min,u64inttype);
tcb.emit_ord_const(max,u64inttype);
end;
otSQWord:
begin
tcb.emit_ord_const(def.low.svalue,s64inttype);
tcb.emit_ord_const(def.high.svalue,s64inttype);
tcb.emit_ord_const(min,s64inttype);
tcb.emit_ord_const(max,s64inttype);
end;
else
begin
tcb.emit_ord_const(longint(def.low.svalue),s32inttype);
tcb.emit_ord_const(longint(def.high.svalue),s32inttype);
tcb.emit_ord_const(longint(min),s32inttype);
tcb.emit_ord_const(longint(max),s32inttype);
end;
end;
tcb.end_anonymous_record;
tcb.end_anonymous_record;
end;
procedure dointeger(typekind:byte);inline;
begin
doint32_64(typekind,int64(def.low.svalue),int64(def.high.svalue));
end;
begin
case def.ordtype of
s64bit :
@ -683,6 +688,11 @@ implementation
dointeger(tkQWord);
pasbool8:
dointeger(tkBool);
{ use different low/high values to be Delphi compatible }
bool8bit,
bool16bit,
bool32bit:
doint32_64(tkInteger,longint(low(longint)),longint(high(longint)));
uchar:
dointeger(tkChar);
uwidechar: