ghc.git
2 years agoFix SetLevels for join points wip/T13255-spj
Simon Peyton Jones [Fri, 17 Feb 2017 15:03:52 +0000 (15:03 +0000)] 
Fix SetLevels for join points

This fixes Trac #13255.  The trouble was that we had a bottoming
join point, and tried to float it to top level. But it had free
JoinIds, so we tried to abstract over them.

Disaster.  Lint should have caught it, but didn't (now fixed).

This patch fixes the original problem.

2 years agoImprove Core Lint, mainly for join points
Simon Peyton Jones [Fri, 17 Feb 2017 15:03:01 +0000 (15:03 +0000)] 
Improve Core Lint, mainly for join points

* lintSingleBinding: check that join points have
                     a valid join-point type
  (Trac #13281)

* lintIdBinder: check that a JoinId is bound by
                a non-top-level let
  i.e.  not a top level binder
        not lambda/case binder

* Check for empty Rec [] bindings

* Rename lintIdBndrs to lintLetBndrs

2 years agoRemove redundant import
Simon Peyton Jones [Fri, 17 Feb 2017 14:57:26 +0000 (14:57 +0000)] 
Remove redundant import

2 years agoFix Core pretty printer
Simon Peyton Jones [Fri, 17 Feb 2017 14:56:13 +0000 (14:56 +0000)] 
Fix Core pretty printer

If a JoinId (bogusly) ends up in an argument position we printed
    f jump j
rather than
    f (jump j)

Easy to fix.

2 years agoKill off the remaining Rec []
Simon Peyton Jones [Fri, 17 Feb 2017 14:55:06 +0000 (14:55 +0000)] 
Kill off the remaining Rec []

The desugarer was producing an empty Rec group, which is never
supposed to happen.  This small patch stops that happening.

Next up: Lint should check.

2 years agoChange -dppr-ticks to -dsuppress-ticks
Simon Peyton Jones [Fri, 17 Feb 2017 14:50:59 +0000 (14:50 +0000)] 
Change -dppr-ticks to -dsuppress-ticks

I spent about two hours today hunting fruitlessly for a simplifier
bug (when fixing Trac #13255), only to find that it was caused by
-ddump-X silently suppressing all ticks in Core.

I think this has happened to me once before.

So I've changed to make tick-printing on by default (like coercions,
etc), with a flag -dsuppress-ticks (like -dsuppress-coercions) to
suppress them.

Blargh.

-dppr-ticks is still there, but deprecated.

2 years agoSimplify OutputableBndr
Simon Peyton Jones [Fri, 17 Feb 2017 13:58:58 +0000 (13:58 +0000)] 
Simplify OutputableBndr

This replaces three methods in OutputableBndr with one,
and adds comments.

There's also a tiny change in the placement of equals signs in
debug-prints.  I like it better that way, but if it complicates
life for anyone we can put it back.

2 years agoFix a substitution bug in cseCase
Simon Peyton Jones [Fri, 17 Feb 2017 12:47:39 +0000 (12:47 +0000)] 
Fix a substitution bug in cseCase

There was a missing substTy in cseCase!  Wow.  I'm surprised
it has not caused problems.  Anyway, easily fixed.

2 years agoHonour -dsuppress-uniques more thoroughly
Simon Peyton Jones [Fri, 17 Feb 2017 13:14:00 +0000 (13:14 +0000)] 
Honour -dsuppress-uniques more thoroughly

I found that tests
  parser/should_compile/DumpRenamedAst
and friends were printing uniques, which makes the test fragile.
But -dsuppress-uniques made no difference!  It turned out that
pprName wasn't properly consulting Opt_SuppressUniques.

This patch fixes the problem, and updates those three tests to
use -dsuppress-uniques

2 years agoComments only, about inl_inline and inl_act
Simon Peyton Jones [Fri, 17 Feb 2017 00:01:46 +0000 (00:01 +0000)] 
Comments only, about inl_inline and inl_act

2 years agoBetter perf for haddock.base, haddock.Cabal
Simon Peyton Jones [Thu, 16 Feb 2017 17:44:58 +0000 (17:44 +0000)] 
Better perf for haddock.base, haddock.Cabal

I think this is due to
  commit 6bab649bde653f13c15eba30d5007bef4a9a9d3a
  Author: Simon Peyton Jones <simonpj@microsoft.com>
  Date:   Thu Feb 16 09:42:32 2017 +0000

      Improve checking of joins in Core Lint

Improvement is around 5%.

2 years agoUse the correct origin in SectionL and Section R
Simon Peyton Jones [Thu, 16 Feb 2017 12:51:36 +0000 (12:51 +0000)] 
Use the correct origin in SectionL and Section R

This fixes Trac #13285.

The CallStack stuff is all driven by a CtOrigin of (OccurenceOf f),
and we were instead using SectionOrigin.  Boo!

Easily fixed; and I did a little refactoring as usual.

2 years agoImprove checking of joins in Core Lint
Simon Peyton Jones [Thu, 16 Feb 2017 09:42:32 +0000 (09:42 +0000)] 
Improve checking of joins in Core Lint

This patch addresses the rather expensive treatment of join points,
identified in Trac #13220 comment:17

Before we were tracking the "bad joins".  Now we track the good ones.
That is easier to think about, and much more efficient; see CoreLint
Note [Join points].

On the way I did some other modest refactoring, among other things
removing a duplicated call of lintIdBndr for let-bindings.

On teh

2 years agoComments and tiny refactor only
Simon Peyton Jones [Thu, 16 Feb 2017 09:41:55 +0000 (09:41 +0000)] 
Comments and tiny refactor only

2 years agoTypos [ci skip]
Gabor Greif [Mon, 13 Feb 2017 14:32:49 +0000 (15:32 +0100)] 
Typos [ci skip]

2 years agoDon't warn about missing methods for instances in signatures.
Edward Z. Yang [Tue, 14 Feb 2017 18:16:04 +0000 (13:16 -0500)] 
Don't warn about missing methods for instances in signatures.

Test Plan: validate

Reviewers: bgamari, austin, dfeuer

Reviewed By: dfeuer

Subscribers: dfeuer, thomie

Differential Revision: https://phabricator.haskell.org/D3134

2 years agoMake deSugarExpr use runTcInteractive
Reid Barton [Tue, 14 Feb 2017 18:13:56 +0000 (13:13 -0500)] 
Make deSugarExpr use runTcInteractive

Preparation for #13102, which needs to add more logic to
runTcInteractive, which would need to be duplicated in deSugarExpr.

In order to break an import cycle, I had to move
"Dependency/fingerprinting code" to a new module
DsUsage; which seems sensible anyways.

Test Plan: validate

Reviewers: simonpj, austin, bgamari

Reviewed By: bgamari

Subscribers: thomie, snowleopard

Differential Revision: https://phabricator.haskell.org/D3125

2 years agoCheck local type family instances against all imported ones
Reid Barton [Tue, 14 Feb 2017 18:13:37 +0000 (13:13 -0500)] 
Check local type family instances against all imported ones

We previously checked type family instance declarations
in a module for consistency with all instances that we happened
to have read into the EPS or HPT. It was possible to arrange that
an imported type family instance (used by an imported function)
was in a module whose interface file was never read during
compilation; then we wouldn't check consistency of local instances
with this imported instance and as a result type safety was lost.

With this patch, we still check consistency of local type family
instances with all type family instances that we have loaded; but
we make sure to load the interface files of all our imports that
define family instances first. More selective consistency checking
is left to #13102.

On the other hand, we can now safely assume when we import a module
that it has been checked for consistency with its imports. So we
can save checking in checkFamInstConsistency, and overall we should
have less work to do now.

This patch also adds a note describing the Plan for ensuring type
family consistency.

Test Plan: Two new tests added; harbormaster

Reviewers: austin, simonpj, bgamari

Reviewed By: simonpj, bgamari

Subscribers: ggreif, thomie

Differential Revision: https://phabricator.haskell.org/D2992

2 years agoUpdate .mailmap [skip ci]
Matthew Pickering [Tue, 14 Feb 2017 16:15:55 +0000 (16:15 +0000)] 
Update .mailmap [skip ci]

2 years agoImplement HasField constraint solving and modify OverloadedLabels
Adam Gundry [Tue, 14 Feb 2017 14:53:28 +0000 (09:53 -0500)] 
Implement HasField constraint solving and modify OverloadedLabels

This implements automatic constraint solving for the new HasField class
and modifies the existing OverloadedLabels extension, as described in
the GHC proposal
(https://github.com/ghc-proposals/ghc-proposals/pull/6). Per the current
form of the proposal, it does *not* currently introduce a separate
`OverloadedRecordFields` extension.

This replaces D1687.

The users guide documentation still needs to be written, but I'll do
that after the implementation is merged, in case there are further
design changes.

Test Plan: new and modified tests in overloadedrecflds

Reviewers: simonpj, goldfire, dfeuer, bgamari, austin, hvr

Reviewed By: bgamari

Subscribers: maninalift, dfeuer, ysangkok, thomie, mpickering

Differential Revision: https://phabricator.haskell.org/D2708

2 years agoAllow type defaulting for multi-param type classes with ExtendedDefaultRules
vivid-synth [Tue, 14 Feb 2017 14:51:54 +0000 (09:51 -0500)] 
Allow type defaulting for multi-param type classes with ExtendedDefaultRules

Expressions like the following will now typecheck:

```
    data A x = A deriving Show

    class ToA a x where
       toA :: a -> A x

    instance ToA Integer x where
       toA _ = A

    main = print (toA 5 :: A Bool)
```

The new defaulting rules are

Find all the unsolved constraints. Then:

* Find those that have exactly one free type variable, and partition
  that subset into groups that share a common type variable `a`.
* Now default `a` (to one of the types in the default list) if at least
  one of the classes `Ci` is an interactive class

Reviewers: goldfire, bgamari, austin, mpickering, simonpj

Reviewed By: bgamari, simonpj

Subscribers: mpickering, simonpj, goldfire, thomie

Differential Revision: https://phabricator.haskell.org/D2822

2 years agoFix ExtraSymbols jump table on Windows.
Tamar Christina [Tue, 14 Feb 2017 14:44:53 +0000 (09:44 -0500)] 
Fix ExtraSymbols jump table on Windows.

This corrects the `jump islands` calculations for Windows.  The code was
incorrectly creating a new entry for every `usage` of a symbol instead
of every used symbol. e.g. if a symbol is used 5 times it used to create
5 jump islands. This is incorrect and not in line with what the `ELF`
and `Mach-O` linkers do. Also since we allocate `n` spaces where `n` is
number of symbols, we would quickly run out of space and abort.

Test Plan: ./validate

Reviewers: simonmar, hvr, erikd, bgamari, austin

Reviewed By: bgamari

Subscribers: thomie, #ghc_windows_task_force

Differential Revision: https://phabricator.haskell.org/D3026

2 years agoExpand list of always loaded Windows shared libs
Tamar Christina [Tue, 14 Feb 2017 14:43:02 +0000 (09:43 -0500)] 
Expand list of always loaded Windows shared libs

When the `GCC` driver envokes the pipeline a `SPEC` is used to determine
how to configure the compiler and which libraries to pass along.

For Windows/mingw, this specfile is
https://github.com/gcc-mirror/gcc/blob/master/gcc/config/i386/mingw32.h

This expands the list of base DLLs with the ones that GCC always links,
and adds extra sibling dlls of `stdc++` in case it is linked in.

Following D3028 this patch only needs to load the always load only the
top level individual shared libs.

Test Plan: ./validate

Reviewers: RyanGlScott, austin, bgamari, erikd, simonmar

Reviewed By: bgamari

Subscribers: RyanGlScott, thomie, #ghc_windows_task_force

Differential Revision: https://phabricator.haskell.org/D3029

2 years agoRefactor renaming of operators/sections to fix DuplicateRecordFields bugs
Adam Gundry [Tue, 14 Feb 2017 14:35:06 +0000 (09:35 -0500)] 
Refactor renaming of operators/sections to fix DuplicateRecordFields bugs

A variety of panics were possible because the get_op function in
RnTypes didn't handle the possibility that its argument might be an
ambiguous record field. I've made its return type more informative to
correctly handle occurrences of record fields.  Fixes Trac #13132.

Test Plan: new test
overloadedrecflds/should_fail/T13132_duplicaterecflds

Reviewers: bgamari, simonpj, austin

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3126

2 years agoTcUnify: Assert precondition of matchExpectedTyConApp
Ben Gamari [Tue, 14 Feb 2017 14:31:08 +0000 (09:31 -0500)] 
TcUnify: Assert precondition of matchExpectedTyConApp

Test Plan: Validate

Reviewers: simonpj, austin

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3128

2 years agoTypecast covers entire expression to fix format warning.
bollu [Tue, 14 Feb 2017 13:43:58 +0000 (08:43 -0500)] 
Typecast covers entire expression to fix format warning.

- Fixes (#12636).
- changes all the typecasts to _unsinged long long_ to
  have the format specifiers work.

Reviewers: austin, bgamari, erikd, simonmar, Phyx

Reviewed By: erikd, Phyx

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3129

2 years agoDebug: Use local symbols for unwind points (#13278)
Ben Gamari [Tue, 14 Feb 2017 13:43:40 +0000 (08:43 -0500)] 
Debug: Use local symbols for unwind points (#13278)

While this apparently didn't matter on Linux, the OS X toolchain seems
to treat local and external symbols differently during linking. Namely,
the linker assumes that an external symbol marks the beginning of a new,
unused procedure, and consequently drops it.

Fixes regression introduced in D2741.

Test Plan: `debug` testcase on OS X

Reviewers: austin, simonmar, rwbarton

Reviewed By: rwbarton

Subscribers: rwbarton, thomie

Differential Revision: https://phabricator.haskell.org/D3135

2 years agoTypos in notes and comments [ci skip]
Gabor Greif [Mon, 13 Feb 2017 12:37:59 +0000 (13:37 +0100)] 
Typos in notes and comments [ci skip]

2 years agoDisable PVP warnings temporarily.
Edward Z. Yang [Sat, 11 Feb 2017 07:15:30 +0000 (23:15 -0800)] 
Disable PVP warnings temporarily.

While the intent is good, they are actually too aggressive:
if a module reexports an identifier from a signature, we will
warn (even though we should not!)  We'll have to implement
this differently.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
2 years agoSlightly reword not-exported message.
Edward Z. Yang [Fri, 10 Feb 2017 08:54:55 +0000 (00:54 -0800)] 
Slightly reword not-exported message.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
2 years agoRemove obsolete Backpack manual.
Edward Z. Yang [Fri, 10 Feb 2017 08:50:22 +0000 (00:50 -0800)] 
Remove obsolete Backpack manual.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
2 years agoSetup more error context for Backpack operations.
Edward Z. Yang [Tue, 7 Feb 2017 23:02:40 +0000 (15:02 -0800)] 
Setup more error context for Backpack operations.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Test Plan: validate

Reviewers: bgamari, simonpj, austin

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3101

2 years agoAdd index entry for signature files / Backpack.
Edward Z. Yang [Fri, 10 Feb 2017 08:48:42 +0000 (00:48 -0800)] 
Add index entry for signature files / Backpack.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
2 years agoBump hoopl submodule to 3.10.2.2
Ben Gamari [Sun, 12 Feb 2017 01:20:16 +0000 (20:20 -0500)] 
Bump hoopl submodule to 3.10.2.2

2 years agoBinary: Correct endian issue when cross-compiling
alexbiehl [Sun, 12 Feb 2017 00:25:27 +0000 (19:25 -0500)] 
Binary: Correct endian issue when cross-compiling

Using `WORDS_BIGENDIAN` wasn't such a great idea after all!
When cross compiling host and target endianess may differ and
`WORDS_BIGENDIAN` refers to host endianess.

Reviewers: austin, bgamari, trofi

Reviewed By: bgamari, trofi

Subscribers: rwbarton, trofi, thomie

Differential Revision: https://phabricator.haskell.org/D3122

2 years agoApply SplitSections to all C compilations
Simon Brenner [Sun, 12 Feb 2017 00:25:16 +0000 (19:25 -0500)] 
Apply SplitSections to all C compilations

Previously this was added only to the RTS's C files (those are the bulk
of it though), but there are C bits in ghc-prim, integer-gmp and base
too.

Followup for #8405, allows the large table of character properties in
base to be stripped when not used.

Test Plan: validate

Reviewers: austin, bgamari, simonmar

Reviewed By: bgamari

Subscribers: thomie, snowleopard

Differential Revision: https://phabricator.haskell.org/D3121

2 years agobufWrite: Save extra syscall when data fills handle buffer completely.
Niklas Hambüchen [Sun, 12 Feb 2017 00:24:49 +0000 (19:24 -0500)] 
bufWrite: Save extra syscall when data fills handle buffer completely.

The bug is that the check `if (size - w > count)` should be
`if (size - w >= count)` instead (`>=` instead of `>`),
because we can do the write all fine if it fits exactly.
This allows us to do 1 instead of 2 write syscalls the case it fits.

An example of when this matters is when an application writes output
in chunks that are a fraction of the handle buffer size.

For example, assume the buffer size is 8 KB, and the application writes
four 2 KB chunks.
Until now, this would result in 3 copies to the handle buffer, but
the 4th one would not be allowed in by `size - w > count`
(because `size - w == count` is the case), so we'd end up with a write
syscall of only 6 KB data instead of 8 KB, thus creating more syscalls
overall.

Implementing this fix (switching to `size - w >= count`), we also have
to flush the buffer if we fill it completely.

If we made only the changes described so far, that would have the
unintended side effect that writes of the size equal to the handle
buffer size (`count == size`) suddenly also go to the handle buffer
first: The data would first be copied to the handle buffer, and then
immediately get flushed to the underlying FD.  We don't want that extra
`memcpy`, because it'd be unnecessary: The point of handle buffering is
to coalesce smaller writes, and there are no smaller writes in this
case.  For example, if you specify 8 KB buffers (which menas you want
your data to be written out in 8 KB blocks), and you get data that's
already 8 KB in size, you can write that out as an 8 KB straight away,
zero-copy fashion.  For this reason, adding to the handle buffer now got
an additional condition `count < size`.  That way, writes equal to the
buffer size go straight to the FD, as they did before this commit.

Reviewers: simonmar, austin, hvr, bgamari

Reviewed By: simonmar

Subscribers: mpickering, thomie

Differential Revision: https://phabricator.haskell.org/D3117

2 years agoFix: hPutBuf issues unnecessary empty write syscalls for large writes (#13246)
Niklas Hambüchen [Sun, 12 Feb 2017 00:24:30 +0000 (19:24 -0500)] 
Fix: hPutBuf issues unnecessary empty write syscalls for large writes (#13246)

Until now, any `hPutBuf` that wrote `>= the handle buffer size` would
trigger an unnecessary `write("")` system call before the actual write
system call.

This is fixed by making sure that we never flush an empty handle buffer:
Only flush `when (w > 0)`.

Reviewers: simonmar, austin, hvr, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3119

2 years agoFix: Default FD buffer size is not a power of 2 (#13245)
Niklas Hambüchen [Sun, 12 Feb 2017 00:23:37 +0000 (19:23 -0500)] 
Fix: Default FD buffer size is not a power of 2 (#13245)

Reviewers: simonmar, austin, hvr, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3115

2 years agoAvoid repeated list elem checks
David Feuer [Sun, 12 Feb 2017 00:23:20 +0000 (19:23 -0500)] 
Avoid repeated list elem checks

Convert a list to a set before testing membership multiple times.

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie

Differential Revision: https://phabricator.haskell.org/D3111

2 years agoBinary: Only allocate un-interned FastStrings
alexbiehl [Sun, 12 Feb 2017 00:22:26 +0000 (19:22 -0500)] 
Binary: Only allocate un-interned FastStrings

Test Plan: Validate

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3109

2 years agozonkCt tries to maintain the canonical form of a Ct.
Christiaan Baaij [Sun, 12 Feb 2017 00:21:52 +0000 (19:21 -0500)] 
zonkCt tries to maintain the canonical form of a Ct.

For example,
 - a CDictCan should stay a CDictCan;
 - a CTyEqCan should stay a CTyEqCan (if the LHS stays as a variable.).
 - a CHoleCan should stay a CHoleCan

Why?  For CDicteqCan see Trac #11525.

Test Plan: Validate

Reviewers: austin, adamgundry, simonpj, goldfire, bgamari

Reviewed By: simonpj, bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3105

2 years agorts/Profiling: Factor out report generation
Ben Gamari [Sun, 12 Feb 2017 00:21:22 +0000 (19:21 -0500)] 
rts/Profiling: Factor out report generation

Here we move the actual report generation logic to
`rts/ProfilerReport.c`. This break is actually quite clean,

    void writeCCSReport( FILE *prof_file, CostCentreStack const *ccs,
                         ProfilerTotals totals );

This is more profiler refactoring in preparation for machine-readable
output.

Test Plan: Validate

Reviewers: austin, erikd, simonmar

Reviewed By: simonmar

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3097

2 years agorts/Profiling: Kill a few globals and add consts
Ben Gamari [Sun, 12 Feb 2017 00:20:56 +0000 (19:20 -0500)] 
rts/Profiling: Kill a few globals and add consts

Previously it was quite difficult to follow the dataflow through this
file due to global mutation and rather non-descriptive types.

This is a cleanup in preparation for factoring out the report-generating
logic, which is itself in preparation for somedayteaching the profiler
to produce more machine-readable reports (JSON perhaps?).

Test Plan: Validate

Reviewers: austin, erikd, simonmar

Reviewed By: simonmar

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3096

2 years agoFix #13214 by correctly setting up dep_orphs for signatures.
Edward Z. Yang [Sun, 12 Feb 2017 00:20:36 +0000 (19:20 -0500)] 
Fix #13214 by correctly setting up dep_orphs for signatures.

Prior to this, I hadn't thought about orphan handling at all.
This commit implements the semantics that if a signature
(transitively) imports an orphan instance, that instance
is considered in scope no matter what the implementing module
is.  (As it turns out, this is the semantics that falls out
when orphans are recorded transitively.)

This patch fixes a few bugs:

1. Put semantic modules in dep_orphs rather than identity
   modules.
2. Don't put the implementing module in dep_orphs when
   merging signatures (this is a silly bug that happened
   because we were reusing calculateAvails, which is
   designed for imports. It mostly works for signature
   merging, except this case.)
3. When renaming a signature, blast in the orphans of the
   implementing module inside Dependencies.

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Test Plan: validate

Reviewers: bgamari, austin

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3095

2 years agoImprove the Occurrence Analyzer’s handling of one-shot functions
Joachim Breitner [Sun, 12 Feb 2017 00:20:24 +0000 (19:20 -0500)] 
Improve the Occurrence Analyzer’s handling of one-shot functions

When determining whether an expression is used saturatedly, count the
number of value arguments that the occurrence analyser sees, and add
the number of one-shot arguments that we know (from the strictness
analyser) are passed from the context.

perf results suggest no noticable change in allocations, reduction of
code sizes, and performance regression possibliy due to loss of join
points.

Test Plan: perf.haskell.org

Reviewers: simonpj, austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3089

2 years agoMark orphan instances and rules in --show-iface output
Reid Barton [Sun, 12 Feb 2017 00:20:08 +0000 (19:20 -0500)] 
Mark orphan instances and rules in --show-iface output

Test Plan: new test Orphans

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3086

2 years agoDwarf.Types: Use DW_CFA_same_value encoding when possible
Ben Gamari [Sun, 12 Feb 2017 00:19:42 +0000 (19:19 -0500)] 
Dwarf.Types: Use DW_CFA_same_value encoding when possible

This is a bit smaller than the alternative, DW_CFA_val_expression. Also
a bit of refactoring.

Test Plan: Validate

Reviewers: scpmw, simonmar, austin

Reviewed By: simonmar

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2745

2 years agoIcmmMachOpFoldM: clarify panic message
Sergei Trofimovich [Sat, 11 Feb 2017 13:05:24 +0000 (13:05 +0000)] 
IcmmMachOpFoldM: clarify panic message

When adding a new primop cinimod noticed
uninformative ghc panic:
    cmmMachOpFoldM: unknown unary op

This change tweaks panic to contain the op:
    cmmMachOpFoldM: unknown unary op: MO_F_Neg W64

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
2 years agoRefactor DeriveAnyClass's instance context inference
Ryan Scott [Fri, 10 Feb 2017 21:12:46 +0000 (16:12 -0500)] 
Refactor DeriveAnyClass's instance context inference

Summary:
Currently, `DeriveAnyClass` has two glaring flaws:

* It only works on classes whose argument is of kind `*` or `* -> *` (#9821).
* The way it infers constraints makes no sense. It basically co-opts the
  algorithms used to infer contexts for `Eq` (for `*`-kinded arguments) or
  `Functor` (for `(* -> *)`-kinded arguments). This tends to produce overly
  constrained instances, which in extreme cases can lead to legitimate things
  failing to typecheck (#12594). Or even worse, it can trigger GHC panics
  (#12144 and #12423).

This completely reworks the way `DeriveAnyClass` infers constraints to fix
these two issues. It now uses the type signatures of the derived class's
methods to infer constraints (and to simplify them). A high-level description
of how this works is included in the GHC users' guide, and more technical notes
on what is going on can be found as comments (and a Note) in `TcDerivInfer`.

Fixes #9821, #12144, #12423, #12594.

Test Plan: ./validate

Reviewers: dfeuer, goldfire, simonpj, austin, bgamari

Subscribers: dfeuer, thomie

Differential Revision: https://phabricator.haskell.org/D2961

2 years agoRelax test TH_addCStub2 so it succeeds on travis.
Facundo Domínguez [Fri, 10 Feb 2017 02:20:17 +0000 (23:20 -0300)] 
Relax test TH_addCStub2 so it succeeds on travis.

Test Plan: ./validate

Reviewers: bgamari, nomeata, austin, mpickering

Reviewed By: mpickering

Subscribers: mpickering, rwbarton, mboes, thomie

Differential Revision: https://phabricator.haskell.org/D3124

2 years agoPrevent Template Haskell splices from throwing a spurious TypeInType error
Ryan Scott [Fri, 10 Feb 2017 15:31:10 +0000 (10:31 -0500)] 
Prevent Template Haskell splices from throwing a spurious TypeInType error

Summary:
There was a rather annoying corner case where splicing poly-kinded
Template Haskell declarations could trigger an error muttering about
`TypeInType` not being enabled, whereas the equivalent non-TH code would
compile without issue. This was causing by overzealous validity check in the
renamer, wherein failed to distinguish between two different `Exact` names
with the same `OccName`. As a result, it mistakenly believed some type
variables were being used as both type and kind variables simultaneously! Ack.

This avoids the issue by simply disabling the aforementioned validity check
for Exact names. Fixes #12503.

Test Plan: ./validate

Reviewers: austin, bgamari, goldfire

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3022

2 years agoChange rewritableTyVarsOfType to anyRewritableTyVar
Simon Peyton Jones [Fri, 10 Feb 2017 13:54:48 +0000 (13:54 +0000)] 
Change rewritableTyVarsOfType to anyRewritableTyVar

This fixes the regression in FrozenErrorTests, eliminates the
awkward "crash on forall" in rewritableTyVars, and makes it more
efficient too.

2 years agoSpelling in comments [ci skip]
Gabor Greif [Fri, 10 Feb 2017 08:12:12 +0000 (09:12 +0100)] 
Spelling in comments [ci skip]

2 years agoTH-spliced class instances are pretty-printed incorrectly post-#3384
Alan Zimmerman [Sun, 29 Jan 2017 20:35:41 +0000 (22:35 +0200)] 
TH-spliced class instances are pretty-printed incorrectly post-#3384

Summary:
The HsSyn prettyprinter tests patch 499e43824bda967546ebf95ee33ec1f84a114a7c
broke the pretty-printing of Template Haskell-spliced class instances.

Test Plan: ./validate

Reviewers: RyanGlScott, austin, goldfire, bgamari

Reviewed By: RyanGlScott, bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3043

2 years agoGuard rewritableTyVarsOfType
Simon Peyton Jones [Thu, 9 Feb 2017 12:12:21 +0000 (12:12 +0000)] 
Guard rewritableTyVarsOfType

We only want to use rewriteableTyVarsOfType on CDictCan,
CFunEqCan (and maybe CIrredCan).  But not CTyEqCan.

But we were -- for insolubles.  So I narrowed the scope of
the insuluble kick-out.

2 years agotestsuite: Add testcase for #13248
Ben Gamari [Thu, 9 Feb 2017 04:31:04 +0000 (23:31 -0500)] 
testsuite: Add testcase for #13248

2 years agoBump bytestring submodule
Ben Gamari [Wed, 8 Feb 2017 22:41:51 +0000 (17:41 -0500)] 
Bump bytestring submodule

2 years agoLibrary docs: Document the order for sort and sortOn.
Alexander Kjeldaas [Wed, 8 Feb 2017 23:26:02 +0000 (00:26 +0100)] 
Library docs: Document the order for sort and sortOn.

This closes GH-22.

2 years agoBump array submodule
Ben Gamari [Thu, 9 Feb 2017 02:47:34 +0000 (21:47 -0500)] 
Bump array submodule

Previously test output was left in inconsistent state.

2 years agoTweaks and typos in manual, note refs, comments
Gabor Greif [Wed, 8 Feb 2017 13:14:36 +0000 (14:14 +0100)] 
Tweaks and typos in manual, note refs, comments

2 years agoImplement addCStub in template-haskell.
Facundo Domínguez [Tue, 7 Feb 2017 21:55:34 +0000 (18:55 -0300)] 
Implement addCStub in template-haskell.

Summary:
addCStub allows injecting C code in the current module to be included
in the final object file.

Test Plan: ./validate

Reviewers: simonpj, goldfire, austin, bgamari

Reviewed By: bgamari

Subscribers: bitonic, duncan, mboes, thomie

Differential Revision: https://phabricator.haskell.org/D3106

2 years agoBump array submodule
Ben Gamari [Wed, 8 Feb 2017 23:59:55 +0000 (18:59 -0500)] 
Bump array submodule

Fixes https://github.com/ekmett/ad/issues/62.

2 years agoFix documentation for setByteArray#
Ben Gamari [Wed, 8 Feb 2017 23:55:32 +0000 (18:55 -0500)] 
Fix documentation for setByteArray#

The documentation was previously unusably incomplete.

2 years agousers-guide: Document defaults for remaining optimization flags
Ben Gamari [Wed, 8 Feb 2017 20:49:46 +0000 (15:49 -0500)] 
users-guide: Document defaults for remaining optimization flags

2 years agoAdd dump flags for the renamed and typechecked hsSyn ASTs
Alan Zimmerman [Wed, 8 Feb 2017 11:20:02 +0000 (13:20 +0200)] 
Add dump flags for the renamed and typechecked hsSyn ASTs

Summary:
D2958 brought in the "dump-parsed-ast" functionality.

Extend it to include "dump-rn-ast" and "dump-tc-ast"

Test Plan: ./validate

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3107

2 years agoBack-pedal the fix for Trac #8155
Simon Peyton Jones [Wed, 8 Feb 2017 16:15:11 +0000 (16:15 +0000)] 
Back-pedal the fix for Trac #8155

I implemented a rather elaborate fix for #8155 ages ago, which
which turns out to be
  a) unnecesssary in this particular case
  b) harmful to the defaulting story; see comment:15 of #12923.

So this patch reverts the elaborate bit. The bit I removed is
described in "Historical note" under Note [approximateWC].

2 years agoKill inaccessible-branch complaints in record update
Simon Peyton Jones [Wed, 8 Feb 2017 16:12:36 +0000 (16:12 +0000)] 
Kill inaccessible-branch complaints in record update

Trac #12957 (the original case in the Description) showed a record
update that yielded an "inaccessible code" warning. This should not
happen; it's just some redundant code generated by the desugarer (later
pruned away) and it's not the user's fault.

This patch suppresses the warning.  See Check.hs
Note [Inaccessible warnings for record updates]

2 years agoAdd some commented-out tracing in SpecConstr
Simon Peyton Jones [Wed, 8 Feb 2017 16:12:11 +0000 (16:12 +0000)] 
Add some commented-out tracing in SpecConstr

2 years agoFix stop_thread unwinding information
Ben Gamari [Wed, 8 Feb 2017 04:00:10 +0000 (23:00 -0500)] 
Fix stop_thread unwinding information

This corrects the unwind information for `stg_stop_thread`, which
allows us to unwind back to the C stack after reaching the end of the
STG stack.

Test Plan: Validate

Reviewers: simonmar, austin, erikd

Reviewed By: simonmar

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2746

2 years agoCmmLayoutStack: Correctly annotate Sp adjustments with unwinding information
Ben Gamari [Wed, 8 Feb 2017 03:58:48 +0000 (22:58 -0500)] 
CmmLayoutStack: Correctly annotate Sp adjustments with unwinding information

Test Plan: Validate

Reviewers: austin, simonmar

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3104

2 years agoCmm: Add support for undefined unwinding statements
Ben Gamari [Wed, 8 Feb 2017 03:56:36 +0000 (22:56 -0500)] 
Cmm: Add support for undefined unwinding statements

And use to mark `stg_stack_underflow_frame`, which we are unable to
determine a caller from.

To simplify parsing at the moment we steal the `return` keyword to
indicate an undefined unwind value. Perhaps this should be revisited.

Reviewers: scpmw, simonmar, austin, erikd

Subscribers: dfeuer, thomie

Differential Revision: https://phabricator.haskell.org/D2738

2 years agoCmmLayoutStack: Add unwind information on stack fixups
Ben Gamari [Wed, 8 Feb 2017 03:51:50 +0000 (22:51 -0500)] 
CmmLayoutStack: Add unwind information on stack fixups

Currently stack fixup blocks don't include unwinding information,
leaving a small window where our unwinding information is incorrect. Fix
this by adding unwinding information to emitted fixup blocks.

Reviewers: scpmw, simonmar, austin

Reviewed By: simonmar

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2742

2 years agoGeneralize CmmUnwind and pass unwind information through NCG
Ben Gamari [Wed, 8 Feb 2017 03:49:06 +0000 (22:49 -0500)] 
Generalize CmmUnwind and pass unwind information through NCG

As discussed in D1532, Trac Trac #11337, and Trac Trac #11338, the stack
unwinding information produced by GHC is currently quite approximate.
Essentially we assume that register values do not change at all within a
basic block. While this is somewhat true in normal Haskell code, blocks
containing foreign calls often break this assumption. This results in
unreliable call stacks, especially in the code containing foreign calls.
This is worse than it sounds as unreliable unwinding information can at
times result in segmentation faults.

This patch set attempts to improve this situation by tracking unwinding
information with finer granularity. By dispensing with the assumption of
one unwinding table per block, we allow the compiler to accurately
represent the areas surrounding foreign calls.

Towards this end we generalize the representation of unwind information
in the backend in three ways,

 * Multiple CmmUnwind nodes can occur per block

 * CmmUnwind nodes can now carry unwind information for multiple
   registers (while not strictly necessary; this makes emitting
   unwinding information a bit more convenient in the compiler)

 * The NCG backend is given an opportunity to modify the unwinding
   records since it may need to make adjustments due to, for instance,
   native calling convention requirements for foreign calls (see
   #11353).

This sets the stage for resolving #11337 and #11338.

Test Plan: Validate

Reviewers: scpmw, simonmar, austin, erikd

Subscribers: qnikst, thomie

Differential Revision: https://phabricator.haskell.org/D2741

2 years agoImprove -dsuppress-coercions
Simon Peyton Jones [Wed, 8 Feb 2017 11:31:32 +0000 (11:31 +0000)] 
Improve -dsuppress-coercions

The -dsuppress-coercions flag was being ignored when printing the
CastIt constructor in SimplUtils.SimplCont.  This fixes ths problem,
and improves what is printed when suppressing coercions, to show the
size of the suppressed coercion.

2 years agoImprove the simple optimiser
Simon Peyton Jones [Tue, 7 Feb 2017 00:32:43 +0000 (00:32 +0000)] 
Improve the simple optimiser

The previous version of the simple optimiser would leave
beta-redexes, which was bad for join points.  E.g.

  join j x = ....   -- a join point
  in (\x. j x) y

This would be ok if we beta-reduced the (\x) but not if
we don't.

This patch improves the simple optimiser, to follow the plan
described in "Secrets of the GHC inliner", and implemented in
the Mighty Simplifier.  It turns out not to be too hard to
use the same plan here, and we get slightly better code as
a result.

2 years agoMore typos in comments [skip ci]
Gabor Greif [Tue, 7 Feb 2017 10:55:16 +0000 (11:55 +0100)] 
More typos in comments [skip ci]

2 years agoUpdate hoopl submodule
Ben Gamari [Wed, 8 Feb 2017 02:58:46 +0000 (21:58 -0500)] 
Update hoopl submodule

This is in preparation for an upcoming bump of the containers submodule.

2 years agoPass -v0 to ghc-pkg to reduce noise in build ouput
Matthew Pickering [Wed, 8 Feb 2017 02:39:02 +0000 (21:39 -0500)] 
Pass -v0 to ghc-pkg to reduce noise in build ouput

By default ghc-pkg is quite noisy as it can't find interface files.

Test Plan:
Look at the build log stderr and see if there are lots of "cannot find
any of" errors.

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie, snowleopard

Differential Revision: https://phabricator.haskell.org/D3103

2 years agoFix comment (broken link to users_guide) in $(TOP)/
Takenobu Tani [Wed, 8 Feb 2017 02:37:07 +0000 (21:37 -0500)] 
Fix comment (broken link to users_guide) in $(TOP)/

There was a broken link to users_guide at a comment.

* compiler/types/InstEnv.hs
  - type-class-extensions.html -> glasgow_exts.html

Reviewers: bgamari, austin

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3092

2 years agoFix comment of `section "Exceptions"`
Takenobu Tani [Wed, 8 Feb 2017 02:36:54 +0000 (21:36 -0500)] 
Fix comment of `section "Exceptions"`

I changed comment from `{- .. -}` to `--`.
Because Haddock comment for `section "Exceptions"` [1] was broken.

[1]:
https://downloads.haskell.org/~ghc/latest/docs/html/libraries/ghc-prim-0
.5.0.0/GHC-Prim.html

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3083

2 years agoFix push_bang_into_newtype when the pattern match has no arguments
Matthew Pickering [Wed, 8 Feb 2017 02:35:32 +0000 (21:35 -0500)] 
Fix push_bang_into_newtype when the pattern match has no arguments

Correct behaviour of push_bang_into_newtype when the pattern match has
no arguments. A user can write

```
newtype T = T Int

f :: T -> ()
f !(T {}) = ()
```
in which case we have to push the bang inwards through the newtype in
order to achieve the desired strictness properties. This patch fixes
this special case where the pattern match has no arguments to push the
bang onto. We now make up a wildcard pattern which is wrapped in the
bang pattern.

```
f (T !_) = ()
```

Reviewers: simonpj, austin, bgamari

Reviewed By: simonpj

Subscribers: simonpj, thomie

Differential Revision: https://phabricator.haskell.org/D3057

2 years agoUpdate Core formalize for Levity -> RuntimeRep
Ben Gamari [Wed, 8 Feb 2017 02:34:26 +0000 (21:34 -0500)] 
Update Core formalize for Levity -> RuntimeRep

Reviewers: austin

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3094

2 years agocpeApp: Make Int accumulator strict
Ben Gamari [Wed, 8 Feb 2017 02:33:16 +0000 (21:33 -0500)] 
cpeApp: Make Int accumulator strict

Test Plan: Validate

Reviewers: austin, dfeuer

Subscribers: dfeuer, thomie

Differential Revision: https://phabricator.haskell.org/D3093

2 years agotestsuite: Bump bytes allocated for T5837
Ben Gamari [Wed, 8 Feb 2017 02:30:15 +0000 (21:30 -0500)] 
testsuite: Bump bytes allocated for T5837

Simon decreased this earlier today but Harbormaster doesn't reproduce his
number. I've done two things here:

 1. increased the allocations number to the Harbormaster value
 2. increased the acceptance threshold from 5% to 7%, since Simon saw a 6.6%
    change in his environment.

2 years agotestsuite: Bump max_bytes_used for T4029
Ben Gamari [Wed, 8 Feb 2017 02:26:49 +0000 (21:26 -0500)] 
testsuite: Bump max_bytes_used for T4029

Unfortunately it's not clear what regressed this.

2 years agoClean up findPartiallyCompletedCycles
David Feuer [Wed, 8 Feb 2017 02:38:34 +0000 (21:38 -0500)] 
Clean up findPartiallyCompletedCycles

Rewrite `findPartiallyCompletedCycles` to use a list comprehension
rather than pattern matching on a list. Make it use `Data.Set`
rather than fussing with lists.

Reviewers: austin, bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3102

2 years agoUse better map operations in CoreMonad
David Feuer [Wed, 8 Feb 2017 02:34:00 +0000 (21:34 -0500)] 
Use better map operations in CoreMonad

Use strict `unionWith` where apparently appropriate, and use
strict `insertWith` rather than lookup followed by insertion.

Reviewers: austin, bgamari

Reviewed By: bgamari

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D3099

2 years agoAdd Wredundant-constraints to list of flags excluded from -Wall
Siddhanathan Shanmugam [Tue, 7 Feb 2017 16:12:05 +0000 (08:12 -0800)] 
Add Wredundant-constraints to list of flags excluded from -Wall

In light of #10635

2 years agoDocs: Fix typo in glasgow_exts.rst
Daniel Gröber [Tue, 7 Feb 2017 16:07:10 +0000 (17:07 +0100)] 
Docs: Fix typo in glasgow_exts.rst

2 years agoAnother improvement to SetLevels
Simon Peyton Jones [Fri, 23 Dec 2016 14:17:42 +0000 (14:17 +0000)] 
Another improvement to SetLevels

In my recent commit
   commit 432f952ef64641be9f32152a0fbf2b8496d8fe9c
   Float unboxed expressions by boxing
I changed how float_me in lvlMFE worked.  That was right, but
it exposed another bug: an error expression wasn't getting floated
as it should from a case alternative.  And that led to a collection
of minor improvements

* I found a much better way to cast it, by using lvlFloatRhs for
  top-level bindinds as well as nested ones, which is
    (a) more consistent and
    (b) works correctly.

  See Note [Floating from a RHS]

* I also found some delicacy in the "floating to the top" stuff, so I
  greatly elaborated the Note [Floating to the top].

* I simplified the "bottoming-float" stuff; the change is in the treatment
  of bottoming lambdas (\x y. error blah), where we now float the
  (error blah) part instead of the whole lambda (which risks just making
  duplicate lambdas.  See Note [Bottoming floats], esp (2).

Perf effects are minor.

* perf/compiler/T13056 improved sligtly (about 2%) in compiler
  allocations. Also T9233 improved by 1%.  I'm not sure why.

* Some small nofib changes:
    - Generally some very small reductions in run-time
      allocation, except k-nucleotide, which halves for some
      reason.  (I did try to look but it's a big complicated
      function and it was far from obvious.  Had it been a loss
      I would have looked harder!

NB: there's a nearby patch "Do not inline bottoming things" that could
also be responsible for either or both.  I didn't think it was worth
more testing to distinguish.

--------------------------------------------------------------------------------
        Program           Size    Allocs   Runtime   Elapsed  TotalMem
--------------------------------------------------------------------------------
           grep          +0.1%     -0.2%      0.00      0.00     +0.0%
         mandel          -0.1%     -1.4%      0.13      0.13     +0.0%
   k-nucleotide          +0.1%    -51.6%     -1.0%     -1.0%     +0.0%
--------------------------------------------------------------------------------
            Min          -0.3%    -51.6%     -9.4%     -9.1%     -4.0%
            Max          +0.2%     +0.0%    +31.8%    +32.7%     +0.0%
 Geometric Mean          -0.0%     -0.8%     +1.4%     +1.4%     -0.1%

2 years agoComments only
Simon Peyton Jones [Fri, 20 Jan 2017 15:12:17 +0000 (15:12 +0000)] 
Comments only

2 years agoDo not inline bottoming things
Simon Peyton Jones [Fri, 20 Jan 2017 15:12:42 +0000 (15:12 +0000)] 
Do not inline bottoming things

If a function seems small, worker/wrapper won't split it; instead
it turns it into an INLINE function.

But if it's a /bottoming/ function that's a bad idea.  We want
don't want to inline bottoming functions unless they are /really/
small (smaller than the call itself) and that's handled by a
different branch in certainlyWillInline.

So this patch adds a not-bottom test to the UnfIfGoodArgs case of
certainlyWillInline.

No big perf effect, but this will tend to keep error code out of
functions, and hence make them a bit more likely to inline.

I fell over this when fiddling with #13144

2 years agoTypos in comments [skip ci]
Gabor Greif [Tue, 7 Feb 2017 09:25:38 +0000 (10:25 +0100)] 
Typos in comments [skip ci]

2 years agoDerive <$
David Feuer [Tue, 7 Feb 2017 05:16:55 +0000 (00:16 -0500)] 
Derive <$

Using the default definition of `<$` for derived `Functor`
instance is very bad for recursive data types. Derive
the definition instead.

Fixes #13218

Reviewers: austin, bgamari, RyanGlScott

Reviewed By: RyanGlScott

Subscribers: RyanGlScott, thomie

Differential Revision: https://phabricator.haskell.org/D3072

2 years agoRemove unnecessary use of -DGENERICS flag
Ryan Scott [Mon, 6 Feb 2017 19:31:17 +0000 (14:31 -0500)] 
Remove unnecessary use of -DGENERICS flag

This flag was only needed for old versions of binary, and now that we've
upgraded to binary-0.8.4.1, it is no longer necessary.

2 years agoTypos in comments [skip ci]
Gabor Greif [Mon, 6 Feb 2017 16:09:18 +0000 (17:09 +0100)] 
Typos in comments [skip ci]

2 years agoTypos in comments [skip ci]
Gabor Greif [Mon, 6 Feb 2017 11:50:42 +0000 (12:50 +0100)] 
Typos in comments [skip ci]

2 years agoDo Worker/Wrapper for NOINLINE things
Eric Seidel [Mon, 6 Feb 2017 02:29:37 +0000 (21:29 -0500)] 
Do Worker/Wrapper for NOINLINE things

Disabling worker/wrapper for NOINLINE things can cause unnecessary
reboxing of values. Consider

    {-# NOINLINE f #-}
    f :: Int -> a
    f x = error (show x)

    g :: Bool -> Bool -> Int -> Int
    g True  True  p = f p
    g False True  p = p + 1
    g b     False p = g b True p

the strictness analysis will discover f and g are strict, but because f
has no wrapper, the worker for g will rebox p. So we get

    $wg x y p# =
      let p = I# p# in  -- Yikes! Reboxing!
      case x of
        False ->
          case y of
            False -> $wg False True p#
            True -> +# p# 1#
        True ->
          case y of
            False -> $wg True True p#
            True -> case f p of { }

    g x y p = case p of (I# p#) -> $wg x y p#

Now, in this case the reboxing will float into the True branch, an so
the allocation will only happen on the error path. But it won't float
inwards if there are multiple branches that call (f p), so the reboxing
will happen on every call of g. Disaster.

Solution: do worker/wrapper even on NOINLINE things; but move the
NOINLINE pragma to the worker.

Test Plan: make test TEST="13143"

Reviewers: simonpj, bgamari, dfeuer, austin

Reviewed By: simonpj, bgamari

Subscribers: dfeuer, thomie

Differential Revision: https://phabricator.haskell.org/D3046

2 years agotestsuite: Update expected values for T13035 and T12234
Ben Gamari [Mon, 6 Feb 2017 02:23:26 +0000 (21:23 -0500)] 
testsuite: Update expected values for T13035 and T12234