+largeArgInstr :: Int -> Int
+largeArgInstr bci = bci_FLAG_LARGE_ARGS .|. bci
+
+largeArg :: Int -> [Int]
+largeArg i
+ | wORD_SIZE_IN_BITS == 64
+ = [(i .&. 0xFFFF000000000000) `shiftR` 48,
+ (i .&. 0x0000FFFF00000000) `shiftR` 32,
+ (i .&. 0x00000000FFFF0000) `shiftR` 16,
+ (i .&. 0x000000000000FFFF)]
+ | wORD_SIZE_IN_BITS == 32
+ = [(i .&. 0xFFFF0000) `shiftR` 16,
+ (i .&. 0x0000FFFF)]
+ | otherwise = error "wORD_SIZE_IN_BITS not 32 or 64?"
+