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

+ set defines if fast fma is available

Browse Source 
git-svn-id: trunk@27768 -
This commit is contained in:
florian 2014-05-11 12:15:27 +00:00
parent 66f711ad09
commit 0bce584bae
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/options.pas
View File

@ -27,7 +27,7 @@ interface
uses uses
cfileutl, cfileutl,
globtype,globals,verbose,systems,cpuinfo, comprsrc; globtype,globals,verbose,systems,cpuinfo,comprsrc;
Type Type
TOption=class TOption=class
@ -3542,6 +3542,16 @@ if (target_info.abi = abi_eabihf) then
def_system_macro('FPC_HAS_INTERNAL_BSF'); def_system_macro('FPC_HAS_INTERNAL_BSF');
def_system_macro('FPC_HAS_INTERNAL_BSR'); def_system_macro('FPC_HAS_INTERNAL_BSR');
{$endif} {$endif}
{ hardware FMA support }
{$if defined(i386) or defined(x86_64)}
if (cpu_capabilities[current_settings.cputype]*[CPUX86_HAS_FMA,CPUX86_HAS_FMA4])<>[]
begin
def_system_macro('FPC_HAS_FAST_FMA_SINGLE');
def_system_macro('FPC_HAS_FAST_FMA_DOUBLE');
end;
{$endif defined(i386) or defined(x86_64)}
{$if defined(arm)} {$if defined(arm)}
{ it is determined during system unit compilation if clz is used for bsf or not, { it is determined during system unit compilation if clz is used for bsf or not,
this is not perfect but the current implementation bsf/bsr does not allow another this is not perfect but the current implementation bsf/bsr does not allow another