Browse Source

* Treat 3.2 as 3.0.4

git-svn-id: trunk@43513 -
michael 5 years ago
parent
commit
37a9cda682
1 changed files with 4 additions and 0 deletions
  1. 4 0
      rtl/objpas/fgl.pp

+ 4 - 0
rtl/objpas/fgl.pp

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