浏览代码

* Treat 3.2 as 3.0.4

git-svn-id: trunk@43513 -
michael 5 年之前
父节点
当前提交
37a9cda682
共有 1 个文件被更改,包括 4 次插入0 次删除
  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}