|
@@ -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)
|