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

+ UseAVX check

Browse Source 
git-svn-id: trunk@22642 -
This commit is contained in:
florian 2012-10-14 14:04:31 +00:00
parent c57f463ede
commit d7e0f07aab
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/cgx86.pas
View File

@ -150,6 +150,8 @@ unit cgx86;
winstackpagesize = 4096;
{$endif NOTARGETWIN}
function UseAVX: boolean;
implementation
uses
@ -158,6 +160,11 @@ unit cgx86;
tgobj,ncgutil,
fmodule,symsym;
function UseAVX: boolean;
begin
Result:=current_settings.fputype in [fpu_avx];
end;
const
TOpCG2AsmOp: Array[topcg] of TAsmOp = (A_NONE,A_MOV,A_ADD,A_AND,A_DIV,
A_IDIV,A_IMUL,A_MUL,A_NEG,A_NOT,A_OR,