From 376865d041f1d33aa25408bad438cbebe2aef603 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 20 Jul 2005 06:44:59 +0000
Subject: [PATCH]   * mark variables used in set creation

git-svn-id: trunk@706 -
---
 compiler/ncnv.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas
index c99ab3bfde..5163ae351c 100644
--- a/compiler/ncnv.pas
+++ b/compiler/ncnv.pas
@@ -366,8 +366,12 @@ implementation
                  p3:=nil;
                end;
               resulttypepass(p2);
+              set_varstate(p2,vs_used,[vsf_must_be_valid]);
               if assigned(p3) then
-               resulttypepass(p3);
+                begin
+                  resulttypepass(p3);
+                  set_varstate(p3,vs_used,[vsf_must_be_valid]);
+                end;
               if codegenerror then
                break;
               case p2.resulttype.def.deftype of