paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:26:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

patch from Darius Blaszijk

Browse Source 
- implements Defaults.NoFPCCfg in TBuildEngine.GetCompilerCommand
- added ttCleanOnlyUnit in TTarget.GetCleanFiles
- fixes a dirty little bug in TBuildEngine.GetCompilerCommand (compile filename)

git-svn-id: trunk@9311 -
This commit is contained in:
peter 2007-11-21 21:41:03 +00:00
parent 0f412ff2d6
commit 044ef8b982
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fpmkunit/src/fpmkunit.pp
View File

@ -3326,7 +3326,12 @@ Var
begin
PD:=GetPackageDir(APackage,True);
Result := '-n';
Result := '';
//compiler configuration
if Defaults.NoFPCCfg then
Result := '-n';
// Compile mode
If Target.Mode<>cmFPC then
Result:=Result+' -M'+ModeToString(Target.Mode)
@ -3366,7 +3371,7 @@ begin
If (Target.Options<>'') then
Result:=Result+' '+Target.Options;
// Add Filename to compile
Result:=Result+' '+Target.FullSourceFileName;
Result:=Result+' '+ExtractRelativePath(PD, ExpandFileName(Target.FullSourceFileName));
end;
@ -4128,7 +4133,7 @@ begin
If not(ACPU in CPUs) or not(AOS in OSes) then
exit;
List.Add(APrefixU + ObjectFileName);
If (TargetType in [ttUnit,ttImplicitUnit,ttExampleUnit]) then
If (TargetType in [ttUnit,ttImplicitUnit,ttExampleUnit, ttCleanOnlyUnit]) then
List.Add(APrefixU + UnitFileName)
else If (TargetType in [ttProgram,ttExampleProgram]) then
List.Add(APrefixB + GetProgramFileName(AOS));