paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 17:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* qword(-int64) can cause an overflow error in case of low(int64). Harmless, so

Browse Source 
disable overflow checking around it.

git-svn-id: trunk@8124 -
This commit is contained in:
daniel 2007-07-22 08:32:49 +00:00
parent 74ad03e264
commit 6065bee1c2
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/constexp.pas
View File

@ -342,12 +342,16 @@ begin
result.overflow:=false;
sa:=a.signed and (a.svalue<0);
if sa then
{$Q-}
aa:=qword(-a.svalue)
{$ifdef ena_q}{$Q+}{$endif}
else
aa:=a.uvalue;
sb:=b.signed and (b.svalue<0);
if sb then
{$Q-}
bb:=qword(-b.svalue)
{$ifdef ena_q}{$Q+}{$endif}
else
bb:=b.uvalue;