diff --git a/packages/fcl-passrc/src/paswrite.pp b/packages/fcl-passrc/src/paswrite.pp
index 33b2d4145d..bb736ef0da 100644
--- a/packages/fcl-passrc/src/paswrite.pp
+++ b/packages/fcl-passrc/src/paswrite.pp
@@ -828,7 +828,7 @@ begin
   if AProc.IsOverload then
     Add(' overload;');
   if AProc.CallingConvention<>ccDefault then
-    Add(' '+cCallingConventions[AProc.CallingConvention]);
+    Add(' '+cCallingConventions[AProc.CallingConvention]+';');
   If Assigned(AProc.LibraryExpr) or Assigned(AProc.LibrarySymbolName) then
     begin
     if AProc.Parent is TPasClassType then