From b5e57a129fc6370c350168bb2777d6d1ef0289d7 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Mon, 9 Oct 2017 07:33:22 +0000
Subject: [PATCH] CodeTools: allow absolute $0:$0 syntax. Issue #32506

git-svn-id: trunk@56002 -
---
 components/codetools/pascalparsertool.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index c5e39f6135..756797b329 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -3429,6 +3429,11 @@ begin
       if ParentNode.Parent.Desc in AllCodeSections+[ctnProcedure] then begin
         ReadNextAtom;
         ReadConstant(true,false,[]);
+        if CurPos.Flag=cafColon then
+        begin
+          ReadNextAtom;
+          ReadConstant(true,false,[]);
+        end;
       end;
     end;
   end;