mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 02:48:07 +02:00
* updated the a_fXX_convert_su_iYY asm ops to their modern format a_fXX_convert_iYY_su
git-svn-id: branches/wasm@48321 -
This commit is contained in:
parent
9acfdc8cdd
commit
60242ca0fd
@ -73,8 +73,8 @@ uses
|
||||
a_i32_trunc_s_f32, a_i32_trunc_s_f64, a_i64_trunc_s_f32, a_i64_trunc_s_f64,
|
||||
a_i32_trunc_u_f32, a_i32_trunc_u_f64, a_i64_trunc_u_f32, a_i64_trunc_u_f64,
|
||||
a_f32_demote_f64, a_f64_promote_f32,
|
||||
a_f32_convert_s_i32, a_f32_convert_s_i64,a_f64_convert_s_i32,a_f64_convert_s_i64,
|
||||
a_f32_convert_u_i32, a_f32_convert_u_i64,a_f64_convert_u_i32,a_f64_convert_u_i64,
|
||||
a_f32_convert_i32_s, a_f32_convert_i64_s,a_f64_convert_i32_s,a_f64_convert_i64_s,
|
||||
a_f32_convert_i32_u, a_f32_convert_i64_u,a_f64_convert_i32_u,a_f64_convert_i64_u,
|
||||
a_i32_reinterpret_f32, a_i64_reinterpret_f64, a_f32_reinterpret_i32, a_f64_reinterpret_i64,
|
||||
// load/store
|
||||
a_i32_load, a_i64_load, a_f32_load, a_f64_load,
|
||||
|
@ -79,17 +79,17 @@ implementation
|
||||
is_currency(left.resultdef) then
|
||||
begin
|
||||
if is_signed(left.resultdef) then
|
||||
op:=a_f32_convert_s_i64
|
||||
op:=a_f32_convert_i64_s
|
||||
else
|
||||
op:=a_f32_convert_u_i64;
|
||||
op:=a_f32_convert_i64_u;
|
||||
end
|
||||
else
|
||||
{ other integers are supposed to be 32 bit }
|
||||
begin
|
||||
if is_signed(left.resultdef) then
|
||||
op:=a_f32_convert_s_i32
|
||||
op:=a_f32_convert_i32_s
|
||||
else
|
||||
op:=a_f32_convert_u_i32;
|
||||
op:=a_f32_convert_i32_u;
|
||||
end;
|
||||
end;
|
||||
s64real:
|
||||
@ -98,17 +98,17 @@ implementation
|
||||
is_currency(left.resultdef) then
|
||||
begin
|
||||
if is_signed(left.resultdef) then
|
||||
op:=a_f64_convert_s_i64
|
||||
op:=a_f64_convert_i64_s
|
||||
else
|
||||
op:=a_f64_convert_u_i64;
|
||||
op:=a_f64_convert_i64_u;
|
||||
end
|
||||
else
|
||||
{ other integers are supposed to be 32 bit }
|
||||
begin
|
||||
if is_signed(left.resultdef) then
|
||||
op:=a_f64_convert_s_i32
|
||||
op:=a_f64_convert_i32_s
|
||||
else
|
||||
op:=a_f64_convert_u_i32;
|
||||
op:=a_f64_convert_i32_u;
|
||||
end;
|
||||
end;
|
||||
else
|
||||
|
Loading…
Reference in New Issue
Block a user