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

* fix rangecheck error when assigning u32bit=s32bit

Browse Source
This commit is contained in:
peter 2004-07-03 11:47:04 +00:00
parent 75b90eb128
commit 2240dfda57
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cgobj.pas
View File

@ -1860,7 +1860,7 @@ implementation
{ from is signed and to is unsigned -> when looking at to } { from is signed and to is unsigned -> when looking at to }
{ as an signed value, it must be < maxaint (otherwise } { as an signed value, it must be < maxaint (otherwise }
{ it will become negative, which is invalid since "to" is unsigned) } { it will become negative, which is invalid since "to" is unsigned) }
if hto < 0 then if hto > aintmax then
hto := aintmax; hto := aintmax;
end end
else else
@ -2174,7 +2174,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.166 2004-06-20 08:55:28 florian Revision 1.167 2004-07-03 11:47:04 peter
* fix rangecheck error when assigning u32bit=s32bit
Revision 1.166 2004/06/20 08:55:28 florian
* logs truncated * logs truncated
Revision 1.165 2004/06/16 20:07:07 florian Revision 1.165 2004/06/16 20:07:07 florian