From 044e307ab35d0972fd3cc431048af49574df63fa Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 8 Mar 2001 17:44:47 +0000
Subject: [PATCH]   * fixed web bug #1430

---
 compiler/ncnv.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas
index 383f2404ce..579a327f54 100644
--- a/compiler/ncnv.pas
+++ b/compiler/ncnv.pas
@@ -174,7 +174,7 @@ implementation
         pd:=nil;
         constsetlo:=0;
         constsethi:=0;
-        constp:=csetconstnode.create(nil,nil);
+        constp:=gensetconstnode(nil,nil);
         constp.value_set:=constset;
         buildp:=constp;
         if assigned(p.left) then
@@ -331,6 +331,7 @@ implementation
          end;
       { set the initial set type }
         constp.resulttype:=new(psetdef,init(pd,constsethi));
+        firstpass(buildp); 
       { set the new tree }
         p:=tarrayconstructornode(buildp);
       end;
@@ -1200,7 +1201,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.20  2001-02-21 11:49:50  jonas
+  Revision 1.21  2001-03-08 17:44:47  jonas
+    * fixed web bug 1430
+
+  Revision 1.20  2001/02/21 11:49:50  jonas
     * evaluate typecasts of const pointers to ordinals inline ('merged')
 
   Revision 1.19  2001/02/20 18:37:10  peter