Ver Fonte

don't check size differences for booleans

peter há 20 anos atrás
pai
commit
ae0eb8d607
1 ficheiros alterados com 8 adições e 3 exclusões
  1. 8 3
      compiler/nld.pas

+ 8 - 3
compiler/nld.pas

@@ -655,9 +655,11 @@ implementation
            not (nf_explicit in ttypeconvnode(right).flags) then
          begin
             if assigned(left.resulttype.def) and
-              (left.resulttype.def.deftype in [enumdef,orddef,floatdef]) then
+              (left.resulttype.def.deftype in [enumdef,orddef,floatdef]) and
+              not is_boolean(left.resulttype.def) then
               begin
-                if (original_size <> 0) and (left.resulttype.def.size < original_size) then
+                if (original_size <> 0) and
+                   (left.resulttype.def.size < original_size) then
                   begin
                     if (cs_check_range in aktlocalswitches) then
                       Message(type_w_smaller_possible_range_check)
@@ -1187,7 +1189,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.145  2005-02-14 17:13:06  peter
+  Revision 1.146  2005-03-18 16:41:27  peter
+  don't check size differences for booleans
+
+  Revision 1.145  2005/02/14 17:13:06  peter
     * truncate log
 
   Revision 1.144  2005/02/11 16:25:26  peter