From 62cbd007f1d283b48a8ade13f04c8e4125445980 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 17 Dec 2005 15:20:33 +0000
Subject: [PATCH]   * indexes in vecn's are only read, not written

git-svn-id: trunk@1976 -
---
 compiler/htypechk.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/htypechk.pas b/compiler/htypechk.pas
index d55f822d85..0fadb8cc1a 100644
--- a/compiler/htypechk.pas
+++ b/compiler/htypechk.pas
@@ -772,7 +772,7 @@ implementation
                p:=tunarynode(p).left;
              vecn:
                begin
-                 set_varstate(tbinarynode(p).right,vs_readwritten,[vsf_must_be_valid]);
+                 set_varstate(tbinarynode(p).right,vs_read,[vsf_must_be_valid]);
                  if not(tunarynode(p).left.resulttype.def.deftype in [stringdef,arraydef]) then
                    include(varstateflags,vsf_must_be_valid);
                  p:=tunarynode(p).left;