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

* enabled internal sar support for sparc and mips as well

Browse Source 
git-svn-id: trunk@14867 -
This commit is contained in:
florian 2010-02-04 22:04:19 +00:00
parent f8bf268406
commit 34f976afea
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/options.pas
View File

@ -2420,9 +2420,10 @@ begin
{$endif}
{ these cpus have an inline sar implementaion }
{$if defined(x86) or defined(arm) or defined(powerpc) or defined(powerpc64)}
{ currently, all supported CPUs have an internal sar implementation }
{ $if defined(x86) or defined(arm) or defined(powerpc) or defined(powerpc64) or defined(sparc)}
def_system_macro('FPC_HAS_INTERNAL_SAR');
{$endif}
{ $endif}
{$ifdef powerpc64}
def_system_macro('FPC_HAS_LWSYNC');

5
rtl/inc/systemh.inc
View File

@ -717,9 +717,10 @@ function RolQWord(Const AValue : QWord;Dist : Byte): QWord;{$ifdef SYSTEMINLINE}
{$define FPC_HAS_INTERNAL_SAR_WORD}
{$endif defined(cpux86_64) or defined(cpui386)}
{$if defined(cpux86_64) or defined(cpui386) or defined(arm) or defined(powerpc) or defined(powerpc64)}
{ currently, all supported CPUs have an internal 32 bit sar implementation }
{ $if defined(cpux86_64) or defined(cpui386) or defined(arm) or defined(powerpc) or defined(powerpc64)}
{$define FPC_HAS_INTERNAL_SAR_DWORD}
{$endif defined(cpux86_64) or defined(cpui386) or defined(arm) or defined(powerpc) or defined(powerpc64)}
{ $endif defined(cpux86_64) or defined(cpui386) or defined(arm) or defined(powerpc) or defined(powerpc64)}
{$if defined(cpux86_64) or defined(powerpc64)}
{$define FPC_HAS_INTERNAL_SAR_QWORD}