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

* Pass the target-CPU to fpc.

Browse Source 
git-svn-id: trunk@20066 -
This commit is contained in:
joost 2012-01-13 18:36:06 +00:00
parent a26f1d9dd3
commit 1499ba9caf
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4590,6 +4590,11 @@ begin
// Target OS // Target OS
Args.Add('-T'+OSToString(Defaults.OS)); Args.Add('-T'+OSToString(Defaults.OS));
// Target CPU.
// This setting is only applicable when 'fpc' is used as compiler-executable.
if ExtractFileName(GetCompiler) = 'fpc' then
Args.Add('-P'+CPUToString(Defaults.CPU));
// Compile mode // Compile mode
If ATarget.Mode<>cmFPC then If ATarget.Mode<>cmFPC then
Args.Add('-M'+ModeToString(ATarget.Mode)) Args.Add('-M'+ModeToString(ATarget.Mode))