diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-03-31 16:13:02 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-03-31 16:13:02 +0000 |
| commit | 07846c5a4f285839929009a7c74d30c0c44a0c45 (patch) | |
| tree | 400e80370cca1a2fd696f11b946d1cf2d05353c3 /compiler | |
| parent | 8d28994ff311118b3353408632c745ea365cd65d (diff) | |
| download | haskell-07846c5a4f285839929009a7c74d30c0c44a0c45.tar.gz | |
Use machdepCCOpts when compiling the file to toggle -(no-)rtsopts
Should fix toggling on OS X "Snow Leopard". Diagnosed by Roman Leshchinskiy.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index c0aed96e70..d54bb0f929 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1305,12 +1305,14 @@ mkExtraCObj dflags xs oFile <- newTempName dflags "o" writeFile cFile $ unlines xs let rtsDetails = getPackageDetails (pkgState dflags) rtsPackageId + (md_c_flags, _) = machdepCCOpts dflags SysTools.runCc dflags ([Option "-c", FileOption "" cFile, Option "-o", FileOption "" oFile] ++ - map (FileOption "-I") (includeDirs rtsDetails)) + map (FileOption "-I") (includeDirs rtsDetails) ++ + map Option md_c_flags) return oFile -- generates a Perl skript starting a parallel prg under PVM |