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

* do not issue a hint of compiler procs are not inlined, resolves #33515

Browse Source 
git-svn-id: trunk@38675 -
This commit is contained in:
florian 2018-04-03 21:39:47 +00:00
parent a69942852f
commit c46cbc8411
3 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -16096,6 +16096,7 @@ tests/webtbs/tw33439.pp svneol=native#text/pascal
tests/webtbs/tw3348.pp svneol=native#text/plain tests/webtbs/tw3348.pp svneol=native#text/plain
tests/webtbs/tw3349.pp svneol=native#text/plain tests/webtbs/tw3349.pp svneol=native#text/plain
tests/webtbs/tw3351.pp svneol=native#text/plain tests/webtbs/tw3351.pp svneol=native#text/plain
tests/webtbs/tw33515.pp svneol=native#text/pascal
tests/webtbs/tw3353.pp svneol=native#text/plain tests/webtbs/tw3353.pp svneol=native#text/plain
tests/webtbs/tw33542.pp svneol=native#text/pascal tests/webtbs/tw33542.pp svneol=native#text/pascal
tests/webtbs/tw33548.pp svneol=native#text/plain tests/webtbs/tw33548.pp svneol=native#text/plain

2
compiler/ncal.pas
View File

@ -4372,7 +4372,7 @@ implementation
result:=pass1_inline result:=pass1_inline
else else
begin begin
if po_inline in procdefinition.procoptions then if (po_inline in procdefinition.procoptions) and not(po_compilerproc in procdefinition.procoptions) then
Message1(cg_h_no_inline,tprocdef(procdefinition).customprocname([pno_proctypeoption, pno_paranames,pno_ownername, pno_noclassmarker])); 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;

8
tests/webtbs/tw33515.pp Normal file
View File

@ -0,0 +1,8 @@
{ %OPT=-Seh }
program Test;
uses SysUtils;
var
FS: TFormatSettings;
begin
FS := DefaultFormatSettings;
end.