FMessage: string

Posted via ActualForum NNTP Server 1.5

function GetMessage: string;
begin
  Lock;
  try
    Result := FMessage;
  finally
    Unlock;
  end;
end;

function GetMessage: string;
begin
  Lock;
  try
    Result := FMessage;
    UniqueString(Result);
  finally
    Unlock;
  end;
end;

function GetMessage: string;
begin
  Lock;
  try
    Result := FMessage;
  finally
    Unlock;
  end;
end;

TSync<t> = record
private
  l: TSpinLock;
  v: t;
  function GetValue(): t;
  procedure SetValue(const A: t);
public
  property Value read GetValue write SetValue;
end;

mov eax, [v]
<-  если здесь произведут декремент в другом потоке, то в eax будет ссылка на убитый кусок
call _straddref

function _UStrClr(var S): Pointer;
var
  P: PStrRec;
begin
  if Pointer(S) <> nil then
  begin
    P := Pointer(PByte(S) - SizeOf(StrRec));
    Pointer(S) := nil;
    if P.refCnt > 0 then
    begin
      if AtomicDecrement(P.refCnt) = 0 then
        FreeMem(P);
    end;
  end;
  Result := @S;
end;