Browse Source

Adjusted compiler condition for 12 and up to be compatible with old conditions

RyanTMontoya 1 year ago
parent
commit
787bcbdcee
1 changed files with 1 additions and 1 deletions
  1. 1 1
      Quick.Threads.pas

+ 1 - 1
Quick.Threads.pas

@@ -685,7 +685,7 @@ begin
   try
   try
     for obj in FQueue do
     for obj in FQueue do
     begin
     begin
-      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};
     end;
     end;
 
 
     SetLength(FQueue,0);
     SetLength(FQueue,0);