paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 15:09:27 +01: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 begin
{ low } { low }
rttiList.concat(Tai_const.Create_32bit($0)); rttiList.concat(Tai_const.Create_32bit($0));
rttiList.concat(Tai_const.Create_32bit($80000000)); rttiList.concat(Tai_const.Create_32bit(longint($80000000)));
{ high } { high }
rttiList.concat(Tai_const.Create_32bit($ffffffff)); rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
rttiList.concat(Tai_const.Create_32bit($7fffffff)); rttiList.concat(Tai_const.Create_32bit($7fffffff));
end end
else else
begin begin
{ low } { low }
rttiList.concat(Tai_const.Create_32bit($80000000)); rttiList.concat(Tai_const.Create_32bit(longint($80000000)));
rttiList.concat(Tai_const.Create_32bit($0)); rttiList.concat(Tai_const.Create_32bit($0));
{ high } { high }
rttiList.concat(Tai_const.Create_32bit($7fffffff)); rttiList.concat(Tai_const.Create_32bit($7fffffff));
rttiList.concat(Tai_const.Create_32bit($ffffffff)); rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
end; end;
end; end;
u64bit : u64bit :
@ -1792,8 +1792,8 @@ implementation
rttiList.concat(Tai_const.Create_32bit($0)); rttiList.concat(Tai_const.Create_32bit($0));
rttiList.concat(Tai_const.Create_32bit($0)); rttiList.concat(Tai_const.Create_32bit($0));
{ high } { high }
rttiList.concat(Tai_const.Create_32bit($ffffffff)); rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
rttiList.concat(Tai_const.Create_32bit($ffffffff)); rttiList.concat(Tai_const.Create_32bit(longint($ffffffff)));
end; end;
bool8bit: bool8bit:
begin begin
@ -5517,7 +5517,10 @@ implementation
end. end.
{ {
$Log$ $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) * fixed rtti for int64 (merged)
Revision 1.102 2002/11/15 01:58:54 peter Revision 1.102 2002/11/15 01:58:54 peter