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

Converter: Change sLineBreak to LineEnding for consistency.

Browse Source 
git-svn-id: trunk@29387 -
This commit is contained in:
juha 2011-02-05 10:00:46 +00:00
parent 2a4bd6006c
commit 57a280722d
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
converter/convcodetool.pas
View File

@ -454,7 +454,7 @@ begin
[NewFunc, FuncInfo.InclSemiColon, FuncInfo.FuncName, Comment]); [NewFunc, FuncInfo.InclSemiColon, FuncInfo.FuncName, Comment]);
// Old function call with params for IDE message output. // Old function call with params for IDE message output.
s:=copy(fCTLink.CodeTool.Src, FuncInfo.StartPos, FuncInfo.EndPos-FuncInfo.StartPos); s:=copy(fCTLink.CodeTool.Src, FuncInfo.StartPos, FuncInfo.EndPos-FuncInfo.StartPos);
s:=StringReplace(s, sLineBreak, '', [rfReplaceAll]); s:=StringReplace(s, LineEnding, '', [rfReplaceAll]);
// Now replace it. // Now replace it.
fCTLink.ResetMainScanner; fCTLink.ResetMainScanner;
if not fCTLink.SrcCache.Replace(gtNone, gtNone, if not fCTLink.SrcCache.Replace(gtNone, gtNone,
@ -574,7 +574,7 @@ var
for i:=0 to ReplaceFuncs.Funcs.Count-1 do begin for i:=0 to ReplaceFuncs.Funcs.Count-1 do begin
FuncName:=ReplaceFuncs.Funcs[i]; FuncName:=ReplaceFuncs.Funcs[i];
if (IdentEndPos-xStart=length(FuncName)) if (IdentEndPos-xStart=length(FuncName))
and (CompareIdentifiers(PChar(Pointer(FuncName)),@Src[xStart])=0) and (CompareIdentifiers(PChar(FuncName),@Src[xStart])=0)
and not fDefinedProcNames.Find(FuncName, x) and not fDefinedProcNames.Find(FuncName, x)
then begin then begin
FuncDefInfo:=ReplaceFuncs.FuncAtInd(i); FuncDefInfo:=ReplaceFuncs.FuncAtInd(i);

4
converter/convertdelphi.pas
View File

@ -320,8 +320,8 @@ begin
LCLPath:=LCLPath+'$(TargetCPU)-$(TargetOS)'; LCLPath:=LCLPath+'$(TargetCPU)-$(TargetOS)';
Result:=QuestionDlg(lisLCLUnitPathMissing, Result:=QuestionDlg(lisLCLUnitPathMissing,
Format(lisTheCurrentUnitPathForTheFileIsThePathToTheLCLUnits, Format(lisTheCurrentUnitPathForTheFileIsThePathToTheLCLUnits,
[sLineBreak,'"',Filename,'"',sLineBreak,'"',UnitPath,'"',sLineBreak, [LineEnding,'"',Filename,'"',LineEnding,'"',UnitPath,'"',LineEnding,
sLineBreak,'"',LCLPath,'"',sLineBreak,sLineBreak,sLineBreak]), LineEnding,'"',LCLPath,'"',LineEnding,LineEnding,LineEnding]),
mtError, [mrOK, lisContinue, mrAbort, lisInfoBuildMakeAbort], 0); mtError, [mrOK, lisContinue, mrAbort, lisInfoBuildMakeAbort], 0);
exit; exit;
end; end;