From 5f20a3f950b7b1bbcf4f16607354f3e688d6a01e Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 12 Aug 2010 09:18:28 +0000
Subject: [PATCH] chelper: improve const type qualifier parsing

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1275 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/chelper/cparsertypes.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/components/chelper/cparsertypes.pas b/components/chelper/cparsertypes.pas
index 23800838a..0aa883856 100755
--- a/components/chelper/cparsertypes.pas
+++ b/components/chelper/cparsertypes.pas
@@ -1612,12 +1612,16 @@ var
   prefix    : TNamePart;
   id        : TNamePart;
   postfix   : TNamePart;
+// todo: store const them as part of the name
 begin
+  if Parser.Token='const' then Parser.NextToken; // skip const qualifier
+
   if Parser.Token='*' then begin
     prefix:=TNamePart.Create(nk_Ref);
     while Parser.Token='*' do begin
       inc(prefix.refcount);
       Parser.NextToken;
+      if Parser.Token='const' then Parser.NextToken; // skip const qualifier
     end;
   end else
     prefix:=nil;