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

* take care of nf_internal when doing range checking and inserting type conversions in tassignmentnode.pass_typecheck

Browse Source 
git-svn-id: trunk@31473 -
This commit is contained in:
florian 2015-08-31 20:03:54 +00:00
parent 27828d41e7
commit 63f828d54e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nld.pas
View File

@ -697,12 +697,14 @@ implementation
{$endif} {$endif}
then then
begin begin
check_ranges(fileinfo,right,left.resultdef); if not(nf_internal in flags) then
check_ranges(fileinfo,right,left.resultdef);
end end
else else
begin begin
{ check if the assignment may cause a range check error } { check if the assignment may cause a range check error }
check_ranges(fileinfo,right,left.resultdef); if not(nf_internal in flags) then
check_ranges(fileinfo,right,left.resultdef);
{ beginners might be confused about an error message like { beginners might be confused about an error message like
Incompatible types: got "untyped" expected "LongInt" Incompatible types: got "untyped" expected "LongInt"
@ -711,6 +713,8 @@ implementation
if (left.resultdef.typ<>procvardef) and if (left.resultdef.typ<>procvardef) and
(right.nodetype=calln) and is_void(right.resultdef) then (right.nodetype=calln) and is_void(right.resultdef) then
CGMessage(type_e_procedures_return_no_value) CGMessage(type_e_procedures_return_no_value)
else if nf_internal in flags then
inserttypeconv_internal(right,left.resultdef)
else else
inserttypeconv(right,left.resultdef); inserttypeconv(right,left.resultdef);
end; end;