From c6ce763336442f8b59239c3ef96be8709f2a4110 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 1 Feb 2022 14:31:19 +0100
Subject: [PATCH] fcl-passrc: fixed sourcepos of member const

---
 packages/fcl-passrc/src/pparser.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/packages/fcl-passrc/src/pparser.pp b/packages/fcl-passrc/src/pparser.pp
index 4bd87829ec..a6bf290349 100644
--- a/packages/fcl-passrc/src/pparser.pp
+++ b/packages/fcl-passrc/src/pparser.pp
@@ -7432,6 +7432,7 @@ begin
     NextToken;
     end;
   Repeat
+    SaveIdentifierPosition;
     C:=ParseConstDecl(AType);
     C.Visibility:=AVisibility;
     AType.Members.Add(C);