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

* make sure warnings/hints in set_varstate are always given at the

Browse Source 
correct position

git-svn-id: trunk@8269 -
This commit is contained in:
Jonas Maebe 2007-08-12 13:18:39 +00:00
parent 3f701c96d4
commit 097c2db374
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/htypechk.pas
View File

@ -882,25 +882,25 @@ implementation
if (vo_is_funcret in hsym.varoptions) then if (vo_is_funcret in hsym.varoptions) then
begin begin
if (vsf_use_hints in varstateflags) then if (vsf_use_hints in varstateflags) then
CGMessage(sym_h_function_result_uninitialized) CGMessagePos(p.fileinfo,sym_h_function_result_uninitialized)
else else
CGMessage(sym_w_function_result_uninitialized) CGMessagePos(p.fileinfo,sym_w_function_result_uninitialized)
end end
else else
begin begin
if tloadnode(p).symtable.symtabletype=localsymtable then if tloadnode(p).symtable.symtabletype=localsymtable then
begin begin
if (vsf_use_hints in varstateflags) then if (vsf_use_hints in varstateflags) then
CGMessage1(sym_h_uninitialized_local_variable,hsym.realname) CGMessagePos1(p.fileinfo,sym_h_uninitialized_local_variable,hsym.realname)
else else
CGMessage1(sym_w_uninitialized_local_variable,hsym.realname); CGMessagePos1(p.fileinfo,sym_w_uninitialized_local_variable,hsym.realname);
end end
else else
begin begin
if (vsf_use_hints in varstateflags) then if (vsf_use_hints in varstateflags) then
CGMessage1(sym_h_uninitialized_variable,hsym.realname) CGMessagePos1(p.fileinfo,sym_h_uninitialized_variable,hsym.realname)
else else
CGMessage1(sym_w_uninitialized_variable,hsym.realname); CGMessagePos1(p.fileinfo,sym_w_uninitialized_variable,hsym.realname);
end; end;
end; end;
end end