paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 15:40:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@30269 -
This commit is contained in:
florian 2015-03-21 22:56:30 +00:00
parent 0bc63c438e
commit a8e001d4ad
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nadd.pas
View File

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