Răsfoiți Sursa

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

J. Gareth "Curious Kit" Moreton 1 an în urmă
părinte
comite
5c090fce2c
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  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, '>');