paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 20:19:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed last line of TCodeBuffer

Browse Source 
git-svn-id: trunk@29841 -
This commit is contained in:
mattias 2011-03-14 16:11:24 +00:00
parent 19860fefde
commit e8de399c71
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/ccodeparsertool.pas
View File

@ -656,12 +656,14 @@ var
if length(Line)<length('#include')+2 then continue;
if copy(Line,1,length('#include'))<>'#include' then continue;
if not (Line[length('#include')+1] in [' ',#9]) then continue;
debugln(['Parse AAA0 "',Line,'"']);
IncludeParam:=Trim(copy(Line,length('#include')+1,length(Line)));
debugln(['Parse AAA1 ',IncludeParam]);
if (IncludeParam<>'') and (IncludeParam[1] in ['<','"']) then
IncludeParam:=copy(IncludeParam,2,length(IncludeParam)-2);
if IncludeParam<>'' then begin
// for example: glib/gutils.h
//debugln(['TCHeaderFileMerger.Merge Param=',IncludeParam]);
debugln(['TCHeaderFileMerger.Merge Param=',IncludeParam]);
// search file in list
for j:=1 to SourceBuffers.Count-1 do begin
IncCode:=TCodeBuffer(SourceBuffers[j]);
@ -674,9 +676,9 @@ var
// include file found
if MergedBuffers.IndexOf(IncCode)<0 then begin
debugln(['TCHeaderFileMerger.Merge file '+IncFilename+' into '+Code.Filename]);
Append('/* h2pas: merged '+IncludeParam+' into '+ExtractFileName(Code.Filename)+' */'+LineEnding);
Append(Code,MergePos,Code.GetLineStart(i));
MergePos:=Code.GetLineStart(i+1);
Append('/* h2pas: merged '+IncludeParam+' into '+ExtractFileName(Code.Filename)+' */'+LineEnding);
Parse(IncCode);
Append('/* h2pas: end of merged '+IncludeParam+' into '+ExtractFileName(Code.Filename)+' */'+LineEnding+LineEnding);
end;
@ -685,8 +687,8 @@ var
end;
end;
end;
if MergePos<Code.SourceLength then
Append(Code,MergePos,Code.SourceLength);
if MergePos<=Code.SourceLength then
Append(Code,MergePos,Code.SourceLength+1);
Append(LineEnding);
end;

2
components/codetools/sourcelog.pas
View File

@ -365,7 +365,7 @@ begin
if Index<fLineCount-1 then
LineLen:=fLineRanges[Index+1].StartPos-fLineRanges[Index].StartPos
else
LineLen:=fSrcLen-fLineRanges[Index].StartPos;
LineLen:=fSrcLen-fLineRanges[Index].StartPos+1;
SetLength(Result,LineLen);
if LineLen>0 then
System.Move(fSource[fLineRanges[Index].StartPos],Result[1],LineLen);