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

* write correct proc name when giving a hint that a procedure is not inlined.

Browse Source 
git-svn-id: trunk@38480 -
This commit is contained in:
florian 2018-03-10 10:39:10 +00:00
parent 787b2a2e05
commit 5e200cad89
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncal.pas
View File

@ -4357,7 +4357,7 @@ implementation
else else
begin begin
if po_inline in procdefinition.procoptions then if po_inline in procdefinition.procoptions then
Message1(cg_h_no_inline,current_procinfo.procdef.fullprocname(false)); Message1(cg_h_no_inline,tprocdef(procdefinition).customprocname([pno_proctypeoption, pno_paranames,pno_ownername, pno_noclassmarker]));
mark_unregable_parameters; mark_unregable_parameters;
result:=pass1_normal; result:=pass1_normal;
end; end;