paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 05:37:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix writing of interface methods with calling convention

Browse Source 
git-svn-id: trunk@37145 -
This commit is contained in:
michael 2017-09-05 07:07:59 +00:00
parent 4761b22ef3
commit 9ad7c50cdd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-passrc/src/paswrite.pp
View File

@ -828,7 +828,7 @@ begin
if AProc.IsOverload then if AProc.IsOverload then
Add(' overload;'); Add(' overload;');
if AProc.CallingConvention<>ccDefault then if AProc.CallingConvention<>ccDefault then
Add(' '+cCallingConventions[AProc.CallingConvention]); Add(' '+cCallingConventions[AProc.CallingConvention]+';');
If Assigned(AProc.LibraryExpr) or Assigned(AProc.LibrarySymbolName) then If Assigned(AProc.LibraryExpr) or Assigned(AProc.LibrarySymbolName) then
begin begin
if AProc.Parent is TPasClassType then if AProc.Parent is TPasClassType then