paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 13:00:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed FindCommentEnd

Browse Source 
git-svn-id: trunk@38203 -
This commit is contained in:
mattias 2012-08-08 12:07:17 +00:00
parent aa0c04ced6
commit 752ae4ef0b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/basiccodetools.pas
View File

@ -1441,7 +1441,7 @@ begin
Result:=StartPos; Result:=StartPos;
if Result<1 then exit; if Result<1 then exit;
if Result>length(ASource) then exit; if Result>length(ASource) then exit;
p:=PChar(ASource); p:=@ASource[Result];
case p^ of case p^ of
'/': '/':
begin begin