paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-12 06:09:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

don't check size differences for booleans

Browse Source
This commit is contained in:
peter 2005-03-18 16:41:27 +00:00
parent 8b51fef46b
commit ae0eb8d607
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/nld.pas
View File

@ -655,9 +655,11 @@ implementation
not (nf_explicit in ttypeconvnode(right).flags) then not (nf_explicit in ttypeconvnode(right).flags) then
begin begin
if assigned(left.resulttype.def) and 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 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 begin
if (cs_check_range in aktlocalswitches) then if (cs_check_range in aktlocalswitches) then
Message(type_w_smaller_possible_range_check) Message(type_w_smaller_possible_range_check)
@ -1187,7 +1189,10 @@ begin
end. end.
{ {
$Log$ $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 * truncate log
Revision 1.144 2005/02/11 16:25:26 peter Revision 1.144 2005/02/11 16:25:26 peter