paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 07:34:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Node dumps now output the convention if it's not pocall_default

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2023-12-11 17:59:57 +00:00 committed by FPK
parent 776216d032
commit 5c090fce2c
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/psub.pas
View File

@ -1546,7 +1546,7 @@ implementation
end;
Write(T, ' name="', SanitiseXMLString(procdef.customprocname([pno_showhidden, pno_noclassmarker])), '"');
if po_hascallingconvention in procdef.procoptions then
if (po_hascallingconvention in procdef.procoptions) or (procdef.proccalloption <> pocall_default) then
Write(T, ' convention="', proccalloptionStr[procdef.proccalloption], '"');
WriteLn(T, '>');