paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 20:38:16 +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
else begin
// Add IFDEF for .lfm and .dfm allowing Delphi to use .dfm.
s:='{$IFNDEF FPC}'+LineEnding+
s:='{$IFnDEF FPC}'+LineEnding+
' {$R *.dfm}'+LineEnding+
'{$ELSE}'+LineEnding+
' {$R *.lfm}'+LineEnding+

2
converter/usedunits.pas
View File

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