paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:30:35 +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 case nodetype of
ltn : ltn :
begin begin
if location.size=OS_F64 then if left.location.size=OS_F64 then
op:=a_f64_lt op:=a_f64_lt
else else
op:=a_f32_lt; op:=a_f32_lt;
end; end;
lten : lten :
begin begin
if location.size=OS_F64 then if left.location.size=OS_F64 then
op:=a_f64_le op:=a_f64_le
else else
op:=a_f32_le; op:=a_f32_le;
end; end;
gtn : gtn :
begin begin
if location.size=OS_F64 then if left.location.size=OS_F64 then
op:=a_f64_gt op:=a_f64_gt
else else
op:=a_f32_gt; op:=a_f32_gt;
end; end;
gten : gten :
begin begin
if location.size=OS_F64 then if left.location.size=OS_F64 then
op:=a_f64_ge op:=a_f64_ge
else else
op:=a_f32_ge; op:=a_f32_ge;
end; end;
equaln : equaln :
begin begin
if location.size=OS_F64 then if left.location.size=OS_F64 then
op:=a_f64_eq op:=a_f64_eq
else else
op:=a_f32_eq; op:=a_f32_eq;
@ -202,7 +202,7 @@ interface
end; end;
unequaln : unequaln :
begin begin
if location.size=OS_F64 then if left.location.size=OS_F64 then
op:=a_f64_ne op:=a_f64_ne
else else
op:=a_f32_ne; op:=a_f32_ne;