17 months agoMove 'HsBangTy' out in constructor arguments
Alec Theriault [Thu, 7 Jun 2018 17:26:53 +0000 (13:26 -0400)] 
Move 'HsBangTy' out in constructor arguments

When run with -haddock, a constructor argument can have both a a
strictness/unpackedness annotation and a docstring. The parser binds
'HsBangTy' more tightly than 'HsDocTy', yet for constructor arguments we
really need the 'HsBangTy' on the outside.

This commit does this shuffling in the 'mkConDeclH98' and 'mkGadtDecl'
smart constructors.

Test Plan: haddockA038, haddockC038

Reviewers: bgamari, dfeuer

Reviewed By: bgamari

Subscribers: dfeuer, rwbarton, thomie, carter

Differential Revision:

17 months agoCheck if both branches of an Cmm if have the same target. [Thu, 7 Jun 2018 17:26:19 +0000 (13:26 -0400)] 
Check if both branches of an Cmm if have the same target.

This for some reason or the other and makes it into the final
binary. I've added the check to ContFlowOpt as that seems
like a logical place for this.

In a regular nofib run there were 30 occurences of this pattern.

Test Plan: ci

Reviewers: bgamari, simonmar, dfeuer, jrtc27, tdammers

Reviewed By: bgamari, simonmar

Subscribers: tdammers, dfeuer, rwbarton, thomie, carter

GHC Trac Issues: #15188

Differential Revision:

17 months agoFix unparseable pretty-printing of promoted data cons
Andreas Herrmann [Thu, 7 Jun 2018 17:24:52 +0000 (13:24 -0400)] 
Fix unparseable pretty-printing of promoted data cons

Previously we would print code which would not round-trip:
> :set -XDataKinds
> :set -XPolyKinds
> data Proxy k = Proxy
> _ :: Proxy '[ 'True ]
  Found hole: _ :: Proxy '['True]
> _ :: Proxy '['True]
    Invalid type signature: _ :: ...
    Should be of form <variable> :: <type>

Test Plan: Validate with T14343

Reviewers: RyanGlScott, goldfire, bgamari, tdammers

Reviewed By: RyanGlScott, bgamari

Subscribers: tdammers, rwbarton, thomie, carter

GHC Trac Issues: #14343

Differential Revision:

17 months agoIndex arrays more eagerly
David Feuer [Thu, 7 Jun 2018 17:21:41 +0000 (13:21 -0400)] 
Index arrays more eagerly

Many basic functions in `GHC.Arr` were unreasonably lazy about
performing array lookups. This could lead to useless thunks
at best and memory leaks at worst. Use eager lookups where
they're obviously appropriate.

Reviewers: bgamari, hvr

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoWorkWrap: Rip out unsafeGlobalDynFlags usage in mkWwInlineRule
Ben Gamari [Thu, 7 Jun 2018 17:20:49 +0000 (13:20 -0400)] 
WorkWrap: Rip out unsafeGlobalDynFlags usage in mkWwInlineRule

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoDon't use unsafeGlobalDynFlags in optCoercion
Ben Gamari [Thu, 7 Jun 2018 17:20:30 +0000 (13:20 -0400)] 
Don't use unsafeGlobalDynFlags in optCoercion

This plumbs DynFlags through CoreOpt so optCoercion can finally
eliminate its usage of `unsafeGlobalDynFlags`.

Note that this doesn't completely eliminate `unsafeGlobalDynFlags`
usage from this bit of the compiler. A few uses are introduced in
call-sites where we don't (yet) have ready access to `DynFlags`.

Test Plan: Validate

Reviewers: goldfire

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoUpdate hadrian submodule
Ben Gamari [Tue, 5 Jun 2018 15:27:21 +0000 (11:27 -0400)] 
Update hadrian submodule

17 months agotestsuite: Fix dynamic-paper stderr file
Ben Gamari [Thu, 7 Jun 2018 22:05:51 +0000 (22:05 +0000)] 
testsuite: Fix dynamic-paper stderr file

The stderr file was empty, yet GHC fails with an error.

17 months agoRemove ad-hoc special case in occAnal
Simon Peyton Jones [Thu, 7 Jun 2018 10:03:21 +0000 (11:03 +0100)] 
Remove ad-hoc special case in occAnal

Back in 1999 I put this ad-hoc code in the Case-handling
code for occAnal:

  occAnal env (Case scrut bndr ty alts)
   = ...
        -- Note [Case binder usage]
        -- ~~~~~~~~~~~~~~~~~~~~~~~~
        -- The case binder gets a usage of either "many" or "dead", never "one".
        -- Reason: we like to inline single occurrences, to eliminate a binding,
        -- but inlining a case binder *doesn't* eliminate a binding.
        -- We *don't* want to transform
        --      case x of w { (p,q) -> f w }
        -- into
        --      case x of w { (p,q) -> f (p,q) }
    tag_case_bndr usage bndr
      = (usage', setIdOccInfo bndr final_occ_info)
        occ_info       = lookupDetails usage bndr
        usage'         = usage `delDetails` bndr
        final_occ_info = case occ_info of IAmDead -> IAmDead
                                          _       -> noOccInfo

But the comment looks wrong -- the bad inlining will not happen -- and
I think it relates to some long-ago version of the simplifier.

So I simply removed the special case, which gives more accurate
occurrence-info to the case binder.  Interestingly I got a slight
improvement in nofib binary sizes.

        Program           Size    Allocs   Runtime   Elapsed  TotalMem
      cacheprof          -0.1%     +0.2%     -0.7%     -1.2%     +8.6%
            Min          -0.2%      0.0%    -14.5%    -30.5%      0.0%
            Max          -0.1%     +0.2%    +10.0%    +10.0%    +25.0%
 Geometric Mean          -0.2%     +0.0%     -1.9%     -5.4%     +0.3%

I have no idea if the improvement in runtime is real.  I did look at the
tiny increase in allocation for cacheprof and concluded that it was
unimportant (I forget the details).

Also the more accurate occ-info for the case binder meant that some
inlining happens in one pass that previously took successive passes
for the test dependent/should_compile/dynamic-paper (which has a
known Russel-paradox infinite loop in the simplifier).

In short, a small win: less ad-hoc complexity and slightly smaller

17 months agoComments only
Simon Peyton Jones [Thu, 7 Jun 2018 10:02:55 +0000 (11:02 +0100)] 
Comments only

17 months agoDo not scavenge SMALL_MUT_ARR_PTRS_CLEAN in mut_lists
Ömer Sinan Ağacan [Thu, 7 Jun 2018 04:05:12 +0000 (07:05 +0300)] 
Do not scavenge SMALL_MUT_ARR_PTRS_CLEAN in mut_lists

For the same reason with MUT_ARR_PTRS_CLEAN we don't need to scavenge

Because SMALL_MUT_ARR_PTRS doesn't have a card table we don't have a
special case when scavenging SMALL_MUT_ARR_PTRS_DIRTY in a mut_list.

Test Plan: this validates

Reviewers: simonmar, bgamari, erikd

Reviewed By: simonmar, bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoLet the simplifier know that seq# forces
David Feuer [Wed, 6 Jun 2018 19:50:06 +0000 (15:50 -0400)] 
Let the simplifier know that seq# forces

Add a special case in `simplAlt` to record that the result of
`seq#` is in WHNF.

Reviewers: simonmar, bgamari, simonpj

Reviewed By: simonpj

Subscribers: simonpj, rwbarton, thomie, carter

GHC Trac Issues: #15226

Differential Revision:

17 months agorts: Reuse dbl_link_remove in a few places
Ömer Sinan Ağacan [Tue, 5 Jun 2018 14:01:12 +0000 (17:01 +0300)] 
rts: Reuse dbl_link_remove in a few places

Test Plan: this validates

Reviewers: simonmar, bgamari, erikd

Reviewed By: simonmar

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoRename some mutable closure types for consistency
Ömer Sinan Ağacan [Tue, 5 Jun 2018 14:00:22 +0000 (17:00 +0300)] 
Rename some mutable closure types for consistency


Naming is now consistent with other CLEAR/DIRTY objects (MVAR, MUT_VAR,

(alternatively we could rename MVAR_DIRTY/MVAR_CLEAN etc. to MVAR0/MVAR)

Removed a few comments in Scav.c about FROZEN0 being on the mut_list
because it's now clear from the closure type.

Reviewers: bgamari, simonmar, erikd

Reviewed By: simonmar

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoIntroduce DerivingVia
Ryan Scott [Tue, 5 Jun 2018 01:20:02 +0000 (21:20 -0400)] 
Introduce DerivingVia

This implements the `DerivingVia` proposal put forth in

This introduces the `DerivingVia` deriving strategy. This is a
generalization of `GeneralizedNewtypeDeriving` that permits the user
to specify the type to `coerce` from.

The major change in this patch is the introduction of the
`ViaStrategy` constructor to `DerivStrategy`, which takes a type
as a field. As a result, `DerivStrategy` is no longer a simple
enumeration type, but rather something that must be renamed and
typechecked. The process by which this is done is explained more
thoroughly in section 3 of this paper
( ),
although I have inlined the relevant parts into Notes where possible.

There are some knock-on changes as well. I took the opportunity to
do some refactoring of code in `TcDeriv`, especially the
`mkNewTypeEqn` function, since it was bundling all of the logic for
(1) deriving instances for newtypes and
(2) `GeneralizedNewtypeDeriving`
into one huge broth. `DerivingVia` reuses much of part (2), so that
was factored out as much as possible.

Bumps the Haddock submodule.

Test Plan: ./validate

Reviewers: simonpj, bgamari, goldfire, alanz

Subscribers: alanz, goldfire, rwbarton, thomie, mpickering, carter

GHC Trac Issues: #15178

Differential Revision:

17 months agoSerialize docstrings to ifaces, display them with new GHCi :doc command
Simon Jakobi [Mon, 4 Jun 2018 21:51:03 +0000 (17:51 -0400)] 
Serialize docstrings to ifaces, display them with new GHCi :doc command

If `-haddock` is set, we now extract docstrings from the renamed ast
and serialize them in the .hi-files.

This includes some of the changes from D4749 with the notable
exceptions of the docstring lexing and renaming.

A currently limited and experimental GHCi :doc command can be used
to display docstrings for declarations.

The formatting of pretty-printed docstrings is changed slightly,
causing some changes in testsuite/tests/haddock.

Test Plan: ./validate

Reviewers: alexbiehl, hvr, gershomb, harpocrates, bgamari

Reviewed By: alexbiehl

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoAlso suppress uniques in cmm dumps with `-dsuppress-uniques`. [Mon, 4 Jun 2018 21:50:21 +0000 (17:50 -0400)] 
Also suppress uniques in cmm dumps with `-dsuppress-uniques`.

Allows easier structural comparison of Cmm code.

       cxCH: // global
           _suEU::P64 = R1;
           if ((Sp + -16) < SpLim) (likely: False) goto cxCI; else goto

       _lbl_: // global
           __locVar_::P64 = R1;
           if ((Sp + -16) < SpLim) (likely: False) goto cxBf; else goto

Test Plan: Looking at dumps, ci

Reviewers: bgamari, simonmar

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoImprove extendTvSubst assertion
Matthew Pickering [Mon, 4 Jun 2018 21:50:01 +0000 (17:50 -0400)] 
Improve extendTvSubst assertion

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoAdd Outputable instance for HsArg
Matthew Pickering [Mon, 4 Jun 2018 21:49:34 +0000 (17:49 -0400)] 
Add Outputable instance for HsArg

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoImplement QuantifiedConstraints
Simon Peyton Jones [Sat, 27 Jan 2018 14:32:34 +0000 (14:32 +0000)] 
Implement QuantifiedConstraints

We have wanted quantified constraints for ages and, as I hoped,
they proved remarkably simple to implement.   All the machinery was
already in place.

The main ticket is Trac #2893, but also relevant are
  #9123 (especially!  higher kinded roles)

The wiki page is
which in turn contains a link to the GHC Proposal where the change
is specified.

Here is the relevant Note:

Note [Quantified constraints]
The -XQuantifiedConstraints extension allows type-class contexts like

  data Rose f x = Rose x (f (Rose f x))

  instance (Eq a, forall b. Eq b => Eq (f b))
        => Eq (Rose f a)  where
    (Rose x1 rs1) == (Rose x2 rs2) = x1==x2 && rs1 >= rs2

Note the (forall b. Eq b => Eq (f b)) in the instance contexts.
This quantified constraint is needed to solve the
 [W] (Eq (f (Rose f x)))
constraint which arises form the (==) definition.

Here are the moving parts
  * Language extension {-# LANGUAGE QuantifiedConstraints #-}
    and add it to ghc-boot-th:GHC.LanguageExtensions.Type.Extension

  * A new form of evidence, EvDFun, that is used to discharge
    such wanted constraints

  * checkValidType gets some changes to accept forall-constraints
    only in the right places.

  * Type.PredTree gets a new constructor ForAllPred, and
    and classifyPredType analyses a PredType to decompose
    the new forall-constraints

  * Define a type TcRnTypes.QCInst, which holds a given
    quantified constraint in the inert set

  * TcSMonad.InertCans gets an extra field, inert_insts :: [QCInst],
    which holds all the Given forall-constraints.  In effect,
    such Given constraints are like local instance decls.

  * When trying to solve a class constraint, via
    TcInteract.matchInstEnv, use the InstEnv from inert_insts
    so that we include the local Given forall-constraints
    in the lookup.  (See TcSMonad.getInstEnvs.)

  * topReactionsStage calls doTopReactOther for CIrredCan and
    CTyEqCan, so they can try to react with any given
    quantified constraints (TcInteract.matchLocalInst)

  * TcCanonical.canForAll deals with solving a
    forall-constraint.  See
       Note [Solving a Wanted forall-constraint]
       Note [Solving a Wanted forall-constraint]

  * We augment the kick-out code to kick out an inert
    forall constraint if it can be rewritten by a new
    type equality; see TcSMonad.kick_out_rewritable

Some other related refactoring

* Move SCC on evidence bindings to post-desugaring, which fixed
  #14735, and is generally nicer anyway because we can use
  existing CoreSyn free-var functions.  (Quantified constraints
  made the free-vars of an ev-term a bit more complicated.)

* In LookupInstResult, replace GenInst with OneInst and NotSure,
  using the latter for multiple matches and/or one or more

17 months agoDocument the fact that cmm dumps won't show unreachable blocks. [Mon, 4 Jun 2018 17:26:22 +0000 (13:26 -0400)] 
Document the fact that cmm dumps won't show unreachable blocks.

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoFix broken test T14547.
HE, Tao [Sun, 3 Jun 2018 21:18:54 +0000 (17:18 -0400)] 
Fix broken test T14547.

Phab:D4571 lags behind HEAD for too many commits. The commit of
Phab:4571 1f88f541aad1e36d01f22f9e71dfbc247e6558e2 brought some
unintentional changes (not belong to [Phab:4571's Diff
16314]( into
ghc-head, breaking T14557.

Let's fix that.

Test Plan: make test TEST="T14547"

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #15222

Differential Revision:

17 months agoBump stm and haskeline submodules
Ben Gamari [Sun, 3 Jun 2018 21:18:12 +0000 (17:18 -0400)] 
Bump stm and haskeline submodules

17 months agoRefactor SetLevels.abstractVars
Simon Peyton Jones [Fri, 1 Jun 2018 15:42:11 +0000 (16:42 +0100)] 
Refactor SetLevels.abstractVars

This patch is pure refactoring: using utility functions
rather than special-purpose code, especially for closeOverKinds

17 months agoExpand type synonyms when Linting a forall
Simon Peyton Jones [Fri, 1 Jun 2018 15:36:57 +0000 (16:36 +0100)] 
Expand type synonyms when Linting a forall

Trac #14939 showed a type like
   type Alg cls ob = ob
   f :: forall (cls :: * -> Constraint) (b :: Alg cls *). b

where the kind of the forall looks like (Alg cls *), with a
free cls. This tripped up Core Lint.

I fixed this by making Core Lint a bit more forgiving, expanding
type synonyms if necessary.

I'm worried that this might not be the whole story; notably
typeKind looks suspect.  But it certainly fixes this problem.

17 months agoDo a late CSE pass
Simon Peyton Jones [Fri, 1 Jun 2018 11:53:41 +0000 (12:53 +0100)] 
Do a late CSE pass

When investigating something else I found that a condition
was being re-evaluated in wheel-seive1.  Why, when CSE should
find it?  Because the opportunity only showed up after

This patch adds a late CSE pass. Rather than give it an extra
flag I do it when (cse && (spec_constr || liberate_case)), so
roughly speaking it happense with -O2.

In any case, CSE is very cheap.

Nofib results are minor but in the right direction:

        Program           Size    Allocs   Runtime   Elapsed  TotalMem
           anna          -0.1%     -0.0%     0.163     0.163      0.0%
          eliza          -0.1%     -0.4%     0.001     0.001      0.0%
           fft2          -0.1%      0.0%     0.087     0.087      0.0%
           mate          -0.0%     -1.3%     -0.8%     -0.8%      0.0%
      paraffins          -0.0%     -0.1%     +0.9%     +0.9%      0.0%
            pic          -0.0%     -0.1%     0.009     0.009      0.0%
   wheel-sieve1          -0.2%     -0.0%     -0.1%     -0.1%      0.0%
            Min          -0.6%     -1.3%     -2.4%     -2.4%      0.0%
            Max          +0.0%     +0.0%     +3.8%     +3.8%    +23.8%
 Geometric Mean          -0.0%     -0.0%     +0.2%     +0.2%     +0.2%

17 months agoProvide `getWithUserData` and `putWithUserData`
Matthew Pickering [Mon, 4 Jun 2018 02:05:46 +0000 (02:05 +0000)] 
Provide `getWithUserData` and `putWithUserData`

This makes it possible to serialise Names and FastStrings in user
programs, for example, when writing a source plugin.

When writing my first source plugin, I wanted to serialise names but it
wasn't possible easily without exporting additional constructors. This
interface is sufficient and abstracts nicely over the symbol table and

Reviewers: alpmestan, bgamari

Reviewed By: alpmestan

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #15223

Differential Revision:

17 months agotestsuite: Really mark T14547 as broken
Ben Gamari [Sun, 3 Jun 2018 20:49:45 +0000 (16:49 -0400)] 
testsuite: Really mark T14547 as broken

17 months agotestsuite: Mark T14547 as broken
Ben Gamari [Sun, 3 Jun 2018 14:24:55 +0000 (10:24 -0400)] 
testsuite: Mark T14547 as broken

17 months agoAdd tests for #8128 and #8740
Ryan Scott [Sun, 3 Jun 2018 11:47:51 +0000 (07:47 -0400)] 
Add tests for #8128 and #8740

Commit 08073e16cf672d8009309e4e55d4566af1ecaff4 (#11066) ended up
fixing these, fortunately enough.

17 months agoFix typo in OverloadedLabels docs
Joachim Breitner [Sun, 3 Jun 2018 08:09:15 +0000 (10:09 +0200)] 
Fix typo in OverloadedLabels docs

as helpfully reported by elpinal (#15217).

17 months agoImprove exhaustiveness checking for literal values and patterns, fix #14546
HE, Tao [Sun, 3 Jun 2018 04:38:30 +0000 (00:38 -0400)] 
Improve exhaustiveness checking for literal values and patterns, fix #14546

Currently, we parse both the **integral literal** value and the patterns
as `OverLit HsIntegral`.  For example:

  case 0::Int of
      0 -> putStrLn "A"
      1 -> putStrLn "B"
      _ -> putStrLn "C"

When checking the exhaustiveness of pattern matching, we translate the
`0` in value position as `PmOLit`, but translate the `0` and `1` in
pattern position as `PmSLit`. The inconsistency leads to the failure of
`eqPmLit` to detect the equality and report warning of "Pattern match is
redundant" on pattern `0`, as reported in #14546. In this patch we
remove the specialization of `OverLit` patterns, and keep the overloaded
number literal in pattern as it is to maintain the consistency.  Now we
can capture the exhaustiveness of pattern `0` and the redundancy of
pattern `1` and `_`.

For **string literals**, we parse the string literals as `HsString`.
When  `OverloadedStrings` is enabled, it further be turned as `HsOverLit
HsIsString`, whether it's type is `String` or not. For example:

  case "foo" of
      "foo" -> putStrLn "A"
      "bar" -> putStrLn "B"
      "baz" -> putStrLn "C"

Previously, the overloaded string values are translated to `PmOLit` and
the non-overloaded string values are translated to `PmSLit`. However the
string patterns, both overloaded and non-overloaded, are translated to
list of characters. The inconsistency leads to wrong warnings about
redundant and non-exhaustive pattern matching warnings, as reported
in #14546.

In order to catch the redundant pattern in following case:

  case "foo" of
      ('f':_) -> putStrLn "A"
      "bar" -> putStrLn "B"

In this patch, we translate non-overloaded string literals, both in
value position and pattern position, as list of characters. For
overloaded string literals, we only translate it to list of characters
only when it's type is `stringTy`, since we know nothing about the
`toString` methods.  But we know that if two overloaded strings are
syntax equal, then they are equal. Then if it's type is not `stringTy`,
we just translate it to `PmOLit`. We can still capture the
exhaustiveness of pattern `"foo"` and the redundancy of pattern `"bar"`
and `"baz"` in the following code:

{-# LANGUAGE OverloadedStrings #-}
main = do
  case "foo" of
      "foo" -> putStrLn "A"
      "bar" -> putStrLn "B"
      "baz" -> putStrLn "C"

Test Plan: make test TEST="T14546"

Reviewers: bgamari, simonpj

Reviewed By: bgamari, simonpj

Subscribers: simonpj, thomie, carter

GHC Trac Issues: #14546

Differential Revision:

17 months agoAllow aligning of cmm procs at specific boundry [Sun, 3 Jun 2018 04:37:59 +0000 (00:37 -0400)] 
Allow aligning of cmm procs at specific boundry

Allows to align CmmProcs at the given boundries.

It makes performance usually worse but can be helpful
to limit the effect of a unrelated function B becoming
faster/slower after changing function A.

Test Plan: ci, using it.

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #15148

Differential Revision:

17 months agotcExtendTyVarEnv2 changed to tcExtendNameTyVarEnv
Alanas Plascinskas [Sun, 3 Jun 2018 03:23:48 +0000 (23:23 -0400)] 
tcExtendTyVarEnv2 changed to tcExtendNameTyVarEnv

Reviewers: mpickering, goldfire, bgamari

Reviewed By: mpickering

Subscribers: goldfire, rwbarton, thomie, carter

GHC Trac Issues: #15017

Differential Revision:

17 months agoTurn "inaccessible code" error into a warning
Tobias Dammers [Sun, 3 Jun 2018 03:23:22 +0000 (23:23 -0400)] 
Turn "inaccessible code" error into a warning

With GADTs, it is possible to write programs such that the type
constraints make some code branches inaccessible.

Take, for example, the following program ::

    {-# LANGUAGE GADTs #-}

    data Foo a where
     Foo1 :: Foo Char
     Foo2 :: Foo Int

    data TyEquality a b where
            Refl :: TyEquality a a

    checkTEQ :: Foo t -> Foo u -> Maybe (TyEquality t u)
    checkTEQ x y = error "unimportant"

    step2 :: Bool
    step2 = case checkTEQ Foo1 Foo2 of
             Just Refl -> True -- Inaccessible code
             Nothing -> False

Clearly, the `Just Refl` case cannot ever be reached, because the `Foo1`
and `Foo2` constructors say `t ~ Char` and `u ~ Int`, while the `Refl`
constructor essentially mandates `t ~ u`, and thus `Char ~ Int`.

Previously, GHC would reject such programs entirely; however, in
practice this is too harsh. Accepting such code does little harm, since
attempting to use the "impossible" code will still produce errors down
the chain, while rejecting it means we cannot legally write or generate
such code at all.

Hence, we turn the error into a warning, and provide
`-Winaccessible-code` to control GHC's behavior upon encountering this

Test Plan: ./validate

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #11066

Differential Revision:

17 months agoFix a bad interaction between GADTs and COMPLETE sets
Ryan Scott [Sun, 3 Jun 2018 03:22:54 +0000 (23:22 -0400)] 
Fix a bad interaction between GADTs and COMPLETE sets

As observed in #14059 (starting at comment 5), the error
messages surrounding a program involving GADTs and a `COMPLETE` set
became worse between 8.2 and 8.4. The culprit was a new validity
check in 8.4 which filters out `COMPLETE` set candidates if a return
type of any conlike in the set doesn't match the type of the
scrutinee. However, this check was too conservative, since it removed
perfectly valid `COMPLETE` sets that contained GADT constructors,
which quite often have return types that don't match the type of a

To fix this, I adopted the most straightforward possible solution of
only performing this validity check on //pattern synonym//
constructors, not //data// constructors.

Note that this does not fix #14059 entirely, but instead simply fixes
a particular buglet that was discovered in that ticket.

Test Plan: make test TEST=T14059

Reviewers: bgamari, mpickering

Reviewed By: mpickering

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #14059

Differential Revision:

17 months agoRemove ~# from surface syntax
David Feuer [Sun, 3 Jun 2018 01:24:04 +0000 (21:24 -0400)] 
Remove ~# from surface syntax

For some reason, it seems that the `ConstraintKinds` commit
introduced `~#` into Haskell syntax, in a pretty broken manner.
Unless and until we have an actual story for unboxed equality,
it doesn't make sense to expose it. Moreover, the way it was
donet was wrong enough and small enough that it will probably be
easier to start over if we do that. Yank it out.

Reviewers: bgamari, RyanGlScott

Reviewed By: RyanGlScott

Subscribers: RyanGlScott, rwbarton, thomie, mpickering, carter

GHC Trac Issues: #15209

Differential Revision:

17 months agoHandle abi-depends correctly in ghc-pkg
Tobias Dammers [Sun, 3 Jun 2018 01:23:21 +0000 (21:23 -0400)] 
Handle abi-depends correctly in ghc-pkg

When inferring the correct abi-depends, we now look at all the package
databases in the stack, up to and including the current one, because
these are the ones that the current package can legally depend on. While
doing so, we will issue warnings:

- In verbose mode, we warn about every package that declares
  abi-depends:, whether we actually end up overriding them with the
  inferred ones or not ("possibly broken abi-depends").

- Otherwise, we only warn about packages whose declared abi-depends
  does not match what we inferred ("definitely broken abi-depends").

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #14381

Differential Revision:

17 months agorts: Query system rlimit for maximum address-space size
Ben Gamari [Sun, 3 Jun 2018 01:22:52 +0000 (21:22 -0400)] 
rts: Query system rlimit for maximum address-space size

When we attempt to reserve the heap, we query the system's rlimit to
establish the starting point for our search over sizes.

Test Plan: Validate

Reviewers: erikd, simonmar

Reviewed By: simonmar

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #14492

Differential Revision:

17 months agoFix #15214 by listing (~) in isBuiltInOcc_maybe
Ryan Scott [Sun, 3 Jun 2018 01:18:43 +0000 (21:18 -0400)] 
Fix #15214 by listing (~) in isBuiltInOcc_maybe

This changes an obscure error (which mistakenly mentions
Template Haskell) to one that makes more sense.

Test Plan: make test TEST=T15214

Reviewers: bgamari, mpickering

Reviewed By: bgamari, mpickering

Subscribers: mpickering, rwbarton, thomie, carter

GHC Trac Issues: #15214

Differential Revision:

17 months agoCheck for singletons when creating Bag/OrdList from a list. [Sun, 3 Jun 2018 01:18:19 +0000 (21:18 -0400)] 
Check for singletons when creating Bag/OrdList from a list.

This gives us `One x` instead of `Many (x : [])` reducing overhead.
For compiling spectral/simple with -O0 difference was ~ -0.05%

The only drawback is that something like toOL (x:panic "") will now
panic.  But that seems like a reasonable tradeoff.

Test Plan: ci, looking at +RTS -s

Reviewers: bgamari, jmct

Reviewed By: bgamari

Subscribers: jmct, rwbarton, thomie, carter

Differential Revision:

17 months agoFix #13777 by improving the underdetermined CUSK error message
Ryan Scott [Sun, 3 Jun 2018 01:16:40 +0000 (21:16 -0400)] 
Fix #13777 by improving the underdetermined CUSK error message

The error message that GHC emits from underdetermined CUSKs
is rather poor, since:

1. It may print an empty list of user-written variables if there
    are none in the declaration.
2. It may not mention any `forall`-bound, underdetermined
    variables in the result kind.

To resolve these issues, this patch:

1. Doesn't bother printing a herald about user-written
    variables if there are none.
2. Prints the result kind to advertise any
    underdetermination it may exhibit.

Test Plan: make test TEST=T13777

Reviewers: goldfire, bgamari

Reviewed By: goldfire

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #13777

Differential Revision:

17 months agoExtended the plugin system to run plugins on more representations
Boldizsar Nemeth [Sat, 2 Jun 2018 23:08:40 +0000 (19:08 -0400)] 
Extended the plugin system to run plugins on more representations

Extend GHC plugins to access parsed, type checked representation,
interfaces that are loaded. And splices that are evaluated. The goal is
to enable development tools to access the GHC representation in the
pre-existing build environment.

See the full proposal here:

Reviewers: goldfire, bgamari, ezyang, angerman, mpickering

Reviewed By: mpickering

Subscribers: ezyang, angerman, mpickering, ulysses4ever, rwbarton, thomie, carter

GHC Trac Issues: #14709

Differential Revision:

17 months agoBump version of stm submodule back to 2.4
Ben Gamari [Sun, 3 Jun 2018 01:07:43 +0000 (21:07 -0400)] 
Bump version of stm submodule back to 2.4

Haskeline doesn't have its upper bound lifted yet.

17 months agotestsuite: Don't assume location of bash
Ben Gamari [Sat, 2 Jun 2018 22:27:16 +0000 (18:27 -0400)] 
testsuite: Don't assume location of bash

17 months agorts: Rip out support for STM invariants
Ben Gamari [Sat, 2 Jun 2018 15:48:39 +0000 (11:48 -0400)] 
rts: Rip out support for STM invariants

This feature has some very serious correctness issues (#14310),
introduces a great deal of complexity, and hasn't seen wide usage.
Consequently we are removing it, as proposed in Proposal #77 [1]. This
is heavily based on a patch from fryguybob.

Updates stm submodule.


Test Plan: Validate

Reviewers: erikd, simonmar, hvr

Reviewed By: simonmar

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #14310

Differential Revision:

17 months agoC codegen: print details of pprStatics panics
Sergei Trofimovich [Sat, 2 Jun 2018 21:08:06 +0000 (21:08 +0000)] 
C codegen: print details of pprStatics panics

Signed-off-by: Sergei Trofimovich <>
17 months agovectorise: Put it out of its misery
Ben Gamari [Sat, 2 Jun 2018 15:56:58 +0000 (11:56 -0400)] 
vectorise: Put it out of its misery

Poor DPH and its vectoriser have long been languishing; sadly it seems there is
little chance that the effort will be rekindled. Every few years we discuss
what to do with this mass of code and at least once we have agreed that it
should be archived on a branch and removed from `master`. Here we do just that,
eliminating heaps of dead code in the process.

Here we drop the ParallelArrays extension, the vectoriser, and the `vector` and
`primitive` submodules.

Test Plan: Validate

Reviewers: simonpj, simonmar, hvr, goldfire, alanz

Reviewed By: simonmar

Subscribers: goldfire, rwbarton, thomie, mpickering, carter

Differential Revision:

17 months agoAdd llvm-target for powerpc64le-unknown-linux
Alan Mock [Sat, 2 Jun 2018 15:56:41 +0000 (11:56 -0400)] 
Add llvm-target for powerpc64le-unknown-linux

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #15212

Differential Revision:

17 months agoConservatively estimate levity in worker/wrapper
Ben Gamari [Thu, 31 May 2018 11:49:55 +0000 (07:49 -0400)] 
Conservatively estimate levity in worker/wrapper

The worker/wrapper transform needs to determine the levity of the result to
determine whether it needs to introduce a lambda to preserve laziness of the
result. For this is previously used isUnliftedType. However, this may fail in
the presence of levity polymorphism.

We now instead use isLiftedType_maybe, assuming that a lambda is needed if the
levity of the result cannot be determined.

Fixes #15186.

Test Plan: make test=T15186

Reviewers: simonpj, goldfire, tdammers

Reviewed By: simonpj

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #15186

Differential Revision:

17 months agotestsuite: Add test for #15186
Ben Gamari [Thu, 31 May 2018 11:48:53 +0000 (07:48 -0400)] 
testsuite: Add test for #15186

Summary: Currently broken.

Test Plan: Validate

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #15186

Differential Revision:

17 months agoOptimizations for CmmBlockElim. [Thu, 31 May 2018 00:49:18 +0000 (20:49 -0400)] 
Optimizations for CmmBlockElim.

* Use toBlockList instead of revPostorder.

    Block elimination works on a given Cmm graph by:
     * Getting a list of blocks.
     * Looking for duplicates in these blocks.
     * Removing all but one instance of duplicates.

    There are two (reasonable) ways to get the list of blocks.
     * The fast way: `toBlockList`
       This just flattens the underlying map into a list.
     * The convenient way: `revPostorder`
       Start at the entry label, scan for reachable blocks and return
       only these. This has the advantage of removing all dead code.

    If there is dead code the later is better. Work done on unreachable
    blocks is clearly wasted work. However by the point we run the
    common block elimination pass the input graph already had all dead code
    removed. This is done during control flow optimization in
    CmmContFlowOpt which is our first Cmm pass.

    This means common block elimination is free to use toBlockList
    because revPostorder would return the same blocks. (Although in
    a different order).

* Change the triemap used for grouping by a label list
  from `(TM.ListMap UniqDFM)` to `ListMap (GenMap LabelMap)`.

    * Using GenMap offers leaf compression. Which is a trie
      optimization described by the Note [Compressed TrieMap] in

    * Using LabelMap removes the overhead associated with UniqDFM.

  This is deterministic since if we have the same input keys the same
  LabelMap will be constructed.

Test Plan: ci, profiling output

Reviewers: bgamari, simonmar

Reviewed By: bgamari

Subscribers: dfeuer, thomie, carter

GHC Trac Issues: #15103

Differential Revision:

17 months agoUNREG: mark SRT as writable in generated C code
Sergei Trofimovich [Fri, 1 Jun 2018 08:35:23 +0000 (08:35 +0000)] 
UNREG: mark SRT as writable in generated C code

Noticed section mismatch on UNREG build failure:

  HC [stage 1] libraries/integer-gmp/dist-install/build/GHC/Integer/Type.o

     error: conflicting types for 'ufu0_srt'
     static StgWord ufu0_srt[]__attribute__((aligned(8)))= {

     note: previous declaration of 'ufu0_srt' was here

`IRO_` is a 'const' qualifier.

The error is a leftover from commit 838b69032566ce6ab3918d70e8d5e098d0bcee02
"Merge FUN_STATIC closure with its SRT" where part of SRT was moved
into closure itself and made SRTs writable.

This change puts all SRTs into writable section.

Signed-off-by: Sergei Trofimovich <>
Reviewers: simonmar, bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoCleanups [ci skip]
Gabor Greif [Fri, 1 Jun 2018 11:16:24 +0000 (13:16 +0200)] 
Cleanups [ci skip]

17 months agoChange jump targets in JMP_TBL from blocks to X86.JumpDest.
Andreas Klebinger [Thu, 31 May 2018 00:40:49 +0000 (20:40 -0400)] 
Change jump targets in JMP_TBL from blocks to X86.JumpDest.

Jump tables always point to blocks when we first generate them.  However
there are rare situations where we can shortcut one of these blocks to a
static address during the asm shortcutting pass.

While we already updated the data section accordingly this patch also
extends this to the references stored in JMP_TBL.

Test Plan: ci

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: thomie, carter

GHC Trac Issues: #15104

Differential Revision:

17 months agodead strip dylibs on macOS
Moritz Angermann [Thu, 31 May 2018 00:40:11 +0000 (20:40 -0400)] 
dead strip dylibs on macOS

When linking dynamic libraries or executables, we compute the full
transitive closure over the dependencies, and instruct the linker
to link all dependencies.  With deep dependency trees the number
of transitive dependencies can grow quickly.

macOS since the Sierra release has an upper limit on the load
command sizes the linker parses when loading dynamic lirbaries.
As such it is mandatory to keep the number of load commands (and
their size) small on recent macOS releases.

An approach that would just link direct dependencies as specified
by the -package-id flag is insufficient, because GHC can inline
across packages and the library or executable being linked could
refer to symbols deep in the dependency tree.

If we just recursively linked librarys and re-exported their
symbols, this increases the number of symbols in libraries with
many dependencies and ultimately puts excessive strain on the
linker to the point where linking takes a lot longer than even
the compilation of the modules.

We can however build a list of symbols from the obejcts we want
to link, and try to compute the libraries we need to link that
contain those symbols from the transitive dependency closure.
Luckily, we don't need to write this ourselves, but can use
the ld64 `-dead_strip_dylibs` linker flag on macOS to achive
the same result.  This will link only the libraries that are
actually referenced, which is usually a small subset of the
full transitive dependency closure.  As such we should stay
within the load command size limit for almost all but pathological

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: lelf, rwbarton, thomie, carter

GHC Trac Issues: #14444

Differential Revision:

17 months agobase/TimerManager: Clamp timer expiration time to maxBound
Ben Gamari [Thu, 31 May 2018 00:39:12 +0000 (20:39 -0400)] 
base/TimerManager: Clamp timer expiration time to maxBound

Previously we would allow the expiration time to overflow, which in
practice meant that `threadDelay maxBound` we return far earlier than
circa 2500 CE. For now we fix this by simply clamping to maxBound.

Fixes #15158.

Test Plan: Validate, run T8089

Reviewers: simonmar, hvr

Reviewed By: simonmar

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #15158

Differential Revision:

17 months agoMake HsDocString a newtype of ByteString
Simon Jakobi [Thu, 31 May 2018 00:38:18 +0000 (20:38 -0400)] 
Make HsDocString a newtype of ByteString

Docstrings don't profit from FastString's interning, so we switch to
a different type that doesn't incur this overhead.

Updates the haddock submodule.

Reviewers: alexbiehl, bgamari

Reviewed By: alexbiehl, bgamari

Subscribers: rwbarton, thomie, mpickering, carter

GHC Trac Issues: #15157

Differential Revision:

17 months agousers-guide: Fix various issues in debugging flags section
Ben Gamari [Thu, 31 May 2018 00:38:06 +0000 (20:38 -0400)] 
users-guide: Fix various issues in debugging flags section

Reviewers: ggreif

Reviewed By: ggreif

Subscribers: rwbarton, thomie, carter, ggreif

Differential Revision:

17 months agoconfigure: Make sphinx-build version test work on recent versions
Jens Petersen [Mon, 28 May 2018 03:31:49 +0000 (12:31 +0900)] 
configure: Make sphinx-build version test work on recent versions

On Fedora: `/usr/libexec/sphinx-build --version` outputs `sphinx-build
1.7.2`.  In bindir we actually have sphinx-build-2 and sphinx-build-3
(python2 and python3 versions), which output `sphinx-build-2 1.7.2` and
`sphinx-build-3 1.7.2` respectively.  Dunno what version others are
using but at least this change should works for most versions I suppose.

17 months agobase: Improve documentation of indexArray#
Andrew Martin [Fri, 20 Apr 2018 16:58:54 +0000 (12:58 -0400)] 
base: Improve documentation of indexArray#

17 months agotestsuite: Make T3234 more robust
roland [Sat, 19 May 2018 16:21:42 +0000 (18:21 +0200)] 
testsuite: Make T3234 more robust

Just look for the rule firing that we want to see instead of matching on
the entire dump.

Fixes #15088.

17 months agoSplicePat's should not trip -Wunused-pattern-binds
Alec Theriault [Tue, 8 May 2018 19:24:26 +0000 (12:24 -0700)] 
SplicePat's should not trip -Wunused-pattern-binds

The warning does not consider the fact that the splice pattern may
very well end up binding variables.

17 months agorts/posix: Use less aggressive backoff schedule for heap reservation sizing
Ben Gamari [Wed, 30 May 2018 16:30:52 +0000 (12:30 -0400)] 
rts/posix: Use less aggressive backoff schedule for heap reservation sizing

When we allocate the heap on POSIX platforms we generally just ask for a
1TB chunk of address space and call it a day. However, if the user has
set a ulimit then this request will fail. In this case we would
previously try successively smaller allocation requests, reducing the
request size by a factor of two each time.

However, this means that GHC will significantly allocate a significantly
smaller heap than the available physical memory size in some
circumstances.  Imagine, for instance, a machine with 512 GB of physical
memory but a ulimit of 511 GB: we would be limited to a 256 GB heap.

We now use a less aggressive back-off policy, reducing by one-eighth the
last allocation size each try.

Thanks to luispedro for the suggested approach.

Test Plan: Validate

Reviewers: simonmar, erikd

Subscribers: rwbarton, thomie

GHC Trac Issues: #14492

Differential Revision:

17 months agotestsuite: Fix hashbangs
Ben Gamari [Wed, 30 May 2018 19:19:30 +0000 (15:19 -0400)] 
testsuite: Fix hashbangs

17 months agoghc-heap: Add dependency from GHC.Exts.Heap.Closures to InfoTableProf
Ben Gamari [Wed, 30 May 2018 15:20:58 +0000 (11:20 -0400)] 
ghc-heap: Add dependency from GHC.Exts.Heap.Closures to InfoTableProf

`ghc -M` currently doesn't properly account for ways when generating
dependencies (#15197). This import ensures correct build-ordering between this
module and GHC.Exts.Heap.InfoTableProf. Otherwise the profiled build may fail as
described in #15197.

17 months agoImplement "An API for deciding whether plugins should cause recompilation"
Matthew Pickering [Sun, 27 May 2018 15:57:27 +0000 (11:57 -0400)] 
Implement "An API for deciding whether plugins should cause recompilation"

This patch implements the API proposed as pull request #108 for plugin
authors to influence the recompilation checker.

It adds a new field to a plugin which computes a `FingerPrint`. This is
recorded in interface files and if it changes then we recompile the
module. There are also helper functions such as `purePlugin` and
`impurePlugin` for constructing plugins which have simple recompilation
semantics but in general, an author can compute a hash as they wish.

Fixes #12567 and #7414

Reviewers: bgamari, ggreif

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #7414, #12567

Differential Revision:

17 months agoImproved Valid Hole Fits
Matthías Páll Gissurarson [Sun, 27 May 2018 15:50:49 +0000 (11:50 -0400)] 
Improved Valid Hole Fits

I've changed the name from `Valid substitutions` to `Valid hole fits`,
since "substitution" already has a well defined meaning within the
theory. As part of this change, the flags and output is reanamed, with
substitution turning into hole-fit in most cases. "hole fit" was already
used internally in the code, it's clear and shouldn't cause any

In this update, I've also reworked how we manage side-effects in the
hole we are considering.

This allows us to consider local bindings such as where clauses and
arguments to functions, suggesting e.g. `a` for `head (x:xs) where head
:: [a] -> a`.

It also allows us to find suggestions such as `maximum` for holes of
type `Ord a => a -> [a]`, and `max` when looking for a match for the
hole in `g = foldl1 _`, where `g :: Ord a => [a] -> a`.

We also show much improved output for refinement hole fits, and
fixes #14990. We now show the correct type of the function, but we also
now show what the arguments to the function should be e.g. `foldl1 (_ ::
Integer -> Integer -> Integer)` when looking for `[Integer] -> Integer`.

I've moved the bulk of the code from `TcErrors.hs` to a new file,
`TcHoleErrors.hs`, since it was getting too big to not live on it's own.

This addresses the considerations raised in #14969, and takes proper
care to set the `tcLevel` of the variables to the right level before
passing it to the simplifier.

We now also zonk the suggestions properly, which improves the output of
the refinement hole fits considerably.

This also filters out suggestions from the `GHC.Err` module, since even
though `error` and `undefined` are indeed valid hole fits, they are
"trivial", and almost never useful to the user.

We now find the hole fits using the proper manner, namely by solving
nested implications. This entails that the givens are passed along using
the implications the hole was nested in, which in turn should mean that
there will be fewer weird bugs in the typed holes.

I've also added a new sorting method (as suggested by SPJ) and sort by
the size of the types needed to turn the hole fits into the type of the
hole. This gives a reasonable approximation to relevance, and is much
faster than the subsumption check. I've also added a flag to toggle
whether to use this new sorting algorithm (as is done by default) or the
subsumption algorithm. This fixes #14969

I've also added documentation for these new flags and update the
documentation according to the new output.

Reviewers: bgamari, goldfire

Reviewed By: bgamari

Subscribers: simonpj, rwbarton, thomie, carter

GHC Trac Issues: #14969, #14990, #10946

Differential Revision:

17 months agousers-guide: Point out GNTD may require additional extensions
Ben Gamari [Sun, 27 May 2018 15:50:21 +0000 (11:50 -0400)] 
users-guide: Point out GNTD may require additional extensions

As noted in #15073, GeneralizedNewtypeDeriving may produce code that
uses extensions that do not directly appear in the code written by the
user.  Make this clear in the users guide.

[skip ci]

Test Plan: Read it

Reviewers: RyanGlScott

Reviewed By: RyanGlScott

Subscribers: fosskers, rwbarton, thomie, carter

GHC Trac Issues: #15073

Differential Revision:

17 months agoExtract hard-coded LLVM opt flags into a file
Kavon Farvardin [Sun, 27 May 2018 15:49:25 +0000 (11:49 -0400)] 
Extract hard-coded LLVM opt flags into a file

To resolve ticket #11295, I think it makes sense to stop hard-coding
the pass sequences used by GHC when compiling with LLVM into the

This patchset introduces a companion to the existing `llvm-targets` file
called `llvm-passes`. The passes file is a simple association list that
holds the default LLVM `opt` pass sequence used by GHC. This allows end
users to easily save their favorite optimization flags when compiling
with LLVM.

The main benefit for ticket #11295 is that when adding a custom pass
sequence, it tends to be an extremely long string that would be
unsightly in the code.

This is essentially part 1 of 2 for ticket #11295.

Test Plan: ./validate

Reviewers: bgamari, angerman

Reviewed By: angerman

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoDefine MCoercion type
ningning [Sun, 27 May 2018 15:49:06 +0000 (11:49 -0400)] 
Define MCoercion type

An attempt on #14975:
During compilation, reflexive casts is discarded for computation.
Currently in some places we use Maybe coercion as inputs. So if a cast
is reflexive it is denoted as Nothing, otherwise Just coercion.

This patch defines the type

data MCoercion = MRefl | MCo Coercion

which is isomorphic to Maybe Coercion but useful in a number of places,
and super-helpful documentation.

Test Plan: validate

Reviewers: bgamari, goldfire, simonpj

Reviewed By: goldfire

Subscribers: mpickering, rwbarton, thomie, carter

GHC Trac Issues: #14975

Differential Revision:

17 months agorts: Don't madvise if mmap failed
Ben Gamari [Sun, 27 May 2018 15:48:53 +0000 (11:48 -0400)] 
rts: Don't madvise if mmap failed

On 32-bit Linux `outofmem` did not fail with the expected out-of-memory
error message, instead failing with,

    outofmem: internal error: getMBlock: mmap: Invalid argument

This happened because, `my_mmap` would attempt to `madvise` even if the
`mmap` call failed. So while `mmap` returns `ENOMEM` we nevertheless try
to `madvise`, which clobbers `errno`, giving us the unexpected `EINVAL`
error. Consequently we don't detect this to be an out-of-memory error.

This should fix #15060.

Test Plan: `make test TEST=outofmem` on i386

Reviewers: simonmar, erikd

Reviewed By: simonmar

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #15060

Differential Revision:

17 months agoPut the `ev_binds` of main function inside `runMainIO`
HE, Tao [Sun, 27 May 2018 15:48:20 +0000 (11:48 -0400)] 
Put the `ev_binds` of main function inside `runMainIO`

This ensures that the deferred type error can be emitted correctly.

For `main` function in `Main` module, we have

    :Main.main = GHC.TopHandler.runMainIO main

When the type of `main` is not `IO t` and the
`-fdefer-type-errors` is enabled, the `ev_binds`
of `main` function will contain deferred type

Previously, the `ev_binds` are bound to `runMainIO main`,
rather than `main`, the type error exception at runtime
cannot be handled properly. See Trac #13838.

This patch fix that.

Test Plan: make test TEST="T13838"

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #13838

Differential Revision:

17 months agoT14732 now passes with the profasm way
Alp Mestanogullari [Sun, 27 May 2018 15:48:01 +0000 (11:48 -0400)] 
T14732 now passes with the profasm way

Simon PJ recently fixed the problem behind this failure
so we can now expect this test to pass in all ways again.

The fixes got introduced in the following commits:

Test Plan: T14732 (profasm way)

Reviewers: bgamari, RyanGlScott, simonpj

Reviewed By: RyanGlScott, simonpj

Subscribers: simonpj, RyanGlScott, rwbarton, thomie, carter

GHC Trac Issues: #15163

Differential Revision:

17 months agoDelete duplicate definition of fingerprintByteString
Simon Jakobi [Sat, 26 May 2018 23:19:52 +0000 (01:19 +0200)] 
Delete duplicate definition of fingerprintByteString

17 months agoRemove incorrect comment
Simon Jakobi [Sat, 26 May 2018 23:03:58 +0000 (01:03 +0200)] 
Remove incorrect comment

Moving fingerprintByteString to GHC.Fingerprint would require
adding a dependency on bytestring to base.

17 months agoImprove the documentation of lexically scoped type variables
AntC [Sat, 19 May 2018 07:23:39 +0000 (19:23 +1200)] 
Improve the documentation of lexically scoped type variables

Section 10.16 in the Users Guide. Also reviewed mentions/links from
other sections: none need revision.

Fixes #15146.

17 months agoUpdate repository sub-dir for ghc-heap in
Alp Mestanogullari [Sun, 27 May 2018 15:13:37 +0000 (11:13 -0400)] 
Update repository sub-dir for ghc-heap in

Reviewers: bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoFix validate for GHCi without TABLES_NEXT_TO_CODE
Peter Trommler [Sun, 27 May 2018 15:11:37 +0000 (11:11 -0400)] 
Fix validate for GHCi without TABLES_NEXT_TO_CODE

Suppress warning about unused match.

Fixes #15187

Reviewers: bgamari, simonmar, erikd, hvr

Reviewed By: bgamari, simonmar

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agollvm-targets: Add versioned ARM targets
Guillaume GARDET [Fri, 18 May 2018 06:56:28 +0000 (08:56 +0200)] 
llvm-targets: Add versioned ARM targets

Namely armv6l-unknown-linux-gnueabihf and

17 months agoMove printMutableList to Printer.c next to other printers
Ömer Sinan Ağacan [Wed, 30 May 2018 10:02:53 +0000 (13:02 +0300)] 
Move printMutableList to Printer.c next to other printers

17 months agoHandle TREC_CHUNK in printClosure
Ömer Sinan Ağacan [Wed, 30 May 2018 08:55:02 +0000 (11:55 +0300)] 
Handle TREC_CHUNK in printClosure

17 months agotestsuite: Use /usr/bin/env instead of /bin/bash
Ben Gamari [Tue, 29 May 2018 21:37:01 +0000 (17:37 -0400)] 
testsuite: Use /usr/bin/env instead of /bin/bash

Namely in T13719 and T13701.

17 months agotestsuite: Fix incorrectly capitalized True in
Ben Gamari [Tue, 29 May 2018 21:36:13 +0000 (17:36 -0400)] 
testsuite: Fix incorrectly capitalized True in

17 months agoUnmask readMVar in readChan
David Feuer [Tue, 29 May 2018 20:51:16 +0000 (16:51 -0400)] 
Unmask readMVar in readChan

When `readMVar` was implemented using `takeMVar` and `putMVar`,
we needed to use `modifyMVarMasked` in `readChan` just in case
the `readMVar` was interrupted between taking and putting. Now
that `readMVar` uses an atomic primop, this is impossible, so we can
safely unmask `readMVar`.

Reviewers: hvr, bgamari, simonmar

Reviewed By: simonmar

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agobase: Improve zip documentation
Taylor Fausak [Tue, 22 May 2018 13:29:43 +0000 (09:29 -0400)] 
base: Improve zip documentation

17 months agoUse a less confusing type variable in a few types
Simon Jakobi [Mon, 21 May 2018 18:04:07 +0000 (20:04 +0200)] 
Use a less confusing type variable in a few types

17 months agoMinor refactoring
Gabor Greif [Tue, 29 May 2018 10:16:23 +0000 (12:16 +0200)] 
Minor refactoring

17 months agoTypofix in manual [ci skip]
Gabor Greif [Tue, 29 May 2018 10:15:18 +0000 (12:15 +0200)] 
Typofix in manual [ci skip]

17 months agoremove dead maybeIsLFCon
Gabor Greif [Mon, 28 May 2018 12:14:59 +0000 (14:14 +0200)] 
remove dead maybeIsLFCon

17 months agoTypofixes [ci skip]
Gabor Greif [Fri, 25 May 2018 13:33:21 +0000 (15:33 +0200)] 
Typofixes [ci skip]

17 months agoFactor stack chunk printing out of printTSO
Ömer Sinan Ağacan [Tue, 29 May 2018 07:36:16 +0000 (10:36 +0300)] 
Factor stack chunk printing out of printTSO

Makes it possible to print STACK (StgStack) objects easily in gdb

17 months agoClean up Windows testsuite failures
Tamar Christina [Mon, 28 May 2018 18:34:11 +0000 (19:34 +0100)] 
Clean up Windows testsuite failures

Another round and attempt at getting these down to 0.

We really should re-enable the CI and not wait for those cloud based ones.

I've disabled the backpack tests on windows as they are too broad, they test
as much the shell as they do the compiler.

The perf tests have been too long to track down. but the numbers are horrible
but I don't see them getting fixed so just have to accept them.

T9293 has new windows specific output because a Dyn way only flag was added.
This will of course not work on non-Dyn way builds.

Test Plan: ./validate

Reviewers: bgamari, hvr, simonmar

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

GHC Trac Issues: #15107

Differential Revision:

17 months agoFix 32 bit windows build
Tamar Christina [Mon, 28 May 2018 18:19:18 +0000 (19:19 +0100)] 
Fix 32 bit windows build

Fix a number of issues that have broken the 32 bit build.
This makes it build again.

Test Plan: ./validate

Reviewers: hvr, goldfire, bgamari, erikd, simonmar

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agoUpdate GHC.Stats docs
Ömer Sinan Ağacan [Mon, 28 May 2018 06:59:55 +0000 (09:59 +0300)] 
Update GHC.Stats docs

Make it clear that max_live_bytes is updated after a major GC whereas
live_bytes is updated after all GCs (including minor collections) and
considers data in uncollected generations as live.

Reviewers: bgamari, simonmar, hvr

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:

17 months agobase: Introduce Data.Monoid.Ap
chessai [Wed, 11 Apr 2018 22:28:41 +0000 (18:28 -0400)] 
base: Introduce Data.Monoid.Ap

This data type witnesses the lifting of a monoid into an applicative

17 months agoMark #12447's test case as expected to pass
Ryan Scott [Sat, 26 May 2018 16:38:08 +0000 (12:38 -0400)] 
Mark #12447's test case as expected to pass

This appears to have been fixed at some point between GHC 8.0 and

17 months agoAdd regression test for #14246
Ryan Scott [Sat, 26 May 2018 15:58:03 +0000 (11:58 -0400)] 
Add regression test for #14246

17 months agoAdd regression test for #14172
Ryan Scott [Sat, 26 May 2018 15:39:26 +0000 (11:39 -0400)] 
Add regression test for #14172

Commit 433b80dec1cfef787fc1327a9eada1791b11c12e fixed #14172. Let's
add a regression test to ensure that it stays fixed.

17 months agoAdd regression test for #11766
Ryan Scott [Sat, 26 May 2018 14:29:22 +0000 (10:29 -0400)] 
Add regression test for #11766