paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:09:17 +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;
public
procedure second_addfloat;override;
{$ifndef i8086}
procedure second_addsmallset;override;
{$endif not i8086}
procedure second_add64bit;override;
procedure second_cmpfloat;override;
procedure second_cmpsmallset;override;
@ -332,6 +334,7 @@ unit nx86add;
AddSmallSet
*****************************************************************************}
{$ifndef i8086}
procedure tx86addnode.second_addsmallset;
var
setbase : aint;
@ -439,6 +442,7 @@ unit nx86add;
if opsize<>int_cgsize(resultdef.size) then
hlcg.location_force_reg(current_asmdata.CurrAsmList,location,opdef,hlcg.tcgsize2orddef(int_cgsize(resultdef.size)),false);
end;
{$endif not i8086}
procedure tx86addnode.second_cmpsmallset;