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

* x86-64 and i386 use the popcnt instruction of possible

Browse Source 
git-svn-id: trunk@22291 -
This commit is contained in:
florian 2012-09-02 20:59:48 +00:00
parent ff12d63248
commit 76bea5c4fd
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/x86/nx86inl.pas
View File

@ -172,9 +172,17 @@ implementation
end;
end;
function tx86inlinenode.first_popcnt: tnode;
begin
Result:=inherited first_popcnt;
Result:=nil;
if (current_settings.fputype<fpu_sse42)
{$ifdef i386}
or is_64bit(left.resultdef) then
{$endif i386}
Result:=inherited first_popcnt
else
expectloc:=LOC_REGISTER;
end;