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

Add potentially required barriers to TEnconding.

Browse Source
This commit is contained in:
Rika Ichinose 2023-11-10 00:22:46 +03:00
parent b6999496a7
commit ce1a82a1e4
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/objpas/sysutils/sysencoding.inc
View File

@ -19,10 +19,16 @@ class function TEncoding.GetStandard(Se: TStandardEncoding; Ctr: TCreateEncoding
begin
Result := FStandardEncodings[Se];
if Assigned(Result) then
begin
{$ifdef FPC_HAS_FEATURE_THREADING}
ReadDependencyBarrier; // Read Result contents (by caller) after Result pointer.
{$endif}
Exit;
end;
Result := Ctr();
{$ifdef FPC_HAS_FEATURE_THREADING}
WriteBarrier; // Write FStandardEncodings[Se] after Result contents.
if InterlockedCompareExchange(Pointer(FStandardEncodings[Se]), Pointer(Result), nil) <> nil then
begin
Result.Free;
@ -110,6 +116,9 @@ begin
repeat
Cp := DefaultSystemCodePage;
Head := FSystemEncodingsList; // Must not be re-read until InterlockedCompareExchange to guarantee that search was performed against this head.
{$ifdef FPC_HAS_FEATURE_THREADING}
ReadDependencyBarrier; // Read Head contents after Head pointer.
{$endif}
Result := Head;
while Assigned(Result) do
if Result.CodePage = Cp then
@ -121,6 +130,7 @@ begin
Result := TMBCSEncoding.Create(Cp);
Result.FNext := Head;
{$ifdef FPC_HAS_FEATURE_THREADING}
WriteBarrier; // Write FSystemEncodingsList after Result contents.
if InterlockedCompareExchange(Pointer(FSystemEncodingsList), Pointer(Result), Pointer(Head)) = Pointer(Head) then
break
else