From 2ba2b655f020002f9b511bf524fae80715f35245 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 16 Feb 1999 00:46:30 +0000
Subject: [PATCH]   * fixed bug #206

---
 compiler/cg386add.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/cg386add.pas b/compiler/cg386add.pas
index 2ae4b6c00a..e5a6b423d2 100644
--- a/compiler/cg386add.pas
+++ b/compiler/cg386add.pas
@@ -358,6 +358,7 @@ implementation
         { optimize first loading of a set }
 {$ifdef usecreateset}
         if (p^.right^.treetype=setelementn) and
+           not(assigned(p^.right^.right)) and
            is_emptyset(p^.left) then
          createset:=true
         else
@@ -1809,7 +1810,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.42  1999-02-12 10:43:56  florian
+  Revision 1.43  1999-02-16 00:46:30  peter
+    * fixed bug 206
+
+  Revision 1.42  1999/02/12 10:43:56  florian
     * internal error 10 with ansistrings fixed
 
   Revision 1.41  1999/01/20 19:23:10  jonas