Преглед изворни кода

* do not warn about disjunct ranges for internally created cmp nodes

git-svn-id: trunk@30269 -
florian пре 10 година
родитељ
комит
a8e001d4ad
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/nadd.pas

+ 1 - 1
compiler/nadd.pas

@@ -2152,7 +2152,7 @@ implementation
             inserttypeconv(right,sinttype);
           end;
 
-         if cmp_of_disjunct_ranges(res) then
+         if cmp_of_disjunct_ranges(res) and not(nf_internal in flags) then
            begin
              if res then
                CGMessage(type_w_comparison_always_true)