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

m68k/n68kmat.pas, tm68kmoddivnode:

Browse Source 
+ add routine "call_rtl_moddiv_reg_reg" which handles the calling of "fpc_div_longint", "fpc_div_dword", "fpc_mod_longint" and "fpc_mod_dword"
  * emit_mod_reg_reg & emit_div_reg_reg: use the new method instead of doing the call oneself

=> "Str(SomeInt, SomeStr)" and "Writeln(SomeInt)" now works

git-svn-id: trunk@22893 -
This commit is contained in:
svenbarth 2012-10-31 21:27:05 +00:00
parent 49d953aea2
commit 772072d8c9
1 changed files with 28 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
compiler/m68k/n68kmat.pas
View File

@ -36,6 +36,9 @@ interface
end;
tm68kmoddivnode = class(tcgmoddivnode)
private
procedure call_rtl_divmod_reg_reg(denum,num:tregister;const name:string);
public
procedure emit_div_reg_reg(signed: boolean;denum,num : tregister);override;
procedure emit_mod_reg_reg(signed: boolean;denum,num : tregister);override;
end;
@ -140,6 +143,26 @@ implementation
end;
end;
procedure tm68kmoddivnode.call_rtl_divmod_reg_reg(denum,num:tregister;const name:string);
var
paraloc1,paraloc2 : tcgpara;
begin
paraloc1.init;
paraloc2.init;
paramanager.getintparaloc(pocall_default,1,u32inttype,paraloc1);
paramanager.getintparaloc(pocall_default,2,u32inttype,paraloc2);
cg.a_load_reg_cgpara(current_asmdata.CurrAsmList,OS_32,num,paraloc2);
cg.a_load_reg_cgpara(current_asmdata.CurrAsmList,OS_32,denum,paraloc1);
paramanager.freecgpara(current_asmdata.CurrAsmList,paraloc2);
paramanager.freecgpara(current_asmdata.CurrAsmList,paraloc1);
cg.alloccpuregisters(current_asmdata.CurrAsmList,R_INTREGISTER,paramanager.get_volatile_registers_int(pocall_default));
cg.a_call_name(current_asmdata.CurrAsmList,name,false);
cg.dealloccpuregisters(current_asmdata.CurrAsmList,R_INTREGISTER,paramanager.get_volatile_registers_int(pocall_default));
cg.a_reg_alloc(current_asmdata.CurrAsmList,NR_FUNCTION_RESULT_REG);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_32,OS_32,NR_FUNCTION_RESULT_REG,num);
paraloc2.done;
paraloc1.done;
end;
{*****************************************************************************
TM68KMODDIVNODE
@ -148,7 +171,7 @@ implementation
var
continuelabel : tasmlabel;
reg_d0,reg_d1 : tregister;
paraloc1 : tcgpara;
paraloc1,paraloc2 : tcgpara;
begin
{ no RTL call, so inline a zero denominator verification }
if current_settings.cputype=cpu_MC68020 then
@ -172,21 +195,10 @@ implementation
else
begin
{ On MC68000/68010/Coldfire we must pass through RTL routines }
reg_d0:=NR_D0;
cg.getcpuregister(current_asmdata.CurrAsmList,NR_D0);
reg_d1:=NR_D1;
cg.getcpuregister(current_asmdata.CurrAsmList,NR_D1);
{ put numerator in d0 }
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_INT,OS_INT,num,reg_d0);
{ put denum in D1 }
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_INT,OS_INT,denum,reg_d1);
if signed then
cg.a_call_name(current_asmdata.CurrAsmList,'FPC_DIV_LONGINT',false)
call_rtl_divmod_reg_reg(denum,num,'FPC_DIV_LONGINT')
else
cg.a_call_name(current_asmdata.CurrAsmList,'FPC_DIV_DWORD',false);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_INT,OS_INT,reg_d0,denum);
cg.ungetcpuregister(current_asmdata.CurrAsmList,reg_d0);
cg.ungetcpuregister(current_asmdata.CurrAsmList,reg_d1);
call_rtl_divmod_reg_reg(denum,num,'FPC_DIV_DWORD');
end;
end;
@ -235,21 +247,10 @@ implementation
else
begin
{ On MC68000/68010/coldfire we must pass through RTL routines }
Reg_d0:=NR_D0;
cg.getcpuregister(current_asmdata.CurrAsmList,NR_D0);
Reg_d1:=NR_D1;
cg.getcpuregister(current_asmdata.CurrAsmList,NR_D1);
{ put numerator in d0 }
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_INT,OS_INT,num,Reg_D0);
{ put denum in D1 }
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_INT,OS_INT,denum,Reg_D1);
if signed then
cg.a_call_name(current_asmdata.CurrAsmList,'FPC_MOD_LONGINT',false)
call_rtl_divmod_reg_reg(denum,num,'FPC_MOD_LONGINT')
else
cg.a_call_name(current_asmdata.CurrAsmList,'FPC_MOD_DWORD',false);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_INT,OS_INT,Reg_D0,denum);
cg.ungetcpuregister(current_asmdata.CurrAsmList,Reg_D0);
cg.ungetcpuregister(current_asmdata.CurrAsmList,Reg_D1);
call_rtl_divmod_reg_reg(denum,num,'FPC_MOD_DWORD');
end;
// writeln('exits');
end;