diff --git a/packages/fcl-passrc/src/pasresolver.pp b/packages/fcl-passrc/src/pasresolver.pp
index e2c9c45da9..ed20471c25 100644
--- a/packages/fcl-passrc/src/pasresolver.pp
+++ b/packages/fcl-passrc/src/pasresolver.pp
@@ -10628,6 +10628,7 @@ begin
     end;
   eopAdd:
     begin
+    // handle multi add
     Left:=El.left;
     while (Left.ClassType=TBinaryExpr) do
       begin