* fixed dynarr_property:=nil + test

git-svn-id: trunk@7495 -

compiler/nld.pas

@@ -597,6 +597,9 @@ implementation
         if is_dynamic_array(left.resultdef) and
            (right.nodetype=niln) then
          begin
+           { remove property flag to avoid errors, see comments for }
+           { tf_winlikewidestring assignments below                 }
+           exclude(left.flags,nf_isproperty);
            hp:=ccallparanode.create(caddrnode.create_internal
                    (crttinode.create(tstoreddef(left.resultdef),initrtti,rdt_normal)),
                ccallparanode.create(ctypeconvnode.create_internal(left,voidpointertype),nil));

tests/test/tprop.pp

@@ -47,7 +47,7 @@ begin
     halt(3);
   d:=nil;
   d:=c.da;
-  c.fda:=nil;
+  c.da:=nil;
   if (length(d)<>4) or
      (d[0]<>245) or
      (d[1]<>1) or