paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 14:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* show warnings about parameter types in cdecl'ed procedures at proper locations, resolves #14283

Browse Source 
git-svn-id: trunk@13502 -
This commit is contained in:
florian 2009-08-08 22:28:45 +00:00
parent b98ee089a4
commit a9aba39d63
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pdecsub.pas
View File

@ -297,9 +297,9 @@ implementation
paramanager.push_high_param(varspez,vardef,pocall_default) then
begin
if is_open_string(vardef) then
Message(parser_w_cdecl_no_openstring);
MessagePos(fileinfo,parser_w_cdecl_no_openstring);
if not (po_external in pd.procoptions) then
Message(parser_w_cdecl_has_no_high);
MessagePos(fileinfo,parser_w_cdecl_has_no_high);
end;
if (vardef.typ=formaldef) and (Tformaldef(vardef).typed) then
begin
@ -328,12 +328,12 @@ implementation
if not is_variant_array(tparavarsym(sym).vardef) and
not is_array_of_const(tparavarsym(sym).vardef) and
(tparavarsym(sym).varspez<>vs_var) then
Message(parser_h_c_arrays_are_references);
MessagePos(tparavarsym(sym).fileinfo,parser_h_c_arrays_are_references);
if is_array_of_const(tparavarsym(sym).vardef) and
(i<lastparaidx) and
(tsym(pd.parast.SymList[i+1]).typ=paravarsym) and
not(vo_is_high_para in tparavarsym(pd.parast.SymList[i+1]).varoptions) then
Message(parser_e_C_array_of_const_must_be_last);
MessagePos(tparavarsym(sym).fileinfo,parser_e_C_array_of_const_must_be_last);
end;
end;
end;
@ -351,7 +351,7 @@ implementation
{ First parameter must be var }
if (paranr=10) and
(varspez<>vs_var) then
Message(parser_e_ill_msg_param);
MessagePos(fileinfo,parser_e_ill_msg_param);
end;
end;