paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-16 13:29:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed needscompile for target

Browse Source 
git-svn-id: trunk@9062 -
This commit is contained in:
michael 2007-11-02 20:21:11 +00:00
parent e63121e13c
commit f67ee5c7c1
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1559,7 +1559,7 @@ begin
// Detect compiler version/target from -i option
infosl:=TStringList.Create;
infosl.Delimiter:=' ';
infosl.DelimitedText:=GetCompilerInfo(FCompiler,'-iVTPTO');
infosl.DelimitedText:=GetCompilerInfo(GetCompiler,'-iVTPTO');
if infosl.Count<>3 then
Raise EInstallerError.Create(SErrInvalidFPCInfo);
FCompilerVersion:=infosl[0];
@ -2942,15 +2942,16 @@ Var
begin
Result:=False;
OD:=FCurrentOutputDir;
If (OD<>'') then
OD:=IncludeTrailingPathDelimiter(OD);
OFN:=OD+Target.GetOutPutFileName(Defaults.OS);
OFN:=Target.GetOutPutFileName(Defaults.OS);
if Target.TargetType in ProgramTargets then
OFN := GetBinOutputDir(FCurrentPackage, True) + PathDelim + OFN
OD:=GetBinOutputDir(FCurrentPackage, True)
else
OFN := GetUnitsOutputDir(FCurrentPackage, True) + PathDelim + OFN;
OD:=GetUnitsOutputDir(FCurrentPackage, True);
If (OD<>'') then
OD:=IncludeTrailingPathDelimiter(OD);
OFN:=OD+OFN;
SD:=Target.Directory;
If (SD<>'') then