From 8d632ac72b99e2e3f596d6f2ae407ed098eff0eb Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 4 Jan 2009 19:37:34 +0000 Subject: [PATCH] codetools: fixed ComparePrefixIdent git-svn-id: trunk@18114 - --- components/codetools/basiccodetools.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/components/codetools/basiccodetools.pas b/components/codetools/basiccodetools.pas index 09619f220d..c2e9394f3e 100644 --- a/components/codetools/basiccodetools.pas +++ b/components/codetools/basiccodetools.pas @@ -2948,7 +2948,8 @@ function ComparePrefixIdent(PrefixIdent, Identifier: PChar): boolean; begin if PrefixIdent<>nil then begin if Identifier<>nil then begin - while UpChars[PrefixIdent^]=UpChars[Identifier^] do begin + while (UpChars[PrefixIdent^]=UpChars[Identifier^]) and (PrefixIdent^>#0) do + begin inc(PrefixIdent); inc(Identifier); end;