paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 14:47:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

* make sure that comparisons with NaN always return false

Browse Source 
git-svn-id: branches/jvmbackend@18332 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:47:21 +00:00
parent f250d5d494
commit a1c50d0576
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/jvm/njvmadd.pas
View File

@ -183,7 +183,13 @@ interface
{ compares two floating point values and puts 1/0/-1 on stack depending
on whether value1 >/=/< value2 }
if left.location.size=OS_F64 then
op:=a_dcmpl
{ make sure that comparisons with NaNs always return false for </> }
if nodetype in [ltn,lten] then
op:=a_dcmpg
else
op:=a_dcmpl
else if nodetype in [ltn,lten] then
op:=a_fcmpg
else
op:=a_fcmpl;
current_asmdata.CurrAsmList.concat(taicpu.op_none(op));