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

* fix in testrange so that 64bit constants are properly truncated when

Browse Source 
assigned to 32bit vars
This commit is contained in:
Jonas Maebe 2000-11-13 14:42:41 +00:00
parent 80c0edc14f
commit a5f9476ddf
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/types.pas
View File

@ -821,6 +821,7 @@ implementation
case def^.size of
1: l := l and $ff;
2: l := l and $ffff;
4: l := l and $ffffffff;
end
{ l:=lv+(l mod (hv-lv+1));}
end;
@ -1719,7 +1720,11 @@ implementation
end.
{
$Log$
Revision 1.22 2000-11-13 11:30:55 florian
Revision 1.23 2000-11-13 14:42:41 jonas
* fix in testrange so that 64bit constants are properly truncated when
assigned to 32bit vars
Revision 1.22 2000/11/13 11:30:55 florian
* some bugs with interfaces and NIL fixed
Revision 1.21 2000/11/12 23:24:12 florian