Browse Source

* Merging revisions r43513 from trunk:
------------------------------------------------------------------------
r43513 | michael | 2019-11-18 17:00:03 +0100 (Mon, 18 Nov 2019) | 1 line

* Treat 3.2 as 3.0.4
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43754 -

michael 5 years ago
parent
commit
b355df88ad
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}