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

* fixed low() for signed types < 64bit

Browse Source
This commit is contained in:
Jonas Maebe 2001-03-03 12:38:08 +00:00
parent b7970bf7a4
commit d6116bc751
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ninl.pas
View File

@ -138,7 +138,8 @@ implementation
{ because it's bigger than high(tconstexprint) (JM) }
v := 0
else
v := cardinal(v);
if not is_signed(adef) then
v := cardinal(v);
hp:=genordinalconstnode(v,adef);
firstpass(hp);
{ fix high(qword) }
@ -1535,7 +1536,10 @@ begin
end.
{
$Log$
Revision 1.28 2001-02-26 19:44:53 peter
Revision 1.29 2001-03-03 12:38:08 jonas
* fixed low() for signed types < 64bit
Revision 1.28 2001/02/26 19:44:53 peter
* merged generic m68k updates from fixes branch
Revision 1.27 2001/02/22 11:24:40 jonas