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

IDE: Remove obsolete CompiledUnitExt function.

Browse Source 
git-svn-id: trunk@27916 -
This commit is contained in:
juha 2010-10-28 07:03:31 +00:00
parent d435b111a3
commit 5cc7e97fc2
2 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/buildprofilemanager.pas
View File

@ -135,7 +135,6 @@ type
procedure Assign(Source: TBuildLazarusProfile; ACopyName: Boolean=True);
procedure Load(XMLConfig: TXMLConfig; const Path: string);
procedure Save(XMLConfig: TXMLConfig; const Path: string);
function CompiledUnitExt(FPCVersion, FPCRelease: integer): string;
public
property Name: string read fName;
property CleanAll: boolean read fCleanAll write fCleanAll;
@ -500,16 +499,6 @@ begin
fMakeModes[i]:=Source.MakeModes[i];
end;
function TBuildLazarusProfile.CompiledUnitExt(FPCVersion, FPCRelease: integer): string;
begin
Result:=GetDefaultCompiledUnitExt(FPCVersion,FPCRelease);
if (CompareText(TargetOS,'win32')=0)
and (FPCVersion=1) and (FPCRelease=0) then
Result:='.ppw'
else
Result:='.ppu';
end;
{ TBuildLazarusProfiles }

3
ide/main.pp
View File

@ -11421,8 +11421,7 @@ begin
EnvironmentOptions.LazarusDirectory,
FPCVersion,FPCRelease,FPCPatch);
if FPCPatch=0 then ;
CompiledUnitExt:=MiscellaneousOptions.BuildLazOpts.CompiledUnitExt(
FPCVersion,FPCRelease);
CompiledUnitExt:=GetDefaultCompiledUnitExt(FPCVersion,FPCRelease);
Result:=MainBuildBoss.CheckUnitPathForAmbiguousPascalFiles(
EnvironmentOptions.LazarusDirectory,
InheritedOptionStrings[icoUnitPath],