pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

chelper: fix comments parsing

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1290 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2010-08-16 14:46:33 +00:00
parent 297f9b4d2b
commit 86e7cf7017
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/chelper/ctopasconvert.pas
View File

@ -315,8 +315,7 @@ begin
if (not Assigned(Result)) or (Assigned(ent) and (ent.Offset<Result.Offset)) then begin if (not Assigned(Result)) or (Assigned(ent) and (ent.Offset<Result.Offset)) then begin
Result:=ent; Result:=ent;
AParser.Index:=entidx; AParser.Index:=entidx;
end else end;
AParser.NextToken;
end; end;
function GetRefAsterix(const AstCount: integer): ansistring; function GetRefAsterix(const AstCount: integer): ansistring;