Спецы по лазарю, может кто нить пояснить в чем прикол

Question

Спецы по лазарю, может кто нить пояснить в чем прикол

с fdestroycount
function TInterfacedObject._Release : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};

begin
_Release:=interlockeddecrement(frefcount);
if _Release=0 then
begin
if interlockedincrement(fdestroycount)=1 then // !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
self.destroy;
end;
end;
Этот fdestroycount нигде не используется кроме _Release. Зачем он ?? Так как он нигде не используется, то когда frefcount станет равным нулю, то interlockedincrement(fdestroycount) в любом случае будет равен 1. И зачем всё это ?

#lazarus #programming #russian

0

21.10.2023

4 ответов

21 просмотр

Iluha Companets

Iluha Companets
вопрос в чем? зачем вообще делать защиту от дурака...

ок, т.е. вопрос ради вопроса.. ты глянь исходники в mingw например, там такого гора

0

21.10.2023

Alexander 👋

В делфи вон оно как сделано class procedure TInterfacedObject.__MarkDestroying(const Obj); var LRef: Integer; begin repeat LRef := TInterfacedObject(Obj).FRefCount; until AtomicCmpExchange(TInterfacedObject(Obj).FRefCount, LRef or objDestroyingFlag, LRef) = LRef; end;

0

21.10.2023

Handatros

protected frefcount : longint; FDestroyCount : longint; FDestroyCount protected, так что вполне могут быть варианты

0

21.10.2023

Iluha Companets · Accepted Answer

Iluha Companets

вопрос в чем? зачем вообще делать защиту от дурака?

0

21.10.2023

169 похожих чатов

Спецы по лазарю, может кто нить пояснить в чем прикол

4 ответов

Похожие вопросы