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

codetools: reduced debugging

Browse Source 
git-svn-id: trunk@23278 -
This commit is contained in:
mattias 2009-12-25 13:25:50 +00:00
parent a1f22a3dff
commit 0c612af90c
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/sourcelog.pas
View File

@ -848,7 +848,7 @@ begin
// convert line ending to disk line ending // convert line ending to disk line ending
if (DiskLineEnding<>'') and (LineEnding <> DiskLineEnding) then begin if (DiskLineEnding<>'') and (LineEnding <> DiskLineEnding) then begin
s := ChangeLineEndings(s, DiskLineEnding); s := ChangeLineEndings(s, DiskLineEnding);
DebugLn(['TSourceLog.SaveToFile ',Filename]); //DebugLn(['TSourceLog.SaveToFile ',Filename]);
end; end;
if s <> '' then if s <> '' then
fs.Write(s[1], length(s)); fs.Write(s[1], length(s));