From bdc4297811d2fca79a7c2c02e88fd31b1088ba46 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 25 Aug 2022 11:41:20 +0200
Subject: [PATCH] fcl-base: comment

---
 packages/fcl-base/src/pascodegen.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-base/src/pascodegen.pp b/packages/fcl-base/src/pascodegen.pp
index 138c2867ca..18bb35d514 100644
--- a/packages/fcl-base/src/pascodegen.pp
+++ b/packages/fcl-base/src/pascodegen.pp
@@ -81,7 +81,7 @@ Type
     Procedure SimpleMethodBody(Lines: Array of string); virtual;
     procedure SaveToStream(const AStream: TStream);
     Procedure SaveToFile(Const AFileName : string);
-    Property Source : TStrings Read FSource;
+    Property Source : TStrings Read FSource; // output
     Property CurrentSection : TCodeSection Read GetSection Write SetSection;
   Published
     Property OutputUnitName : String Read FOutputUnitName Write FOutputUnitName;