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

* fixed 64-bit float comparison

Browse Source 
git-svn-id: branches/wasm@48284 -
This commit is contained in:
nickysn 2021-01-21 21:50:19 +00:00
parent 7e958e0a35
commit 4b6cbde849
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/wasm32/nwasmadd.pas
View File

@ -166,35 +166,35 @@ interface
case nodetype of
ltn :
begin
if location.size=OS_F64 then
if left.location.size=OS_F64 then
op:=a_f64_lt
else
op:=a_f32_lt;
end;
lten :
begin
if location.size=OS_F64 then
if left.location.size=OS_F64 then
op:=a_f64_le
else
op:=a_f32_le;
end;
gtn :
begin
if location.size=OS_F64 then
if left.location.size=OS_F64 then
op:=a_f64_gt
else
op:=a_f32_gt;
end;
gten :
begin
if location.size=OS_F64 then
if left.location.size=OS_F64 then
op:=a_f64_ge
else
op:=a_f32_ge;
end;
equaln :
begin
if location.size=OS_F64 then
if left.location.size=OS_F64 then
op:=a_f64_eq
else
op:=a_f32_eq;
@ -202,7 +202,7 @@ interface
end;
unequaln :
begin
if location.size=OS_F64 then
if left.location.size=OS_F64 then
op:=a_f64_ne
else
op:=a_f32_ne;