[GHC] #11565: Restore code to handle '-fmax-worker-args' flag

[GHC]

#11565: Restore code to handle '-fmax-worker-args' flag
-------------------------------------+-------------------------------------
        Reporter:  slyfox            |                Owner:
            Type:  feature request   |               Status:  new
        Priority:  normal            |            Milestone:
       Component:  Compiler          |              Version:  7.10.3
      Resolution:                    |             Keywords:
Operating System:  Unknown/Multiple  |         Architecture:
                                     |  Unknown/Multiple
 Type of failure:  None/Unknown      |            Test Case:
      Blocked By:                    |             Blocking:
 Related Tickets:                    |  Differential Rev(s):
       Wiki Page:                    |
-------------------------------------+-------------------------------------

Comment (by slyfox):

 And '''dumpIfSet_dyn''' (used across the GHC including AsmCodegen) is
 exported as a 141-ary function (along with 5-ary function):
 {{{#!hs
 $ inplace/bin/ghc-stage1 --show-iface
 compiler/stage2/build/ErrUtils.dyn_hi

 ...
 31b85108354ff085ace45a61abe9a220
   $wdumpIfSet_dyn ::
     GhcMode
     -> GhcLink
     -> HscTarget
     -> Settings
     -> SigOf
     -> Int
     -> Int
     -> Int
     -> Int
 ...
     -> SDoc
     -> State# RealWorld
     -> (# State# RealWorld, () #)
   {- Arity: 140,
      Strictness:
 <L,U><L,U><L,U><L,U><L,U><L,U(U)><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L
 ,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U
 ><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><
 L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U(U)><S,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U>
 <L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U(U)><L,U><L,U><L,U><L,U><L,U><L,U
 ><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><L,U><S,U><L,1*U><L,U><S,U>,
      Inline: [0] -}
 ...
   dumpIfSet_dyn :: DynFlags -> DumpFlag -> String -> SDoc -> IO ()
   {- Arity: 5,
      Strictness:
 <S(LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLSLLLLLLLLLLLLLLLLLLLLLL
 LLLLLLLLLLLLLLLLLLLLLLLLLLLLL),1*U(U,U,U,U,U,U(U),U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U
 ,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U(U),U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U
 ,U,U,U,U,U,U,U,U,U(U),U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U,U)><S,U><L,1*U><L,U><S,U>,
      Unfolding: InlineRule (0, True, True)
                 dumpIfSet_dyn1
                   `cast`
                 (<DynFlags>_R
                  ->_R <DumpFlag>_R
                  ->_R <String>_R
                  ->_R <SDoc>_R
                  ->_R Sym (N:IO[0] <()>_R)) -}

 }}}

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/11565#comment:5>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler