* set finalized dynarrays to nil (mantis #12048)

git-svn-id: trunk@11773 -

.gitattributes

@@ -8544,6 +8544,7 @@ tests/webtbs/tw11937.pp svneol=native#text/plain
 tests/webtbs/tw12000.pp svneol=native#text/plain
 tests/webtbs/tw1203.pp svneol=native#text/plain
 tests/webtbs/tw1204.pp svneol=native#text/plain
+tests/webtbs/tw12048.pp svneol=native#text/plain
 tests/webtbs/tw12050a.pp svneol=native#text/plain
 tests/webtbs/tw12050b.pp svneol=native#text/plain
 tests/webtbs/tw12051.pp svneol=native#text/plain

rtl/inc/rtti.inc

@@ -179,7 +179,10 @@ begin
         PPointer(Data)^:=nil;
       end;
     tkDynArray:
-      fpc_dynarray_decr_ref(PPointer(Data)^,TypeInfo);
+      begin
+        fpc_dynarray_decr_ref(PPointer(Data)^,TypeInfo);
+        PPointer(Data)^:=nil;
+      end;
     tkVariant:
       variant_clear(PVarData(Data)^);
   end;

tests/webtbs/tw12048.pp

@@ -0,0 +1,24 @@
+{ %opt=-gh }
+
+{$mode objfpc}
+
+program DynArrBug;
+
+uses Types;
+
+function GetDynArray: TStringDynArray;
+begin
+  SetLength( GetDynArray, 16 );
+end;
+  
+var
+  darr: array[1..1] of TStringDynArray;
+begin
+  keepreleased:=true;
+  darr[1] := GetDynArray();
+  Finalize( darr[1] );
+  if pointer(darr[1])<>nil then
+    halt(1);
+  darr[1] := GetDynArray();
+end.
+