Skip to content

Commit 787bcbd

Browse files
committed
Adjusted compiler condition for 12 and up to be compatible with old conditions
1 parent 6adee9c commit 787bcbd

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Quick.Threads.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -685,7 +685,7 @@ procedure TThreadedQueueCS<T>.Clear;
685685
try
686686
for obj in FQueue do
687687
begin
688-
if TypeInfo(T) = TypeInfo(TObject) then PObject(@obj).Free;
688+
if TypeInfo(T) = TypeInfo(TObject) then PObject(@obj){$ifndef FPC}{$IFDEF DELPHIRX12_UP}.Free{$ELSE}.DisposeOf{$ENDIF}{$ELSE}.Free{$ENDIF};
689689
end;
690690

691691
SetLength(FQueue,0);

0 commit comments

Comments
 (0)