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

m68k: enable hardware divisions for all '020+, not only 020 itself

Browse Source 
git-svn-id: trunk@33810 -
This commit is contained in:
Károly Balogh 2016-05-26 10:38:08 +00:00
parent aa63aa95bb
commit 6706445cb4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/m68k/n68kmat.pas
View File

@ -142,7 +142,7 @@ implementation
function tm68kmoddivnode.first_moddivint: tnode; function tm68kmoddivnode.first_moddivint: tnode;
begin begin
if current_settings.cputype=cpu_MC68020 then if current_settings.cputype in cpu_mc68020p then
result:=nil result:=nil
else else
result:=inherited first_moddivint; result:=inherited first_moddivint;
@ -151,7 +151,7 @@ implementation
procedure tm68kmoddivnode.emit_div_reg_reg(signed: boolean;denum,num : tregister); procedure tm68kmoddivnode.emit_div_reg_reg(signed: boolean;denum,num : tregister);
begin begin
if current_settings.cputype=cpu_MC68020 then if current_settings.cputype in cpu_mc68020p then
begin begin
if signed then if signed then
current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_DIVS,S_L,denum,num)) current_asmdata.CurrAsmList.concat(taicpu.op_reg_reg(A_DIVS,S_L,denum,num))
@ -167,7 +167,7 @@ implementation
var var
tmpreg : tregister; tmpreg : tregister;
begin begin
if current_settings.cputype=cpu_MC68020 then if current_settings.cputype in cpu_mc68020p then
begin begin
tmpreg:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT); tmpreg:=cg.getintregister(current_asmdata.CurrAsmList,OS_INT);
{ copy the numerator to the tmpreg, so we can use it as quotient, which { copy the numerator to the tmpreg, so we can use it as quotient, which