Browse Source

* Pass the target-CPU to fpc.

git-svn-id: trunk@20066 -
joost 13 years ago
parent
commit
1499ba9caf
1 changed files with 5 additions and 0 deletions
  1. 5 0
      packages/fpmkunit/src/fpmkunit.pp

+ 5 - 0
packages/fpmkunit/src/fpmkunit.pp

@@ -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))