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

* use the generic tcgaddnode.second_addsmallset on i8086, because the BTx instructions are 386+

Browse Source 
git-svn-id: branches/i8086@23895 -
This commit is contained in:
nickysn 2013-03-17 15:40:54 +00:00
parent a68dfed450
commit e6c8ac6694
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/nx86add.pas
View File

@ -44,7 +44,9 @@ unit nx86add;
procedure second_addfloatsse; procedure second_addfloatsse;
public public
procedure second_addfloat;override; procedure second_addfloat;override;
{$ifndef i8086}
procedure second_addsmallset;override; procedure second_addsmallset;override;
{$endif not i8086}
procedure second_add64bit;override; procedure second_add64bit;override;
procedure second_cmpfloat;override; procedure second_cmpfloat;override;
procedure second_cmpsmallset;override; procedure second_cmpsmallset;override;
@ -332,6 +334,7 @@ unit nx86add;
AddSmallSet AddSmallSet
*****************************************************************************} *****************************************************************************}
{$ifndef i8086}
procedure tx86addnode.second_addsmallset; procedure tx86addnode.second_addsmallset;
var var
setbase : aint; setbase : aint;
@ -439,6 +442,7 @@ unit nx86add;
if opsize<>int_cgsize(resultdef.size) then if opsize<>int_cgsize(resultdef.size) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,location,opdef,hlcg.tcgsize2orddef(int_cgsize(resultdef.size)),false); hlcg.location_force_reg(current_asmdata.CurrAsmList,location,opdef,hlcg.tcgsize2orddef(int_cgsize(resultdef.size)),false);
end; end;
{$endif not i8086}
procedure tx86addnode.second_cmpsmallset; procedure tx86addnode.second_cmpsmallset;