diff options
| -rw-r--r-- | compiler/GHC/Driver/Session.hs | 35 | ||||
| -rw-r--r-- | docs/users_guide/expected-undocumented-flags.txt | 1 |
2 files changed, 0 insertions, 36 deletions
diff --git a/compiler/GHC/Driver/Session.hs b/compiler/GHC/Driver/Session.hs index e2e93de4a4..1ed839b814 100644 --- a/compiler/GHC/Driver/Session.hs +++ b/compiler/GHC/Driver/Session.hs @@ -2899,7 +2899,6 @@ dynamic_flags_deps = [ (deprecate $ "The -fvia-C flag does nothing; " ++ "it will be removed in a future GHC release")) , make_ord_flag defGhcFlag "fllvm" (NoArg (setObjBackend llvmBackend)) - , make_ord_flag defGhcFlag "fjavascript" (NoArg (upd enableJavaScript)) , make_ord_flag defFlag "fno-code" (NoArg ((upd $ \d -> d { ghcLink=NoLink }) >> setBackend noBackend)) @@ -5068,37 +5067,3 @@ updatePlatformConstants dflags mconstants = do let platform1 = (targetPlatform dflags) { platform_constants = mconstants } let dflags1 = dflags { targetPlatform = platform1 } return dflags1 - - --- | Enable the JavaScript backend and overrides the target platform with a JS --- one. --- --- FIXME: This will need to done differently. Instead of passing -fjavascript to --- enable the JS backend, compiler's settings will define the architecture of --- the target platform as ArchJavaScript and the default backend will be --- JavaScript. -enableJavaScript :: DynFlags -> DynFlags -enableJavaScript dflags = dflags - { backend = JavaScript - , targetPlatform = jsPlatform - } - -jsPlatform :: Platform -jsPlatform = Platform - { platformArchOS = ArchOS ArchJavaScript OSUnknown - , platformWordSize = PW8 -- FIXME: should be PW4 but then we can't load "base" - -- for dirty tests (i.e. loading - -- interfaces for the original non-JS target - -- platform) - , platformByteOrder = LittleEndian - , platformUnregisterised = False - , platformHasGnuNonexecStack = False - , platformHasIdentDirective = False - , platformHasSubsectionsViaSymbols = False - , platformIsCrossCompiling = True - , platformLeadingUnderscore = False - , platformTablesNextToCode = False - , platformHasLibm = False - , platform_constants = Nothing - } - diff --git a/docs/users_guide/expected-undocumented-flags.txt b/docs/users_guide/expected-undocumented-flags.txt index c7e3f10ae6..33958b1578 100644 --- a/docs/users_guide/expected-undocumented-flags.txt +++ b/docs/users_guide/expected-undocumented-flags.txt @@ -54,7 +54,6 @@ -fimplicit-params -fimplicit-prelude -firrefutable-tuples --fjavascript -fmax-errors -fmax-pmcheck-iterations -fmonomorphism-restriction |