소스 검색

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