Browse Source

* Treat 3.2 as 3.0.4

git-svn-id: trunk@43513 -
michael 5 năm trước cách đây
mục cha
commit
37a9cda682
1 tập tin đã thay đổi với 4 bổ sung0 xóa
  1. 4 0
      rtl/objpas/fgl.pp

+ 4 - 0
rtl/objpas/fgl.pp

@@ -970,7 +970,11 @@ end;
 class function TFPGList.ItemIsManaged: Boolean;
 begin
 {$IFNDEF VER3_0}
+{$IFNDEF VER3_2}
   Result:=IsManagedType(T);
+{$ELSE}  
+  Result:=True; // Fallback to old behaviour  
+{$ENDIF}
 {$ELSE}
   Result:=True; // Fallback to old behaviour  
 {$ENDIF}