From 4679dc1e09652644b3d646524c809d648ff7eb8f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 9 Oct 2014 21:11:58 +0000
Subject: [PATCH] codetools: get pasdoc comment: ignore comments starting with
 % or $

git-svn-id: trunk@46503 -
---
 components/codetools/pascalreadertool.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/pascalreadertool.pas b/components/codetools/pascalreadertool.pas
index 0cb7301b80..ff6cc5e5a2 100644
--- a/components/codetools/pascalreadertool.pas
+++ b/components/codetools/pascalreadertool.pas
@@ -3402,7 +3402,7 @@ function TPascalReaderTool.GetPasDocComments(Node: TCodeTreeNode;
       pp:=@Src[p];
       if ((pp^='/') and (pp[1]='/') and (pp[2] in ['$','%']))
       or ((pp^='{') and (pp[1] in ['$','%']))
-      or ((pp^='(') and (pp[1]='*') and (pp[2]='$'))
+      or ((pp^='(') and (pp[1]='*') and (pp[2] in ['$','%']))
       then
         break;
       //debugln(['TStandardCodeTool.GetPasDocComments Comment="',copy(Src,p,FindCommentEnd(Src,p,Scanner.NestedComments)-p),'"']);