We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 6adee9c commit 787bcbdCopy full SHA for 787bcbd
Quick.Threads.pas
@@ -685,7 +685,7 @@ procedure TThreadedQueueCS<T>.Clear;
685
try
686
for obj in FQueue do
687
begin
688
- if TypeInfo(T) = TypeInfo(TObject) then PObject(@obj).Free;
+ if TypeInfo(T) = TypeInfo(TObject) then PObject(@obj){$ifndef FPC}{$IFDEF DELPHIRX12_UP}.Free{$ELSE}.DisposeOf{$ENDIF}{$ELSE}.Free{$ENDIF};
689
end;
690
691
SetLength(FQueue,0);
0 commit comments