mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-28 11:10:33 +02:00
+ implementation of WriteBarrier
git-svn-id: trunk@13554 -
This commit is contained in:
parent
e0c51caa7d
commit
3ce72907c2
@ -654,7 +654,7 @@ end;
|
||||
|
||||
procedure WriteBarrier;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
|
||||
asm
|
||||
{ no write reordering on intel CPUs (yet) }
|
||||
sfence
|
||||
end;
|
||||
|
||||
{$endif}
|
||||
|
Loading…
Reference in New Issue
Block a user