X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FStaticFlags.hs;h=f9312a2c659f06f04b8fd01d707992bb24793ef3;hb=a8dc65d6582cc8dda6a1de2862e2d6da80a78d0c;hp=e71c5c7f985a99d5d32d4c2640a30b70b5e1976c;hpb=08f3834baf68671f1b9e61def2e4d5511fbe2c8d;p=ghc-hetmet.git diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index e71c5c7..f9312a2 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -57,6 +57,7 @@ module StaticFlags ( -- Related to linking opt_PIC, opt_Static, + opt_HardwireLibPaths, -- misc opts opt_IgnoreDotGhci, @@ -328,6 +329,7 @@ opt_PIC = True opt_PIC = lookUp FSLIT("-fPIC") #endif opt_Static = lookUp FSLIT("-static") +opt_HardwireLibPaths = lookUp FSLIT("-fhardwire-lib-paths") opt_Unregisterised = lookUp FSLIT("-funregisterised") -- Derived, not a real option. Determines whether we will be compiling @@ -368,6 +370,7 @@ isStaticFlag f = "fexcess-precision", "funfolding-update-in-place", "static", + "fhardwire-lib-paths", "funregisterised", "fext-core", "fcpr-off", @@ -409,7 +412,7 @@ decodeSize str | c == "G" || c == "g" = truncate (n * 1000 * 1000 * 1000) | otherwise = throwDyn (CmdLineError ("can't decode size: " ++ str)) where (m, c) = span pred str - n = read m :: Double + n = readRational m pred c = isDigit c || c == '.'