paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:29:29 +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
begin
if (vsf_use_hints in varstateflags) then
CGMessage(sym_h_function_result_uninitialized)
CGMessagePos(p.fileinfo,sym_h_function_result_uninitialized)
else
CGMessage(sym_w_function_result_uninitialized)
CGMessagePos(p.fileinfo,sym_w_function_result_uninitialized)
end
else
begin
if tloadnode(p).symtable.symtabletype=localsymtable then
begin
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
CGMessage1(sym_w_uninitialized_local_variable,hsym.realname);
CGMessagePos1(p.fileinfo,sym_w_uninitialized_local_variable,hsym.realname);
end
else
begin
if (vsf_use_hints in varstateflags) then
CGMessage1(sym_h_uninitialized_variable,hsym.realname)
CGMessagePos1(p.fileinfo,sym_h_uninitialized_variable,hsym.realname)
else
CGMessage1(sym_w_uninitialized_variable,hsym.realname);
CGMessagePos1(p.fileinfo,sym_w_uninitialized_variable,hsym.realname);
end;
end;
end