blob: 2160004b494ed3d65550ab1b339a8c374c0f94e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE UnboxedTuples #-}
module T20347 where
import GHC.Exts
foo0 x = 10# +# (negateInt# x)
foo1 x = (10# +# x) +# (negateInt# x)
foo2 x = 10# -# (negateInt# x)
foo3 x y = (negateInt# x) *# (negateInt# y)
foo4 x = 10# *# (negateInt# x)
|