浏览代码

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

J. Gareth "Curious Kit" Moreton 1 年之前
父节点
当前提交
5c090fce2c
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/psub.pas

+ 1 - 1
compiler/psub.pas

@@ -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, '>');