paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 13:45:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid Range check errors

Browse Source
This commit is contained in:
carl 2002-11-16 19:53:18 +00:00
parent 4595fb4663
commit 766e56fffc
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/symdef.pas
View File

@ -1769,19 +1769,19 @@ implementation
begin
{ low }
rttiList.concat(Tai_const.Create_32bit($0));
rttiList.concat(Tai_const.Create_32bit($80000000));
rttiList.concat(Tai_const.Create_32bit(longint($80000000)));
{ high }
rttiList.concat(Tai_const.Create_32bit($ffffffff));
rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
rttiList.concat(Tai_const.Create_32bit($7fffffff));
end
else
begin
{ low }
rttiList.concat(Tai_const.Create_32bit($80000000));
rttiList.concat(Tai_const.Create_32bit(longint($80000000)));
rttiList.concat(Tai_const.Create_32bit($0));
{ high }
rttiList.concat(Tai_const.Create_32bit($7fffffff));
rttiList.concat(Tai_const.Create_32bit($ffffffff));
rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
end;
end;
u64bit :
@ -1792,8 +1792,8 @@ implementation
rttiList.concat(Tai_const.Create_32bit($0));
rttiList.concat(Tai_const.Create_32bit($0));
{ high }
rttiList.concat(Tai_const.Create_32bit($ffffffff));
rttiList.concat(Tai_const.Create_32bit($ffffffff));
rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
end;
bool8bit:
begin
@ -5517,7 +5517,10 @@ implementation
end.
{
$Log$
Revision 1.103 2002-11-15 16:29:09 peter
Revision 1.104 2002-11-16 19:53:18 carl
* avoid Range check errors
Revision 1.103 2002/11/15 16:29:09 peter
* fixed rtti for int64 (merged)
Revision 1.102 2002/11/15 01:58:54 peter