Browse Source

* check for enumdef.maxval<255 instead of enumdef.savesize

peter 22 years ago
parent
commit
dc7f09e29e
1 changed files with 7 additions and 4 deletions
  1. 7 4
      compiler/nset.pas

+ 7 - 4
compiler/nset.pas

@@ -259,11 +259,11 @@ implementation
              )
              )
             or
             or
              (
              (
-               (left.resulttype.def.deftype = enumdef)
-              and (tenumdef(left.resulttype.def).size <> 1)
+               (left.resulttype.def.deftype = enumdef) and
+               (tenumdef(left.resulttype.def).maxval > 255)
              )
              )
           then
           then
-             Message(type_h_in_range_check);
+             CGMessage(type_h_in_range_check);
 
 
          { type conversion/check }
          { type conversion/check }
          if assigned(tsetdef(right.resulttype.def).elementtype.def) then
          if assigned(tsetdef(right.resulttype.def).elementtype.def) then
@@ -695,7 +695,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.49  2003-10-23 14:44:07  peter
+  Revision 1.50  2003-11-10 19:10:57  peter
+    * check for enumdef.maxval<255 instead of enumdef.savesize
+
+  Revision 1.49  2003/10/23 14:44:07  peter
     * splitted buildderef and buildderefimpl to fix interface crc
     * splitted buildderef and buildderefimpl to fix interface crc
       calculation
       calculation