paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 11:09:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: implemented in_int_real support

Browse Source 
git-svn-id: trunk@34993 -
This commit is contained in:
Károly Balogh 2016-11-27 17:50:10 +00:00
parent c3e68d6b2d
commit 4ee06e7bec
1 changed files with 27 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/m68k/n68kinl.pas
View File

@ -37,6 +37,7 @@ interface
function first_ln_real: tnode; override;} function first_ln_real: tnode; override;}
function first_cos_real: tnode; override; function first_cos_real: tnode; override;
function first_sin_real: tnode; override; function first_sin_real: tnode; override;
function first_int_real: tnode; override;
procedure second_abs_real; override; procedure second_abs_real; override;
procedure second_sqr_real; override; procedure second_sqr_real; override;
@ -45,6 +46,7 @@ interface
procedure second_ln_real; override;} procedure second_ln_real; override;}
procedure second_cos_real; override; procedure second_cos_real; override;
procedure second_sin_real; override; procedure second_sin_real; override;
procedure second_int_real; override;
{procedure second_prefetch; override; {procedure second_prefetch; override;
procedure second_abs_long; override;} procedure second_abs_long; override;}
private private
@ -154,6 +156,23 @@ implementation
end; end;
end; end;
function t68kinlinenode.first_int_real : tnode;
begin
if (cs_fp_emulation in current_settings.moduleswitches) then
result:=inherited first_int_real
else
begin
case current_settings.fputype of
fpu_68881,fpu_coldfire:
expectloc:=LOC_FPUREGISTER;
else
internalerror(2016112701);
end;
first_int_real:=nil;
end;
end;
procedure t68kinlinenode.second_abs_real; procedure t68kinlinenode.second_abs_real;
begin begin
//current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('second_abs_real called!'))); //current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('second_abs_real called!')));
@ -191,16 +210,22 @@ implementation
procedure t68kinlinenode.second_sin_real; procedure t68kinlinenode.second_sin_real;
begin begin
//current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('second_sqrt_real called!'))); //current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('second_sin_real called!')));
second_do_operation(A_FSIN); second_do_operation(A_FSIN);
end; end;
procedure t68kinlinenode.second_cos_real; procedure t68kinlinenode.second_cos_real;
begin begin
//current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('second_sqrt_real called!'))); //current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('second_cos_real called!')));
second_do_operation(A_FCOS); second_do_operation(A_FCOS);
end; end;
procedure t68kinlinenode.second_int_real;
begin
//current_asmdata.CurrAsmList.concat(tai_comment.create(strpnew('second_int_real called!')));
second_do_operation(A_FINTRZ);
end;
procedure t68kinlinenode.second_do_operation(op: TAsmOp); procedure t68kinlinenode.second_do_operation(op: TAsmOp);
var var
href: TReference; href: TReference;