* only free if not ffreeobjects, mantis 036853

git-svn-id: trunk@44457 -

rtl/objpas/fgl.pp

@@ -1755,7 +1755,7 @@ end;
 
 procedure TFPGMapObject.CopyData(Src, Dest: Pointer);
 begin
-  if Assigned(Pointer(Dest^)) then
+  if Assigned(Pointer(Dest^)) And FFreeObjects then
     TData(Dest^).Free;
   TData(Dest^) := TData(Src^);
 end;