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

MG: OS dependent line end

Browse Source 
git-svn-id: trunk@1494 -
This commit is contained in:
lazarus 2002-03-09 17:02:16 +00:00
parent 219b96b901
commit 7be6c70b19
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/sourcelog.pas
View File

@ -722,7 +722,8 @@ begin
if IsEqual(sl) then exit; if IsEqual(sl) then exit;
IncreaseHookLock; IncreaseHookLock;
Clear; Clear;
fSrcLen:=sl.Count*2; sl.Text;
fSrcLen:=sl.Count*{$IFDEF win32}2{$ELSE}1{$ENDIF};
for y:=0 to sl.Count-1 do inc(fSrcLen,length(sl[y])); for y:=0 to sl.Count-1 do inc(fSrcLen,length(sl[y]));
fSource:=''; fSource:='';
SetLength(fSource,fSrcLen); SetLength(fSource,fSrcLen);
@ -735,8 +736,10 @@ begin
System.Move(s[1],fSource[p],LineLen); System.Move(s[1],fSource[p],LineLen);
inc(p,LineLen); inc(p,LineLen);
end; end;
{$IFDEF win32}
fSource[p]:=#13; fSource[p]:=#13;
inc(p); inc(p);
{$ENDIF}
fSource[p]:=#10; fSource[p]:=#10;
inc(p); inc(p);
end; end;