paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 01:59:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use {$IFNDEF FPC} instead of {$IFDEF FPC} so that Delphi can also maintain the code.

Browse Source 
git-svn-id: trunk@24353 -
This commit is contained in:
juha 2010-04-01 13:25:39 +00:00
parent af9b033b42
commit 6269b46af9
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
converter/convcodetool.pas
View File

@ -222,12 +222,12 @@ begin
if (LclOnlyUnits.Count>0) or (DelphiOnlyUnits.Count>0) then begin
// Add LCL and Delphi sections for output.
nl:=fSrcCache.BeautifyCodeOptions.LineEnd;
s:='{$IFDEF FPC}'+nl+' ';
for i:=0 to LclOnlyUnits.Count-1 do
s:=s+LclOnlyUnits[i]+', ';
s:=s+nl+'{$ELSE}'+nl+' ';
s:='{$IFNDEF FPC}'+nl+' ';
for i:=0 to DelphiOnlyUnits.Count-1 do
s:=s+DelphiOnlyUnits[i]+', ';
s:=s+nl+'{$ELSE}'+nl+' ';
for i:=0 to LclOnlyUnits.Count-1 do
s:=s+LclOnlyUnits[i]+', ';
s:=s+nl+'{$ENDIF}';
// Now add the lines using codetools.
if not fSrcCache.Replace(gtEmptyLine,gtNewLine,InsPos,InsPos,s) then exit;
@ -334,11 +334,11 @@ begin
begin
// Add IFDEF for .lfm and .dfm allowing Delphi to use .dfm.
nl:=fSrcCache.BeautifyCodeOptions.LineEnd;
s:='{$IFDEF FPC}'+nl+
' {$R *.lfm}'+nl+
'{$ELSE}'+nl+
s:='{$IFNDEF FPC}'+nl+
' {$R *.dfm}'+nl+
'{$ENDIF}'; // gtEmptyLine,gtNewLine,
'{$ELSE}'+nl+
' {$R *.lfm}'+nl+
'{$ENDIF}';
Result:=fSrcCache.Replace(gtNone,gtNone,fDfmDirectiveStart,fDfmDirectiveEnd,s);
end;
Result:=true;