From 901a9a974e6f6f2f0f327353090bd1a8d72ddea6 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Tue, 26 Apr 2011 00:17:14 +0000
Subject: [PATCH] compiler: don't create set constants from arrays with high
 bound > 255 if elements of array are lower than 255

git-svn-id: trunk@17372 -
---
 compiler/ncnv.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas
index 55a6ca67dd..12737257a0 100644
--- a/compiler/ncnv.pas
+++ b/compiler/ncnv.pas
@@ -365,8 +365,7 @@ implementation
                    constsetlo:=tenumdef(def).min;
                  { for constant set elements, delphi allows the usage of elements of enumerations which
                    have value>255 if there is no element with a value > 255 used }
-                 if (maybetruncenumrange) and
-                    (m_delphi in current_settings.modeswitches) then
+                 if (maybetruncenumrange) then
                    begin
                     if constsethi>255 then
                       constsethi:=255;