Sfoglia il codice sorgente

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

J. Gareth "Curious Kit" Moreton 1 anno fa
parent
commit
5c090fce2c
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  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, '>');