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

git-svn-id: trunk@11721 -

compiler/pdecvar.pas

@@ -190,8 +190,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