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

+ add memory barrier routines for powerpc/64

Browse Source 
git-svn-id: trunk@8179 -
This commit is contained in:
micha 2007-07-28 12:47:48 +00:00
parent ca11d53d0e
commit 7475f656f8
3 changed files with 56 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/generic.inc
View File

@ -1573,3 +1573,19 @@ function NtoLE(const AValue: QWord): QWord;{$ifdef SYSTEMINLINE}inline;{$endif}
Result := SwapEndian(AValue);
{$ENDIF}
end;
{$ifndef FPC_SYSTEM_HAS_MEM_BARRIER}
procedure ReadBarrier;{$ifdef SYSTEMINLINE}inline;{$endif}
begin
end;
procedure ReadWriteBarrier;{$ifdef SYSTEMINLINE}inline;{$endif}
begin
end;
procedure WriteBarrier;{$ifdef SYSTEMINLINE}inline;{$endif}
begin
end;
{$endif}

20
rtl/powerpc/powerpc.inc
View File

@ -1253,3 +1253,23 @@ begin
softfloat_exception_mask:=float_flag_underflow or float_flag_inexact or float_flag_denormal;
end;
{$ENDIF}
{$ifndef FPC_SYSTEM_HAS_MEM_BARRIER}
{$define FPC_SYSTEM_HAS_MEM_BARRIER}
procedure ReadBarrier;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
sync
end;
procedure ReadWriteBarrier;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
sync
end;
procedure WriteBarrier;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
eieio
end;
{$endif}

20
rtl/powerpc64/powerpc64.inc
View File

@ -836,3 +836,23 @@ asm
bne .LInterlockedCompareExchangeLoop
mr r3, r6
end;
{$ifndef FPC_SYSTEM_HAS_MEM_BARRIER}
{$define FPC_SYSTEM_HAS_MEM_BARRIER}
procedure ReadBarrier;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
sync
end;
procedure ReadWriteBarrier;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
sync
end;
procedure WriteBarrier;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
eieio
end;
{$endif}