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

Converter: Use {$IFnDEF ...} with small 'n'. Easier to read.

Browse Source 
git-svn-id: trunk@41170 -
This commit is contained in:
juha 2013-05-13 14:10:37 +00:00
parent d784e09e7d
commit d5bfaea603
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/convcodetool.pas
View File

@ -305,7 +305,7 @@ begin
end end
else begin else begin
// Add IFDEF for .lfm and .dfm allowing Delphi to use .dfm. // Add IFDEF for .lfm and .dfm allowing Delphi to use .dfm.
s:='{$IFNDEF FPC}'+LineEnding+ s:='{$IFnDEF FPC}'+LineEnding+
' {$R *.dfm}'+LineEnding+ ' {$R *.dfm}'+LineEnding+
'{$ELSE}'+LineEnding+ '{$ELSE}'+LineEnding+
' {$R *.lfm}'+LineEnding+ ' {$R *.lfm}'+LineEnding+

2
converter/usedunits.pas
View File

@ -403,7 +403,7 @@ begin
InsPos:=FindLineEndOrCodeAfterPosition(CurPos.EndPos,false); InsPos:=FindLineEndOrCodeAfterPosition(CurPos.EndPos,false);
end; end;
end; end;
s:=s+'{$IFNDEF FPC}'+LineEnding; s:=s+'{$IFnDEF FPC}'+LineEnding;
if DelphiOnlyUnits.Count>0 then begin if DelphiOnlyUnits.Count>0 then begin
if UsesNode=Nil then if UsesNode=Nil then
s:=s+'uses'+LineEnding; s:=s+'uses'+LineEnding;