* warn only in delphi mode if an explicit enumeration value exceeds the range, relaxes r43191

git-svn-id: trunk@43590 -

.gitattributes

@@ -17792,6 +17792,7 @@ tests/webtbs/tw3456.pp svneol=native#text/plain
 tests/webtbs/tw3457.pp svneol=native#text/plain
 tests/webtbs/tw3460.pp svneol=native#text/plain
 tests/webtbs/tw34605.pp svneol=native#text/plain
+tests/webtbs/tw34633a.pp svneol=native#text/pascal
 tests/webtbs/tw34653.pp svneol=native#text/pascal
 tests/webtbs/tw3467.pp svneol=native#text/plain
 tests/webtbs/tw3470.pp svneol=native#text/plain

compiler/msg/errore.msg

@@ -1603,6 +1603,9 @@ parser_e_unbound_attribute=03351_E_Unbound custom attribute: "$1".
 parser_e_enumeration_out_of_range=03352_E_Enumeration symbols can only have values in the range of -2^31 to 2^31-1
 % The size of enumeration values is limited to 4 bytes. As the value can be signed, the range
 % of valid values is limited to a signed 32 Bit value (i.e. \var{longint}).
+parser_w_enumeration_out_of_range=03353_W_Enumeration symbols can only have values in the range of -2^31 to 2^31-1
+% The size of enumeration values is limited to 4 bytes. As the value can be signed, the range
+% of valid values is limited to a signed 32 Bit value (i.e. \var{longint}).
 %
 % \end{description}
 %

compiler/msgidx.inc

@@ -463,6 +463,7 @@ const
   parser_e_callthrough_varargs=03350;
   parser_e_unbound_attribute=03351;
   parser_e_enumeration_out_of_range=03352;
+  parser_w_enumeration_out_of_range=03353;
   type_e_mismatch=04000;
   type_e_incompatible_types=04001;
   type_e_not_equal_types=04002;
@@ -1117,9 +1118,9 @@ const
   option_info=11024;
   option_help_pages=11025;
 
-  MsgTxtSize = 83899;
+  MsgTxtSize = 83980;
 
   MsgIdxMax : array[1..20] of longint=(
-    28,106,353,126,99,61,143,35,223,68,
+    28,106,354,126,99,61,143,35,223,68,
     62,20,30,1,1,1,1,1,1,1
   );

compiler/ptype.pas

@@ -1719,7 +1719,10 @@ implementation
                       storepos:=current_tokenpos;
                       current_tokenpos:=defpos;
                       if (l.svalue<low(longint)) or (l.svalue>high(longint)) then
-                        Message(parser_e_enumeration_out_of_range);
+                        if m_delphi in current_settings.modeswitches then
+                          Message(parser_w_enumeration_out_of_range)
+                        else
+                          Message(parser_e_enumeration_out_of_range);
                       tenumsymtable(aktenumdef.symtable).insert(cenumsym.create(s,aktenumdef,longint(l.svalue)));
                       if not (cs_scopedenums in current_settings.localswitches) then
                         tstoredsymtable(aktenumdef.owner).insert(cenumsym.create(s,aktenumdef,longint(l.svalue)));

tests/webtbf/tw34633.pp

@@ -1,5 +1,5 @@
 { %fail }
-{$mode delphi}
+{$mode objfpc}
 type tenum = (b0, b1, b2, bMax = high(dword)); 
 
 begin

tests/webtbs/tw34633a.pp

@@ -0,0 +1,6 @@
+{$mode delphi}
+type tenum = (b0, b1, b2, bMax = high(dword)); 
+
+begin
+  writeln(sizeof(tenum));
+end.