allocAtomic :: Type -> Codegen Operand
allocAtomic ty = do
  size <- sizeOf ty
  mem <- allocAtomic' size
  inst $ BitCast mem (PointerType ty (AddrSpace 0)) []
allocAtomic :: Type -> Codegen Operand
allocAtomic ty = do
  size <- sizeOf ty
  mem <- allocAtomic' size
  inst $ BitCast mem (PointerType ty (AddrSpace 0)) []
allocAtomic ty = do
  size <- sizeOf ty
  mem <- allocAtomic' size
  inst $ BitCast mem (PointerType ty (AddrSpace 0)) []