Merged revisions 11721 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r11721 | jonas | 2008-09-07 14:31:39 +0100 (Sun, 07 Sep 2008) | 2 lines

  * use p.resultdef (representing a property array range) before freeing p

........

git-svn-id: branches/fixes_2_2@11726 -

compiler/pdecvar.pas

@@ -186,8 +186,8 @@ implementation
                                else
                                 Message(type_e_ordinal_expr_expected)
                              end;
-                            p.free;
                             pl.addconst(sl_vec,idx,p.resultdef);
+                            p.free;
                             def:=tarraydef(def).elementdef;
                           end
                          else