blob: 934d243ea48779b36a48e48b8417a20bfd06f357 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# LANGUAGE MagicHash #-}
module T19851 where
import GHC.Exts
import GHC.Word
w8 = W8# (uncheckedShiftLWord8# (wordToWord8# 100##) (-4#))
w16 = W16# (uncheckedShiftLWord16# (wordToWord16# 100##) (-4#))
w32 = W32# (uncheckedShiftLWord32# (wordToWord32# 100##) (-4#))
|
