Skip to content
  • Simon Peyton Jones's avatar
    Make more primops cheaper · a365a58e
    Simon Peyton Jones authored
    This puts back the earlier behaviour (pre "aggressive-primop" patch)
    whereby most primpos were considered cheap.  In the aggressive-primop
    patch we made them ones with bigger "code_size" seem not-cheap, but
    this slows down fft2 a lot.  So I've reverted to the earlier behaviour.
    
       +++ b/compiler/prelude/PrimOp.lhs
       @@ -450,6 +450,8 @@ primOpIsCheap op
          -- This is vital; see Note [PrimOp can_fail and has_side_effects]
        && not (primOpOutOfLine op)
      -   -- && primOpCodeSize op <= primOpCodeSizeDefault
      +-- Omitting; it makes fft2 run a lot slower by preventing
      +--           eta expansion in an inner loop, with a primop cosDouble#
    a365a58e