From e1b7ce5aa91ea4d34831bce7c18fb13b1f39a294 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 28 May 2007 13:48:32 +0000
Subject: [PATCH]   * fixed dynarr_property:=nil + test

git-svn-id: trunk@7495 -
---
 compiler/nld.pas    | 3 +++
 tests/test/tprop.pp | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/nld.pas b/compiler/nld.pas
index 3fc7964811..6b8e5b7582 100644
--- a/compiler/nld.pas
+++ b/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));
diff --git a/tests/test/tprop.pp b/tests/test/tprop.pp
index 6769afc088..ee17d82a2a 100644
--- a/tests/test/tprop.pp
+++ b/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