Rodrigo Mesquita pushed to branch wip/romes/bytecode-improvements at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/StgToByteCode.hs
    ... ... @@ -791,7 +791,7 @@ doTailCall init_d s p fn args = do
    791 791
             case lookupBCEnv_maybe fn p of
    
    792 792
               Just d_v
    
    793 793
                 | d - d_v == 0  -- shortcut; the first thing on the stack is what we want to enter,
    
    794
    -            , d_v <= init_d -- and it is between init_d and sequel (which would be dropped)
    
    794
    +            , d_v <= init_d -- and it is between init_d and sequel (which will be dropped)
    
    795 795
                 -> do
    
    796 796
                   let slide = mkSlideB platform (d - init_d + wordSize platform)
    
    797 797
                                                 (init_d - s - wordSize platform)