{-# LINE 1 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE Strict #-}
{-# LANGUAGE TypeApplications #-}
{-# LANGUAGE TypeFamilies #-}
module Graphics.Vulkan.Types.Struct.Bind
(VkBindBufferMemoryDeviceGroupInfo(..),
VkBindBufferMemoryDeviceGroupInfoKHR, VkBindBufferMemoryInfo(..),
VkBindBufferMemoryInfoKHR, VkBindImageMemoryDeviceGroupInfo(..),
VkBindImageMemoryDeviceGroupInfoKHR, VkBindImageMemoryInfo(..),
VkBindImageMemoryInfoKHR, VkBindImageMemorySwapchainInfoKHR(..),
VkBindImagePlaneMemoryInfo(..), VkBindImagePlaneMemoryInfoKHR,
VkBindSparseInfo(..))
where
import Foreign.Storable (Storable (..))
import GHC.Base (Addr#, ByteArray#,
byteArrayContents#,
plusAddr#)
import Graphics.Vulkan.Marshal
import Graphics.Vulkan.Marshal.Internal
import Graphics.Vulkan.Types.BaseTypes (VkDeviceSize)
import Graphics.Vulkan.Types.Enum.Image (VkImageAspectFlagBits)
import Graphics.Vulkan.Types.Enum.StructureType (VkStructureType)
import Graphics.Vulkan.Types.Handles (VkBuffer,
VkDeviceMemory,
VkImage, VkSemaphore,
VkSwapchainKHR)
import Graphics.Vulkan.Types.Struct.Rect (VkRect2D)
import Graphics.Vulkan.Types.Struct.Sparse (VkSparseBufferMemoryBindInfo,
VkSparseImageMemoryBindInfo,
VkSparseImageOpaqueMemoryBindInfo)
import System.IO.Unsafe (unsafeDupablePerformIO)
data VkBindBufferMemoryDeviceGroupInfo = VkBindBufferMemoryDeviceGroupInfo# Addr#
ByteArray#
instance Eq VkBindBufferMemoryDeviceGroupInfo where
(VkBindBufferMemoryDeviceGroupInfo# Addr#
a ByteArray#
_) == :: VkBindBufferMemoryDeviceGroupInfo
-> VkBindBufferMemoryDeviceGroupInfo -> Bool
==
x :: VkBindBufferMemoryDeviceGroupInfo
x@(VkBindBufferMemoryDeviceGroupInfo# Addr#
b ByteArray#
_)
= Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
== Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindBufferMemoryDeviceGroupInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindBufferMemoryDeviceGroupInfo
x) Addr#
a Addr#
b
{-# INLINE (==) #-}
instance Ord VkBindBufferMemoryDeviceGroupInfo where
(VkBindBufferMemoryDeviceGroupInfo# Addr#
a ByteArray#
_) compare :: VkBindBufferMemoryDeviceGroupInfo
-> VkBindBufferMemoryDeviceGroupInfo -> Ordering
`compare`
x :: VkBindBufferMemoryDeviceGroupInfo
x@(VkBindBufferMemoryDeviceGroupInfo# Addr#
b ByteArray#
_)
= Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindBufferMemoryDeviceGroupInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindBufferMemoryDeviceGroupInfo
x) Addr#
a Addr#
b
{-# INLINE compare #-}
instance Storable VkBindBufferMemoryDeviceGroupInfo where
sizeOf :: VkBindBufferMemoryDeviceGroupInfo -> Int
sizeOf ~VkBindBufferMemoryDeviceGroupInfo
_ = (Int
32)
{-# LINE 65 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE sizeOf #-}
alignment :: VkBindBufferMemoryDeviceGroupInfo -> Int
alignment ~VkBindBufferMemoryDeviceGroupInfo
_
= Int
8
{-# LINE 69 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE alignment #-}
peek :: Ptr VkBindBufferMemoryDeviceGroupInfo
-> IO VkBindBufferMemoryDeviceGroupInfo
peek = Ptr VkBindBufferMemoryDeviceGroupInfo
-> IO VkBindBufferMemoryDeviceGroupInfo
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> IO a
peekVkData#
{-# INLINE peek #-}
poke :: Ptr VkBindBufferMemoryDeviceGroupInfo
-> VkBindBufferMemoryDeviceGroupInfo -> IO ()
poke = Ptr VkBindBufferMemoryDeviceGroupInfo
-> VkBindBufferMemoryDeviceGroupInfo -> IO ()
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> a -> IO ()
pokeVkData#
{-# INLINE poke #-}
instance VulkanMarshalPrim VkBindBufferMemoryDeviceGroupInfo where
unsafeAddr :: VkBindBufferMemoryDeviceGroupInfo -> Addr#
unsafeAddr (VkBindBufferMemoryDeviceGroupInfo# Addr#
a ByteArray#
_) = Addr#
a
{-# INLINE unsafeAddr #-}
unsafeByteArray :: VkBindBufferMemoryDeviceGroupInfo -> ByteArray#
unsafeByteArray (VkBindBufferMemoryDeviceGroupInfo# Addr#
_ ByteArray#
b) = ByteArray#
b
{-# INLINE unsafeByteArray #-}
unsafeFromByteArrayOffset :: Int# -> ByteArray# -> VkBindBufferMemoryDeviceGroupInfo
unsafeFromByteArrayOffset Int#
off ByteArray#
b
= Addr# -> ByteArray# -> VkBindBufferMemoryDeviceGroupInfo
VkBindBufferMemoryDeviceGroupInfo#
(Addr# -> Int# -> Addr#
plusAddr# (ByteArray# -> Addr#
byteArrayContents# ByteArray#
b) Int#
off)
ByteArray#
b
{-# INLINE unsafeFromByteArrayOffset #-}
instance VulkanMarshal VkBindBufferMemoryDeviceGroupInfo where
type StructFields VkBindBufferMemoryDeviceGroupInfo =
'["sType", "pNext", "deviceIndexCount", "pDeviceIndices"]
type CUnionType VkBindBufferMemoryDeviceGroupInfo = 'False
type ReturnedOnly VkBindBufferMemoryDeviceGroupInfo = 'False
type StructExtends VkBindBufferMemoryDeviceGroupInfo =
'[VkBindBufferMemoryInfo]
instance {-# OVERLAPPING #-}
HasField "sType" VkBindBufferMemoryDeviceGroupInfo where
type FieldType "sType" VkBindBufferMemoryDeviceGroupInfo =
VkStructureType
type FieldOptional "sType" VkBindBufferMemoryDeviceGroupInfo =
'False
type FieldOffset "sType" VkBindBufferMemoryDeviceGroupInfo =
(0)
{-# LINE 108 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "sType" VkBindBufferMemoryDeviceGroupInfo =
'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
0)
{-# LINE 117 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "sType" VkBindBufferMemoryDeviceGroupInfo where
{-# NOINLINE getField #-}
getField :: VkBindBufferMemoryDeviceGroupInfo
-> FieldType "sType" VkBindBufferMemoryDeviceGroupInfo
getField VkBindBufferMemoryDeviceGroupInfo
x
= IO VkStructureType -> VkStructureType
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindBufferMemoryDeviceGroupInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindBufferMemoryDeviceGroupInfo
-> Ptr VkBindBufferMemoryDeviceGroupInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindBufferMemoryDeviceGroupInfo
x) (Int
0))
{-# LINE 124 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindBufferMemoryDeviceGroupInfo
-> IO (FieldType "sType" VkBindBufferMemoryDeviceGroupInfo)
readField Ptr VkBindBufferMemoryDeviceGroupInfo
p
= Ptr VkBindBufferMemoryDeviceGroupInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindBufferMemoryDeviceGroupInfo
p (Int
0)
{-# LINE 128 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "sType" VkBindBufferMemoryDeviceGroupInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindBufferMemoryDeviceGroupInfo
-> FieldType "sType" VkBindBufferMemoryDeviceGroupInfo -> IO ()
writeField Ptr VkBindBufferMemoryDeviceGroupInfo
p
= Ptr VkBindBufferMemoryDeviceGroupInfo
-> Int -> VkStructureType -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindBufferMemoryDeviceGroupInfo
p (Int
0)
{-# LINE 134 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pNext" VkBindBufferMemoryDeviceGroupInfo where
type FieldType "pNext" VkBindBufferMemoryDeviceGroupInfo = Ptr Void
type FieldOptional "pNext" VkBindBufferMemoryDeviceGroupInfo =
'False
type FieldOffset "pNext" VkBindBufferMemoryDeviceGroupInfo =
(8)
{-# LINE 142 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pNext" VkBindBufferMemoryDeviceGroupInfo =
'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
8)
{-# LINE 151 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pNext" VkBindBufferMemoryDeviceGroupInfo where
{-# NOINLINE getField #-}
getField :: VkBindBufferMemoryDeviceGroupInfo
-> FieldType "pNext" VkBindBufferMemoryDeviceGroupInfo
getField VkBindBufferMemoryDeviceGroupInfo
x
= IO (Ptr Void) -> Ptr Void
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindBufferMemoryDeviceGroupInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindBufferMemoryDeviceGroupInfo
-> Ptr VkBindBufferMemoryDeviceGroupInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindBufferMemoryDeviceGroupInfo
x) (Int
8))
{-# LINE 158 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindBufferMemoryDeviceGroupInfo
-> IO (FieldType "pNext" VkBindBufferMemoryDeviceGroupInfo)
readField Ptr VkBindBufferMemoryDeviceGroupInfo
p
= Ptr VkBindBufferMemoryDeviceGroupInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindBufferMemoryDeviceGroupInfo
p (Int
8)
{-# LINE 162 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pNext" VkBindBufferMemoryDeviceGroupInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindBufferMemoryDeviceGroupInfo
-> FieldType "pNext" VkBindBufferMemoryDeviceGroupInfo -> IO ()
writeField Ptr VkBindBufferMemoryDeviceGroupInfo
p
= Ptr VkBindBufferMemoryDeviceGroupInfo -> Int -> Ptr Void -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindBufferMemoryDeviceGroupInfo
p (Int
8)
{-# LINE 168 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "deviceIndexCount" VkBindBufferMemoryDeviceGroupInfo where
type FieldType "deviceIndexCount" VkBindBufferMemoryDeviceGroupInfo
= Word32
type FieldOptional "deviceIndexCount"
VkBindBufferMemoryDeviceGroupInfo
= 'True
type FieldOffset "deviceIndexCount"
VkBindBufferMemoryDeviceGroupInfo
=
(16)
{-# LINE 180 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "deviceIndexCount"
VkBindBufferMemoryDeviceGroupInfo
= 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
True
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
16)
{-# LINE 190 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "deviceIndexCount" VkBindBufferMemoryDeviceGroupInfo
where
{-# NOINLINE getField #-}
getField :: VkBindBufferMemoryDeviceGroupInfo
-> FieldType "deviceIndexCount" VkBindBufferMemoryDeviceGroupInfo
getField VkBindBufferMemoryDeviceGroupInfo
x
= IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindBufferMemoryDeviceGroupInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindBufferMemoryDeviceGroupInfo
-> Ptr VkBindBufferMemoryDeviceGroupInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindBufferMemoryDeviceGroupInfo
x) (Int
16))
{-# LINE 198 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindBufferMemoryDeviceGroupInfo
-> IO
(FieldType "deviceIndexCount" VkBindBufferMemoryDeviceGroupInfo)
readField Ptr VkBindBufferMemoryDeviceGroupInfo
p
= Ptr VkBindBufferMemoryDeviceGroupInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindBufferMemoryDeviceGroupInfo
p (Int
16)
{-# LINE 202 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "deviceIndexCount" VkBindBufferMemoryDeviceGroupInfo
where
{-# INLINE writeField #-}
writeField :: Ptr VkBindBufferMemoryDeviceGroupInfo
-> FieldType "deviceIndexCount" VkBindBufferMemoryDeviceGroupInfo
-> IO ()
writeField Ptr VkBindBufferMemoryDeviceGroupInfo
p
= Ptr VkBindBufferMemoryDeviceGroupInfo -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindBufferMemoryDeviceGroupInfo
p (Int
16)
{-# LINE 209 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pDeviceIndices" VkBindBufferMemoryDeviceGroupInfo where
type FieldType "pDeviceIndices" VkBindBufferMemoryDeviceGroupInfo =
Ptr Word32
type FieldOptional "pDeviceIndices"
VkBindBufferMemoryDeviceGroupInfo
= 'False
type FieldOffset "pDeviceIndices" VkBindBufferMemoryDeviceGroupInfo
=
(24)
{-# LINE 220 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pDeviceIndices"
VkBindBufferMemoryDeviceGroupInfo
= 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
24)
{-# LINE 230 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pDeviceIndices" VkBindBufferMemoryDeviceGroupInfo
where
{-# NOINLINE getField #-}
getField :: VkBindBufferMemoryDeviceGroupInfo
-> FieldType "pDeviceIndices" VkBindBufferMemoryDeviceGroupInfo
getField VkBindBufferMemoryDeviceGroupInfo
x
= IO (Ptr Word32) -> Ptr Word32
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindBufferMemoryDeviceGroupInfo -> Int -> IO (Ptr Word32)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindBufferMemoryDeviceGroupInfo
-> Ptr VkBindBufferMemoryDeviceGroupInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindBufferMemoryDeviceGroupInfo
x) (Int
24))
{-# LINE 238 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindBufferMemoryDeviceGroupInfo
-> IO
(FieldType "pDeviceIndices" VkBindBufferMemoryDeviceGroupInfo)
readField Ptr VkBindBufferMemoryDeviceGroupInfo
p
= Ptr VkBindBufferMemoryDeviceGroupInfo -> Int -> IO (Ptr Word32)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindBufferMemoryDeviceGroupInfo
p (Int
24)
{-# LINE 242 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pDeviceIndices" VkBindBufferMemoryDeviceGroupInfo
where
{-# INLINE writeField #-}
writeField :: Ptr VkBindBufferMemoryDeviceGroupInfo
-> FieldType "pDeviceIndices" VkBindBufferMemoryDeviceGroupInfo
-> IO ()
writeField Ptr VkBindBufferMemoryDeviceGroupInfo
p
= Ptr VkBindBufferMemoryDeviceGroupInfo -> Int -> Ptr Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindBufferMemoryDeviceGroupInfo
p (Int
24)
{-# LINE 249 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance Show VkBindBufferMemoryDeviceGroupInfo where
showsPrec :: Int -> VkBindBufferMemoryDeviceGroupInfo -> ShowS
showsPrec Int
d VkBindBufferMemoryDeviceGroupInfo
x
= String -> ShowS
showString String
"VkBindBufferMemoryDeviceGroupInfo {" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"sType = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkStructureType -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindBufferMemoryDeviceGroupInfo
-> FieldType "sType" VkBindBufferMemoryDeviceGroupInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"sType" VkBindBufferMemoryDeviceGroupInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pNext = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr Void -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindBufferMemoryDeviceGroupInfo
-> FieldType "pNext" VkBindBufferMemoryDeviceGroupInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pNext" VkBindBufferMemoryDeviceGroupInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"deviceIndexCount = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindBufferMemoryDeviceGroupInfo
-> FieldType "deviceIndexCount" VkBindBufferMemoryDeviceGroupInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"deviceIndexCount" VkBindBufferMemoryDeviceGroupInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pDeviceIndices = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindBufferMemoryDeviceGroupInfo
-> FieldType "pDeviceIndices" VkBindBufferMemoryDeviceGroupInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pDeviceIndices" VkBindBufferMemoryDeviceGroupInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
'}'
type VkBindBufferMemoryDeviceGroupInfoKHR =
VkBindBufferMemoryDeviceGroupInfo
data VkBindBufferMemoryInfo = VkBindBufferMemoryInfo# Addr#
ByteArray#
instance Eq VkBindBufferMemoryInfo where
(VkBindBufferMemoryInfo# Addr#
a ByteArray#
_) == :: VkBindBufferMemoryInfo -> VkBindBufferMemoryInfo -> Bool
== x :: VkBindBufferMemoryInfo
x@(VkBindBufferMemoryInfo# Addr#
b ByteArray#
_)
= Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
== Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindBufferMemoryInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindBufferMemoryInfo
x) Addr#
a Addr#
b
{-# INLINE (==) #-}
instance Ord VkBindBufferMemoryInfo where
(VkBindBufferMemoryInfo# Addr#
a ByteArray#
_) compare :: VkBindBufferMemoryInfo -> VkBindBufferMemoryInfo -> Ordering
`compare`
x :: VkBindBufferMemoryInfo
x@(VkBindBufferMemoryInfo# Addr#
b ByteArray#
_) = Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindBufferMemoryInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindBufferMemoryInfo
x) Addr#
a Addr#
b
{-# INLINE compare #-}
instance Storable VkBindBufferMemoryInfo where
sizeOf :: VkBindBufferMemoryInfo -> Int
sizeOf ~VkBindBufferMemoryInfo
_ = (Int
40)
{-# LINE 295 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE sizeOf #-}
alignment :: VkBindBufferMemoryInfo -> Int
alignment ~VkBindBufferMemoryInfo
_ = Int
8
{-# LINE 298 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE alignment #-}
peek :: Ptr VkBindBufferMemoryInfo -> IO VkBindBufferMemoryInfo
peek = Ptr VkBindBufferMemoryInfo -> IO VkBindBufferMemoryInfo
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> IO a
peekVkData#
{-# INLINE peek #-}
poke :: Ptr VkBindBufferMemoryInfo -> VkBindBufferMemoryInfo -> IO ()
poke = Ptr VkBindBufferMemoryInfo -> VkBindBufferMemoryInfo -> IO ()
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> a -> IO ()
pokeVkData#
{-# INLINE poke #-}
instance VulkanMarshalPrim VkBindBufferMemoryInfo where
unsafeAddr :: VkBindBufferMemoryInfo -> Addr#
unsafeAddr (VkBindBufferMemoryInfo# Addr#
a ByteArray#
_) = Addr#
a
{-# INLINE unsafeAddr #-}
unsafeByteArray :: VkBindBufferMemoryInfo -> ByteArray#
unsafeByteArray (VkBindBufferMemoryInfo# Addr#
_ ByteArray#
b) = ByteArray#
b
{-# INLINE unsafeByteArray #-}
unsafeFromByteArrayOffset :: Int# -> ByteArray# -> VkBindBufferMemoryInfo
unsafeFromByteArrayOffset Int#
off ByteArray#
b
= Addr# -> ByteArray# -> VkBindBufferMemoryInfo
VkBindBufferMemoryInfo# (Addr# -> Int# -> Addr#
plusAddr# (ByteArray# -> Addr#
byteArrayContents# ByteArray#
b) Int#
off) ByteArray#
b
{-# INLINE unsafeFromByteArrayOffset #-}
instance VulkanMarshal VkBindBufferMemoryInfo where
type StructFields VkBindBufferMemoryInfo =
'["sType", "pNext", "buffer", "memory", "memoryOffset"]
type CUnionType VkBindBufferMemoryInfo = 'False
type ReturnedOnly VkBindBufferMemoryInfo = 'False
type StructExtends VkBindBufferMemoryInfo = '[]
instance {-# OVERLAPPING #-}
HasField "sType" VkBindBufferMemoryInfo where
type FieldType "sType" VkBindBufferMemoryInfo = VkStructureType
type FieldOptional "sType" VkBindBufferMemoryInfo = 'False
type FieldOffset "sType" VkBindBufferMemoryInfo =
(0)
{-# LINE 332 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "sType" VkBindBufferMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
0)
{-# LINE 339 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "sType" VkBindBufferMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindBufferMemoryInfo -> FieldType "sType" VkBindBufferMemoryInfo
getField VkBindBufferMemoryInfo
x
= IO VkStructureType -> VkStructureType
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindBufferMemoryInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindBufferMemoryInfo -> Ptr VkBindBufferMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindBufferMemoryInfo
x) (Int
0))
{-# LINE 346 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindBufferMemoryInfo
-> IO (FieldType "sType" VkBindBufferMemoryInfo)
readField Ptr VkBindBufferMemoryInfo
p
= Ptr VkBindBufferMemoryInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindBufferMemoryInfo
p (Int
0)
{-# LINE 350 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "sType" VkBindBufferMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindBufferMemoryInfo
-> FieldType "sType" VkBindBufferMemoryInfo -> IO ()
writeField Ptr VkBindBufferMemoryInfo
p
= Ptr VkBindBufferMemoryInfo -> Int -> VkStructureType -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindBufferMemoryInfo
p (Int
0)
{-# LINE 356 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pNext" VkBindBufferMemoryInfo where
type FieldType "pNext" VkBindBufferMemoryInfo = Ptr Void
type FieldOptional "pNext" VkBindBufferMemoryInfo = 'False
type FieldOffset "pNext" VkBindBufferMemoryInfo =
(8)
{-# LINE 363 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pNext" VkBindBufferMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
8)
{-# LINE 370 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pNext" VkBindBufferMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindBufferMemoryInfo -> FieldType "pNext" VkBindBufferMemoryInfo
getField VkBindBufferMemoryInfo
x
= IO (Ptr Void) -> Ptr Void
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindBufferMemoryInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindBufferMemoryInfo -> Ptr VkBindBufferMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindBufferMemoryInfo
x) (Int
8))
{-# LINE 377 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindBufferMemoryInfo
-> IO (FieldType "pNext" VkBindBufferMemoryInfo)
readField Ptr VkBindBufferMemoryInfo
p
= Ptr VkBindBufferMemoryInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindBufferMemoryInfo
p (Int
8)
{-# LINE 381 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pNext" VkBindBufferMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindBufferMemoryInfo
-> FieldType "pNext" VkBindBufferMemoryInfo -> IO ()
writeField Ptr VkBindBufferMemoryInfo
p
= Ptr VkBindBufferMemoryInfo -> Int -> Ptr Void -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindBufferMemoryInfo
p (Int
8)
{-# LINE 387 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "buffer" VkBindBufferMemoryInfo where
type FieldType "buffer" VkBindBufferMemoryInfo = VkBuffer
type FieldOptional "buffer" VkBindBufferMemoryInfo = 'False
type FieldOffset "buffer" VkBindBufferMemoryInfo =
(16)
{-# LINE 394 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "buffer" VkBindBufferMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
16)
{-# LINE 401 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "buffer" VkBindBufferMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindBufferMemoryInfo -> FieldType "buffer" VkBindBufferMemoryInfo
getField VkBindBufferMemoryInfo
x
= IO VkBuffer -> VkBuffer
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindBufferMemoryInfo -> Int -> IO VkBuffer
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindBufferMemoryInfo -> Ptr VkBindBufferMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindBufferMemoryInfo
x) (Int
16))
{-# LINE 408 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindBufferMemoryInfo
-> IO (FieldType "buffer" VkBindBufferMemoryInfo)
readField Ptr VkBindBufferMemoryInfo
p
= Ptr VkBindBufferMemoryInfo -> Int -> IO VkBuffer
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindBufferMemoryInfo
p (Int
16)
{-# LINE 412 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "buffer" VkBindBufferMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindBufferMemoryInfo
-> FieldType "buffer" VkBindBufferMemoryInfo -> IO ()
writeField Ptr VkBindBufferMemoryInfo
p
= Ptr VkBindBufferMemoryInfo -> Int -> VkBuffer -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindBufferMemoryInfo
p (Int
16)
{-# LINE 418 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "memory" VkBindBufferMemoryInfo where
type FieldType "memory" VkBindBufferMemoryInfo = VkDeviceMemory
type FieldOptional "memory" VkBindBufferMemoryInfo = 'False
type FieldOffset "memory" VkBindBufferMemoryInfo =
(24)
{-# LINE 425 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "memory" VkBindBufferMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
24)
{-# LINE 432 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "memory" VkBindBufferMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindBufferMemoryInfo -> FieldType "memory" VkBindBufferMemoryInfo
getField VkBindBufferMemoryInfo
x
= IO VkDeviceMemory -> VkDeviceMemory
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindBufferMemoryInfo -> Int -> IO VkDeviceMemory
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindBufferMemoryInfo -> Ptr VkBindBufferMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindBufferMemoryInfo
x) (Int
24))
{-# LINE 439 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindBufferMemoryInfo
-> IO (FieldType "memory" VkBindBufferMemoryInfo)
readField Ptr VkBindBufferMemoryInfo
p
= Ptr VkBindBufferMemoryInfo -> Int -> IO VkDeviceMemory
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindBufferMemoryInfo
p (Int
24)
{-# LINE 443 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "memory" VkBindBufferMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindBufferMemoryInfo
-> FieldType "memory" VkBindBufferMemoryInfo -> IO ()
writeField Ptr VkBindBufferMemoryInfo
p
= Ptr VkBindBufferMemoryInfo -> Int -> VkDeviceMemory -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindBufferMemoryInfo
p (Int
24)
{-# LINE 449 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "memoryOffset" VkBindBufferMemoryInfo where
type FieldType "memoryOffset" VkBindBufferMemoryInfo = VkDeviceSize
type FieldOptional "memoryOffset" VkBindBufferMemoryInfo = 'False
type FieldOffset "memoryOffset" VkBindBufferMemoryInfo =
(32)
{-# LINE 456 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "memoryOffset" VkBindBufferMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
32)
{-# LINE 464 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "memoryOffset" VkBindBufferMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindBufferMemoryInfo
-> FieldType "memoryOffset" VkBindBufferMemoryInfo
getField VkBindBufferMemoryInfo
x
= IO VkDeviceSize -> VkDeviceSize
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindBufferMemoryInfo -> Int -> IO VkDeviceSize
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindBufferMemoryInfo -> Ptr VkBindBufferMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindBufferMemoryInfo
x) (Int
32))
{-# LINE 471 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindBufferMemoryInfo
-> IO (FieldType "memoryOffset" VkBindBufferMemoryInfo)
readField Ptr VkBindBufferMemoryInfo
p
= Ptr VkBindBufferMemoryInfo -> Int -> IO VkDeviceSize
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindBufferMemoryInfo
p (Int
32)
{-# LINE 475 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "memoryOffset" VkBindBufferMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindBufferMemoryInfo
-> FieldType "memoryOffset" VkBindBufferMemoryInfo -> IO ()
writeField Ptr VkBindBufferMemoryInfo
p
= Ptr VkBindBufferMemoryInfo -> Int -> VkDeviceSize -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindBufferMemoryInfo
p (Int
32)
{-# LINE 481 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance Show VkBindBufferMemoryInfo where
showsPrec :: Int -> VkBindBufferMemoryInfo -> ShowS
showsPrec Int
d VkBindBufferMemoryInfo
x
= String -> ShowS
showString String
"VkBindBufferMemoryInfo {" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"sType = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkStructureType -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindBufferMemoryInfo -> FieldType "sType" VkBindBufferMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"sType" VkBindBufferMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pNext = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr Void -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindBufferMemoryInfo -> FieldType "pNext" VkBindBufferMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pNext" VkBindBufferMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"buffer = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkBuffer -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindBufferMemoryInfo -> FieldType "buffer" VkBindBufferMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"buffer" VkBindBufferMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"memory = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkDeviceMemory -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindBufferMemoryInfo -> FieldType "memory" VkBindBufferMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"memory" VkBindBufferMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"memoryOffset = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkDeviceSize -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindBufferMemoryInfo
-> FieldType "memoryOffset" VkBindBufferMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"memoryOffset" VkBindBufferMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
'}'
type VkBindBufferMemoryInfoKHR = VkBindBufferMemoryInfo
data VkBindImageMemoryDeviceGroupInfo = VkBindImageMemoryDeviceGroupInfo# Addr#
ByteArray#
instance Eq VkBindImageMemoryDeviceGroupInfo where
(VkBindImageMemoryDeviceGroupInfo# Addr#
a ByteArray#
_) == :: VkBindImageMemoryDeviceGroupInfo
-> VkBindImageMemoryDeviceGroupInfo -> Bool
==
x :: VkBindImageMemoryDeviceGroupInfo
x@(VkBindImageMemoryDeviceGroupInfo# Addr#
b ByteArray#
_)
= Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
== Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindImageMemoryDeviceGroupInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindImageMemoryDeviceGroupInfo
x) Addr#
a Addr#
b
{-# INLINE (==) #-}
instance Ord VkBindImageMemoryDeviceGroupInfo where
(VkBindImageMemoryDeviceGroupInfo# Addr#
a ByteArray#
_) compare :: VkBindImageMemoryDeviceGroupInfo
-> VkBindImageMemoryDeviceGroupInfo -> Ordering
`compare`
x :: VkBindImageMemoryDeviceGroupInfo
x@(VkBindImageMemoryDeviceGroupInfo# Addr#
b ByteArray#
_)
= Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindImageMemoryDeviceGroupInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindImageMemoryDeviceGroupInfo
x) Addr#
a Addr#
b
{-# INLINE compare #-}
instance Storable VkBindImageMemoryDeviceGroupInfo where
sizeOf :: VkBindImageMemoryDeviceGroupInfo -> Int
sizeOf ~VkBindImageMemoryDeviceGroupInfo
_ = (Int
48)
{-# LINE 532 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE sizeOf #-}
alignment :: VkBindImageMemoryDeviceGroupInfo -> Int
alignment ~VkBindImageMemoryDeviceGroupInfo
_
= Int
8
{-# LINE 536 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE alignment #-}
peek :: Ptr VkBindImageMemoryDeviceGroupInfo
-> IO VkBindImageMemoryDeviceGroupInfo
peek = Ptr VkBindImageMemoryDeviceGroupInfo
-> IO VkBindImageMemoryDeviceGroupInfo
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> IO a
peekVkData#
{-# INLINE peek #-}
poke :: Ptr VkBindImageMemoryDeviceGroupInfo
-> VkBindImageMemoryDeviceGroupInfo -> IO ()
poke = Ptr VkBindImageMemoryDeviceGroupInfo
-> VkBindImageMemoryDeviceGroupInfo -> IO ()
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> a -> IO ()
pokeVkData#
{-# INLINE poke #-}
instance VulkanMarshalPrim VkBindImageMemoryDeviceGroupInfo where
unsafeAddr :: VkBindImageMemoryDeviceGroupInfo -> Addr#
unsafeAddr (VkBindImageMemoryDeviceGroupInfo# Addr#
a ByteArray#
_) = Addr#
a
{-# INLINE unsafeAddr #-}
unsafeByteArray :: VkBindImageMemoryDeviceGroupInfo -> ByteArray#
unsafeByteArray (VkBindImageMemoryDeviceGroupInfo# Addr#
_ ByteArray#
b) = ByteArray#
b
{-# INLINE unsafeByteArray #-}
unsafeFromByteArrayOffset :: Int# -> ByteArray# -> VkBindImageMemoryDeviceGroupInfo
unsafeFromByteArrayOffset Int#
off ByteArray#
b
= Addr# -> ByteArray# -> VkBindImageMemoryDeviceGroupInfo
VkBindImageMemoryDeviceGroupInfo#
(Addr# -> Int# -> Addr#
plusAddr# (ByteArray# -> Addr#
byteArrayContents# ByteArray#
b) Int#
off)
ByteArray#
b
{-# INLINE unsafeFromByteArrayOffset #-}
instance VulkanMarshal VkBindImageMemoryDeviceGroupInfo where
type StructFields VkBindImageMemoryDeviceGroupInfo =
'["sType", "pNext", "deviceIndexCount", "pDeviceIndices",
"splitInstanceBindRegionCount", "pSplitInstanceBindRegions"]
type CUnionType VkBindImageMemoryDeviceGroupInfo = 'False
type ReturnedOnly VkBindImageMemoryDeviceGroupInfo = 'False
type StructExtends VkBindImageMemoryDeviceGroupInfo =
'[VkBindImageMemoryInfo]
instance {-# OVERLAPPING #-}
HasField "sType" VkBindImageMemoryDeviceGroupInfo where
type FieldType "sType" VkBindImageMemoryDeviceGroupInfo =
VkStructureType
type FieldOptional "sType" VkBindImageMemoryDeviceGroupInfo =
'False
type FieldOffset "sType" VkBindImageMemoryDeviceGroupInfo =
(0)
{-# LINE 576 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "sType" VkBindImageMemoryDeviceGroupInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
0)
{-# LINE 584 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "sType" VkBindImageMemoryDeviceGroupInfo where
{-# NOINLINE getField #-}
getField :: VkBindImageMemoryDeviceGroupInfo
-> FieldType "sType" VkBindImageMemoryDeviceGroupInfo
getField VkBindImageMemoryDeviceGroupInfo
x
= IO VkStructureType -> VkStructureType
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemoryDeviceGroupInfo
-> Ptr VkBindImageMemoryDeviceGroupInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemoryDeviceGroupInfo
x) (Int
0))
{-# LINE 591 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> IO (FieldType "sType" VkBindImageMemoryDeviceGroupInfo)
readField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
0)
{-# LINE 595 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "sType" VkBindImageMemoryDeviceGroupInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> FieldType "sType" VkBindImageMemoryDeviceGroupInfo -> IO ()
writeField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo
-> Int -> VkStructureType -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
0)
{-# LINE 601 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pNext" VkBindImageMemoryDeviceGroupInfo where
type FieldType "pNext" VkBindImageMemoryDeviceGroupInfo = Ptr Void
type FieldOptional "pNext" VkBindImageMemoryDeviceGroupInfo =
'False
type FieldOffset "pNext" VkBindImageMemoryDeviceGroupInfo =
(8)
{-# LINE 609 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pNext" VkBindImageMemoryDeviceGroupInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
8)
{-# LINE 617 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pNext" VkBindImageMemoryDeviceGroupInfo where
{-# NOINLINE getField #-}
getField :: VkBindImageMemoryDeviceGroupInfo
-> FieldType "pNext" VkBindImageMemoryDeviceGroupInfo
getField VkBindImageMemoryDeviceGroupInfo
x
= IO (Ptr Void) -> Ptr Void
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemoryDeviceGroupInfo
-> Ptr VkBindImageMemoryDeviceGroupInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemoryDeviceGroupInfo
x) (Int
8))
{-# LINE 624 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> IO (FieldType "pNext" VkBindImageMemoryDeviceGroupInfo)
readField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
8)
{-# LINE 628 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pNext" VkBindImageMemoryDeviceGroupInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> FieldType "pNext" VkBindImageMemoryDeviceGroupInfo -> IO ()
writeField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> Ptr Void -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
8)
{-# LINE 634 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "deviceIndexCount" VkBindImageMemoryDeviceGroupInfo where
type FieldType "deviceIndexCount" VkBindImageMemoryDeviceGroupInfo
= Word32
type FieldOptional "deviceIndexCount"
VkBindImageMemoryDeviceGroupInfo
= 'True
type FieldOffset "deviceIndexCount"
VkBindImageMemoryDeviceGroupInfo
=
(16)
{-# LINE 646 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "deviceIndexCount"
VkBindImageMemoryDeviceGroupInfo
= 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
True
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
16)
{-# LINE 656 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "deviceIndexCount" VkBindImageMemoryDeviceGroupInfo
where
{-# NOINLINE getField #-}
getField :: VkBindImageMemoryDeviceGroupInfo
-> FieldType "deviceIndexCount" VkBindImageMemoryDeviceGroupInfo
getField VkBindImageMemoryDeviceGroupInfo
x
= IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemoryDeviceGroupInfo
-> Ptr VkBindImageMemoryDeviceGroupInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemoryDeviceGroupInfo
x) (Int
16))
{-# LINE 664 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> IO
(FieldType "deviceIndexCount" VkBindImageMemoryDeviceGroupInfo)
readField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
16)
{-# LINE 668 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "deviceIndexCount" VkBindImageMemoryDeviceGroupInfo
where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> FieldType "deviceIndexCount" VkBindImageMemoryDeviceGroupInfo
-> IO ()
writeField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
16)
{-# LINE 675 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pDeviceIndices" VkBindImageMemoryDeviceGroupInfo where
type FieldType "pDeviceIndices" VkBindImageMemoryDeviceGroupInfo =
Ptr Word32
type FieldOptional "pDeviceIndices"
VkBindImageMemoryDeviceGroupInfo
= 'False
type FieldOffset "pDeviceIndices" VkBindImageMemoryDeviceGroupInfo
=
(24)
{-# LINE 686 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pDeviceIndices" VkBindImageMemoryDeviceGroupInfo
= 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
24)
{-# LINE 695 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pDeviceIndices" VkBindImageMemoryDeviceGroupInfo
where
{-# NOINLINE getField #-}
getField :: VkBindImageMemoryDeviceGroupInfo
-> FieldType "pDeviceIndices" VkBindImageMemoryDeviceGroupInfo
getField VkBindImageMemoryDeviceGroupInfo
x
= IO (Ptr Word32) -> Ptr Word32
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO (Ptr Word32)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemoryDeviceGroupInfo
-> Ptr VkBindImageMemoryDeviceGroupInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemoryDeviceGroupInfo
x) (Int
24))
{-# LINE 703 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> IO (FieldType "pDeviceIndices" VkBindImageMemoryDeviceGroupInfo)
readField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO (Ptr Word32)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
24)
{-# LINE 707 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pDeviceIndices" VkBindImageMemoryDeviceGroupInfo
where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> FieldType "pDeviceIndices" VkBindImageMemoryDeviceGroupInfo
-> IO ()
writeField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> Ptr Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
24)
{-# LINE 714 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "splitInstanceBindRegionCount"
VkBindImageMemoryDeviceGroupInfo
where
type FieldType "splitInstanceBindRegionCount"
VkBindImageMemoryDeviceGroupInfo
= Word32
type FieldOptional "splitInstanceBindRegionCount"
VkBindImageMemoryDeviceGroupInfo
= 'True
type FieldOffset "splitInstanceBindRegionCount"
VkBindImageMemoryDeviceGroupInfo
=
(32)
{-# LINE 729 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "splitInstanceBindRegionCount"
VkBindImageMemoryDeviceGroupInfo
= 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
True
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
32)
{-# LINE 739 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "splitInstanceBindRegionCount"
VkBindImageMemoryDeviceGroupInfo
where
{-# NOINLINE getField #-}
getField :: VkBindImageMemoryDeviceGroupInfo
-> FieldType
"splitInstanceBindRegionCount" VkBindImageMemoryDeviceGroupInfo
getField VkBindImageMemoryDeviceGroupInfo
x
= IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemoryDeviceGroupInfo
-> Ptr VkBindImageMemoryDeviceGroupInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemoryDeviceGroupInfo
x) (Int
32))
{-# LINE 748 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> IO
(FieldType
"splitInstanceBindRegionCount" VkBindImageMemoryDeviceGroupInfo)
readField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
32)
{-# LINE 752 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "splitInstanceBindRegionCount"
VkBindImageMemoryDeviceGroupInfo
where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> FieldType
"splitInstanceBindRegionCount" VkBindImageMemoryDeviceGroupInfo
-> IO ()
writeField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
32)
{-# LINE 760 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pSplitInstanceBindRegions"
VkBindImageMemoryDeviceGroupInfo
where
type FieldType "pSplitInstanceBindRegions"
VkBindImageMemoryDeviceGroupInfo
= Ptr VkRect2D
type FieldOptional "pSplitInstanceBindRegions"
VkBindImageMemoryDeviceGroupInfo
= 'False
type FieldOffset "pSplitInstanceBindRegions"
VkBindImageMemoryDeviceGroupInfo
=
(40)
{-# LINE 775 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pSplitInstanceBindRegions"
VkBindImageMemoryDeviceGroupInfo
= 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
40)
{-# LINE 785 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pSplitInstanceBindRegions"
VkBindImageMemoryDeviceGroupInfo
where
{-# NOINLINE getField #-}
getField :: VkBindImageMemoryDeviceGroupInfo
-> FieldType
"pSplitInstanceBindRegions" VkBindImageMemoryDeviceGroupInfo
getField VkBindImageMemoryDeviceGroupInfo
x
= IO (Ptr VkRect2D) -> Ptr VkRect2D
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO (Ptr VkRect2D)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemoryDeviceGroupInfo
-> Ptr VkBindImageMemoryDeviceGroupInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemoryDeviceGroupInfo
x) (Int
40))
{-# LINE 794 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> IO
(FieldType
"pSplitInstanceBindRegions" VkBindImageMemoryDeviceGroupInfo)
readField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo -> Int -> IO (Ptr VkRect2D)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
40)
{-# LINE 798 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pSplitInstanceBindRegions"
VkBindImageMemoryDeviceGroupInfo
where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemoryDeviceGroupInfo
-> FieldType
"pSplitInstanceBindRegions" VkBindImageMemoryDeviceGroupInfo
-> IO ()
writeField Ptr VkBindImageMemoryDeviceGroupInfo
p
= Ptr VkBindImageMemoryDeviceGroupInfo
-> Int -> Ptr VkRect2D -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemoryDeviceGroupInfo
p (Int
40)
{-# LINE 806 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance Show VkBindImageMemoryDeviceGroupInfo where
showsPrec :: Int -> VkBindImageMemoryDeviceGroupInfo -> ShowS
showsPrec Int
d VkBindImageMemoryDeviceGroupInfo
x
= String -> ShowS
showString String
"VkBindImageMemoryDeviceGroupInfo {" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"sType = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkStructureType -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemoryDeviceGroupInfo
-> FieldType "sType" VkBindImageMemoryDeviceGroupInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"sType" VkBindImageMemoryDeviceGroupInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pNext = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr Void -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemoryDeviceGroupInfo
-> FieldType "pNext" VkBindImageMemoryDeviceGroupInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pNext" VkBindImageMemoryDeviceGroupInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"deviceIndexCount = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemoryDeviceGroupInfo
-> FieldType "deviceIndexCount" VkBindImageMemoryDeviceGroupInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"deviceIndexCount" VkBindImageMemoryDeviceGroupInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pDeviceIndices = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemoryDeviceGroupInfo
-> FieldType "pDeviceIndices" VkBindImageMemoryDeviceGroupInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pDeviceIndices" VkBindImageMemoryDeviceGroupInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"splitInstanceBindRegionCount = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemoryDeviceGroupInfo
-> FieldType
"splitInstanceBindRegionCount" VkBindImageMemoryDeviceGroupInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"splitInstanceBindRegionCount" VkBindImageMemoryDeviceGroupInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pSplitInstanceBindRegions = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr VkRect2D -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemoryDeviceGroupInfo
-> FieldType
"pSplitInstanceBindRegions" VkBindImageMemoryDeviceGroupInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pSplitInstanceBindRegions" VkBindImageMemoryDeviceGroupInfo
x)
ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
'}'
type VkBindImageMemoryDeviceGroupInfoKHR =
VkBindImageMemoryDeviceGroupInfo
data VkBindImageMemoryInfo = VkBindImageMemoryInfo# Addr#
ByteArray#
instance Eq VkBindImageMemoryInfo where
(VkBindImageMemoryInfo# Addr#
a ByteArray#
_) == :: VkBindImageMemoryInfo -> VkBindImageMemoryInfo -> Bool
== x :: VkBindImageMemoryInfo
x@(VkBindImageMemoryInfo# Addr#
b ByteArray#
_)
= Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
== Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindImageMemoryInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindImageMemoryInfo
x) Addr#
a Addr#
b
{-# INLINE (==) #-}
instance Ord VkBindImageMemoryInfo where
(VkBindImageMemoryInfo# Addr#
a ByteArray#
_) compare :: VkBindImageMemoryInfo -> VkBindImageMemoryInfo -> Ordering
`compare`
x :: VkBindImageMemoryInfo
x@(VkBindImageMemoryInfo# Addr#
b ByteArray#
_) = Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindImageMemoryInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindImageMemoryInfo
x) Addr#
a Addr#
b
{-# INLINE compare #-}
instance Storable VkBindImageMemoryInfo where
sizeOf :: VkBindImageMemoryInfo -> Int
sizeOf ~VkBindImageMemoryInfo
_ = (Int
40)
{-# LINE 859 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE sizeOf #-}
alignment :: VkBindImageMemoryInfo -> Int
alignment ~VkBindImageMemoryInfo
_ = Int
8
{-# LINE 862 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE alignment #-}
peek :: Ptr VkBindImageMemoryInfo -> IO VkBindImageMemoryInfo
peek = Ptr VkBindImageMemoryInfo -> IO VkBindImageMemoryInfo
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> IO a
peekVkData#
{-# INLINE peek #-}
poke :: Ptr VkBindImageMemoryInfo -> VkBindImageMemoryInfo -> IO ()
poke = Ptr VkBindImageMemoryInfo -> VkBindImageMemoryInfo -> IO ()
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> a -> IO ()
pokeVkData#
{-# INLINE poke #-}
instance VulkanMarshalPrim VkBindImageMemoryInfo where
unsafeAddr :: VkBindImageMemoryInfo -> Addr#
unsafeAddr (VkBindImageMemoryInfo# Addr#
a ByteArray#
_) = Addr#
a
{-# INLINE unsafeAddr #-}
unsafeByteArray :: VkBindImageMemoryInfo -> ByteArray#
unsafeByteArray (VkBindImageMemoryInfo# Addr#
_ ByteArray#
b) = ByteArray#
b
{-# INLINE unsafeByteArray #-}
unsafeFromByteArrayOffset :: Int# -> ByteArray# -> VkBindImageMemoryInfo
unsafeFromByteArrayOffset Int#
off ByteArray#
b
= Addr# -> ByteArray# -> VkBindImageMemoryInfo
VkBindImageMemoryInfo# (Addr# -> Int# -> Addr#
plusAddr# (ByteArray# -> Addr#
byteArrayContents# ByteArray#
b) Int#
off) ByteArray#
b
{-# INLINE unsafeFromByteArrayOffset #-}
instance VulkanMarshal VkBindImageMemoryInfo where
type StructFields VkBindImageMemoryInfo =
'["sType", "pNext", "image", "memory", "memoryOffset"]
type CUnionType VkBindImageMemoryInfo = 'False
type ReturnedOnly VkBindImageMemoryInfo = 'False
type StructExtends VkBindImageMemoryInfo = '[]
instance {-# OVERLAPPING #-} HasField "sType" VkBindImageMemoryInfo
where
type FieldType "sType" VkBindImageMemoryInfo = VkStructureType
type FieldOptional "sType" VkBindImageMemoryInfo = 'False
type FieldOffset "sType" VkBindImageMemoryInfo =
(0)
{-# LINE 896 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "sType" VkBindImageMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
0)
{-# LINE 903 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "sType" VkBindImageMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindImageMemoryInfo -> FieldType "sType" VkBindImageMemoryInfo
getField VkBindImageMemoryInfo
x
= IO VkStructureType -> VkStructureType
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemoryInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemoryInfo -> Ptr VkBindImageMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemoryInfo
x) (Int
0))
{-# LINE 910 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemoryInfo
-> IO (FieldType "sType" VkBindImageMemoryInfo)
readField Ptr VkBindImageMemoryInfo
p
= Ptr VkBindImageMemoryInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemoryInfo
p (Int
0)
{-# LINE 914 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "sType" VkBindImageMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemoryInfo
-> FieldType "sType" VkBindImageMemoryInfo -> IO ()
writeField Ptr VkBindImageMemoryInfo
p
= Ptr VkBindImageMemoryInfo -> Int -> VkStructureType -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemoryInfo
p (Int
0)
{-# LINE 920 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-} HasField "pNext" VkBindImageMemoryInfo
where
type FieldType "pNext" VkBindImageMemoryInfo = Ptr Void
type FieldOptional "pNext" VkBindImageMemoryInfo = 'False
type FieldOffset "pNext" VkBindImageMemoryInfo =
(8)
{-# LINE 927 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pNext" VkBindImageMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
8)
{-# LINE 934 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pNext" VkBindImageMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindImageMemoryInfo -> FieldType "pNext" VkBindImageMemoryInfo
getField VkBindImageMemoryInfo
x
= IO (Ptr Void) -> Ptr Void
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemoryInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemoryInfo -> Ptr VkBindImageMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemoryInfo
x) (Int
8))
{-# LINE 941 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemoryInfo
-> IO (FieldType "pNext" VkBindImageMemoryInfo)
readField Ptr VkBindImageMemoryInfo
p
= Ptr VkBindImageMemoryInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemoryInfo
p (Int
8)
{-# LINE 945 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pNext" VkBindImageMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemoryInfo
-> FieldType "pNext" VkBindImageMemoryInfo -> IO ()
writeField Ptr VkBindImageMemoryInfo
p
= Ptr VkBindImageMemoryInfo -> Int -> Ptr Void -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemoryInfo
p (Int
8)
{-# LINE 951 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-} HasField "image" VkBindImageMemoryInfo
where
type FieldType "image" VkBindImageMemoryInfo = VkImage
type FieldOptional "image" VkBindImageMemoryInfo = 'False
type FieldOffset "image" VkBindImageMemoryInfo =
(16)
{-# LINE 958 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "image" VkBindImageMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
16)
{-# LINE 965 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "image" VkBindImageMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindImageMemoryInfo -> FieldType "image" VkBindImageMemoryInfo
getField VkBindImageMemoryInfo
x
= IO VkImage -> VkImage
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemoryInfo -> Int -> IO VkImage
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemoryInfo -> Ptr VkBindImageMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemoryInfo
x) (Int
16))
{-# LINE 972 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemoryInfo
-> IO (FieldType "image" VkBindImageMemoryInfo)
readField Ptr VkBindImageMemoryInfo
p
= Ptr VkBindImageMemoryInfo -> Int -> IO VkImage
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemoryInfo
p (Int
16)
{-# LINE 976 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "image" VkBindImageMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemoryInfo
-> FieldType "image" VkBindImageMemoryInfo -> IO ()
writeField Ptr VkBindImageMemoryInfo
p
= Ptr VkBindImageMemoryInfo -> Int -> VkImage -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemoryInfo
p (Int
16)
{-# LINE 982 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "memory" VkBindImageMemoryInfo where
type FieldType "memory" VkBindImageMemoryInfo = VkDeviceMemory
type FieldOptional "memory" VkBindImageMemoryInfo = 'False
type FieldOffset "memory" VkBindImageMemoryInfo =
(24)
{-# LINE 989 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "memory" VkBindImageMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
24)
{-# LINE 996 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "memory" VkBindImageMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindImageMemoryInfo -> FieldType "memory" VkBindImageMemoryInfo
getField VkBindImageMemoryInfo
x
= IO VkDeviceMemory -> VkDeviceMemory
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemoryInfo -> Int -> IO VkDeviceMemory
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemoryInfo -> Ptr VkBindImageMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemoryInfo
x) (Int
24))
{-# LINE 1003 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemoryInfo
-> IO (FieldType "memory" VkBindImageMemoryInfo)
readField Ptr VkBindImageMemoryInfo
p
= Ptr VkBindImageMemoryInfo -> Int -> IO VkDeviceMemory
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemoryInfo
p (Int
24)
{-# LINE 1007 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "memory" VkBindImageMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemoryInfo
-> FieldType "memory" VkBindImageMemoryInfo -> IO ()
writeField Ptr VkBindImageMemoryInfo
p
= Ptr VkBindImageMemoryInfo -> Int -> VkDeviceMemory -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemoryInfo
p (Int
24)
{-# LINE 1013 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "memoryOffset" VkBindImageMemoryInfo where
type FieldType "memoryOffset" VkBindImageMemoryInfo = VkDeviceSize
type FieldOptional "memoryOffset" VkBindImageMemoryInfo = 'False
type FieldOffset "memoryOffset" VkBindImageMemoryInfo =
(32)
{-# LINE 1020 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "memoryOffset" VkBindImageMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
32)
{-# LINE 1028 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "memoryOffset" VkBindImageMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindImageMemoryInfo
-> FieldType "memoryOffset" VkBindImageMemoryInfo
getField VkBindImageMemoryInfo
x
= IO VkDeviceSize -> VkDeviceSize
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemoryInfo -> Int -> IO VkDeviceSize
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemoryInfo -> Ptr VkBindImageMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemoryInfo
x) (Int
32))
{-# LINE 1035 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemoryInfo
-> IO (FieldType "memoryOffset" VkBindImageMemoryInfo)
readField Ptr VkBindImageMemoryInfo
p
= Ptr VkBindImageMemoryInfo -> Int -> IO VkDeviceSize
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemoryInfo
p (Int
32)
{-# LINE 1039 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "memoryOffset" VkBindImageMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemoryInfo
-> FieldType "memoryOffset" VkBindImageMemoryInfo -> IO ()
writeField Ptr VkBindImageMemoryInfo
p
= Ptr VkBindImageMemoryInfo -> Int -> VkDeviceSize -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemoryInfo
p (Int
32)
{-# LINE 1045 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance Show VkBindImageMemoryInfo where
showsPrec :: Int -> VkBindImageMemoryInfo -> ShowS
showsPrec Int
d VkBindImageMemoryInfo
x
= String -> ShowS
showString String
"VkBindImageMemoryInfo {" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"sType = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkStructureType -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemoryInfo -> FieldType "sType" VkBindImageMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"sType" VkBindImageMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pNext = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr Void -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemoryInfo -> FieldType "pNext" VkBindImageMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pNext" VkBindImageMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"image = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkImage -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemoryInfo -> FieldType "image" VkBindImageMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"image" VkBindImageMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"memory = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkDeviceMemory -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemoryInfo -> FieldType "memory" VkBindImageMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"memory" VkBindImageMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"memoryOffset = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkDeviceSize -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemoryInfo
-> FieldType "memoryOffset" VkBindImageMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"memoryOffset" VkBindImageMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
'}'
type VkBindImageMemoryInfoKHR = VkBindImageMemoryInfo
data VkBindImageMemorySwapchainInfoKHR = VkBindImageMemorySwapchainInfoKHR# Addr#
ByteArray#
instance Eq VkBindImageMemorySwapchainInfoKHR where
(VkBindImageMemorySwapchainInfoKHR# Addr#
a ByteArray#
_) == :: VkBindImageMemorySwapchainInfoKHR
-> VkBindImageMemorySwapchainInfoKHR -> Bool
==
x :: VkBindImageMemorySwapchainInfoKHR
x@(VkBindImageMemorySwapchainInfoKHR# Addr#
b ByteArray#
_)
= Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
== Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindImageMemorySwapchainInfoKHR -> Int
forall a. Storable a => a -> Int
sizeOf VkBindImageMemorySwapchainInfoKHR
x) Addr#
a Addr#
b
{-# INLINE (==) #-}
instance Ord VkBindImageMemorySwapchainInfoKHR where
(VkBindImageMemorySwapchainInfoKHR# Addr#
a ByteArray#
_) compare :: VkBindImageMemorySwapchainInfoKHR
-> VkBindImageMemorySwapchainInfoKHR -> Ordering
`compare`
x :: VkBindImageMemorySwapchainInfoKHR
x@(VkBindImageMemorySwapchainInfoKHR# Addr#
b ByteArray#
_)
= Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindImageMemorySwapchainInfoKHR -> Int
forall a. Storable a => a -> Int
sizeOf VkBindImageMemorySwapchainInfoKHR
x) Addr#
a Addr#
b
{-# INLINE compare #-}
instance Storable VkBindImageMemorySwapchainInfoKHR where
sizeOf :: VkBindImageMemorySwapchainInfoKHR -> Int
sizeOf ~VkBindImageMemorySwapchainInfoKHR
_ = (Int
32)
{-# LINE 1094 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE sizeOf #-}
alignment :: VkBindImageMemorySwapchainInfoKHR -> Int
alignment ~VkBindImageMemorySwapchainInfoKHR
_
= Int
8
{-# LINE 1098 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE alignment #-}
peek :: Ptr VkBindImageMemorySwapchainInfoKHR
-> IO VkBindImageMemorySwapchainInfoKHR
peek = Ptr VkBindImageMemorySwapchainInfoKHR
-> IO VkBindImageMemorySwapchainInfoKHR
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> IO a
peekVkData#
{-# INLINE peek #-}
poke :: Ptr VkBindImageMemorySwapchainInfoKHR
-> VkBindImageMemorySwapchainInfoKHR -> IO ()
poke = Ptr VkBindImageMemorySwapchainInfoKHR
-> VkBindImageMemorySwapchainInfoKHR -> IO ()
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> a -> IO ()
pokeVkData#
{-# INLINE poke #-}
instance VulkanMarshalPrim VkBindImageMemorySwapchainInfoKHR where
unsafeAddr :: VkBindImageMemorySwapchainInfoKHR -> Addr#
unsafeAddr (VkBindImageMemorySwapchainInfoKHR# Addr#
a ByteArray#
_) = Addr#
a
{-# INLINE unsafeAddr #-}
unsafeByteArray :: VkBindImageMemorySwapchainInfoKHR -> ByteArray#
unsafeByteArray (VkBindImageMemorySwapchainInfoKHR# Addr#
_ ByteArray#
b) = ByteArray#
b
{-# INLINE unsafeByteArray #-}
unsafeFromByteArrayOffset :: Int# -> ByteArray# -> VkBindImageMemorySwapchainInfoKHR
unsafeFromByteArrayOffset Int#
off ByteArray#
b
= Addr# -> ByteArray# -> VkBindImageMemorySwapchainInfoKHR
VkBindImageMemorySwapchainInfoKHR#
(Addr# -> Int# -> Addr#
plusAddr# (ByteArray# -> Addr#
byteArrayContents# ByteArray#
b) Int#
off)
ByteArray#
b
{-# INLINE unsafeFromByteArrayOffset #-}
instance VulkanMarshal VkBindImageMemorySwapchainInfoKHR where
type StructFields VkBindImageMemorySwapchainInfoKHR =
'["sType", "pNext", "swapchain", "imageIndex"]
type CUnionType VkBindImageMemorySwapchainInfoKHR = 'False
type ReturnedOnly VkBindImageMemorySwapchainInfoKHR = 'False
type StructExtends VkBindImageMemorySwapchainInfoKHR =
'[VkBindImageMemoryInfo]
instance {-# OVERLAPPING #-}
HasField "sType" VkBindImageMemorySwapchainInfoKHR where
type FieldType "sType" VkBindImageMemorySwapchainInfoKHR =
VkStructureType
type FieldOptional "sType" VkBindImageMemorySwapchainInfoKHR =
'False
type FieldOffset "sType" VkBindImageMemorySwapchainInfoKHR =
(0)
{-# LINE 1137 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "sType" VkBindImageMemorySwapchainInfoKHR =
'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
0)
{-# LINE 1146 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "sType" VkBindImageMemorySwapchainInfoKHR where
{-# NOINLINE getField #-}
getField :: VkBindImageMemorySwapchainInfoKHR
-> FieldType "sType" VkBindImageMemorySwapchainInfoKHR
getField VkBindImageMemorySwapchainInfoKHR
x
= IO VkStructureType -> VkStructureType
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemorySwapchainInfoKHR -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemorySwapchainInfoKHR
-> Ptr VkBindImageMemorySwapchainInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemorySwapchainInfoKHR
x) (Int
0))
{-# LINE 1153 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemorySwapchainInfoKHR
-> IO (FieldType "sType" VkBindImageMemorySwapchainInfoKHR)
readField Ptr VkBindImageMemorySwapchainInfoKHR
p
= Ptr VkBindImageMemorySwapchainInfoKHR -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemorySwapchainInfoKHR
p (Int
0)
{-# LINE 1157 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "sType" VkBindImageMemorySwapchainInfoKHR where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemorySwapchainInfoKHR
-> FieldType "sType" VkBindImageMemorySwapchainInfoKHR -> IO ()
writeField Ptr VkBindImageMemorySwapchainInfoKHR
p
= Ptr VkBindImageMemorySwapchainInfoKHR
-> Int -> VkStructureType -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemorySwapchainInfoKHR
p (Int
0)
{-# LINE 1163 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pNext" VkBindImageMemorySwapchainInfoKHR where
type FieldType "pNext" VkBindImageMemorySwapchainInfoKHR = Ptr Void
type FieldOptional "pNext" VkBindImageMemorySwapchainInfoKHR =
'False
type FieldOffset "pNext" VkBindImageMemorySwapchainInfoKHR =
(8)
{-# LINE 1171 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pNext" VkBindImageMemorySwapchainInfoKHR =
'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
8)
{-# LINE 1180 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pNext" VkBindImageMemorySwapchainInfoKHR where
{-# NOINLINE getField #-}
getField :: VkBindImageMemorySwapchainInfoKHR
-> FieldType "pNext" VkBindImageMemorySwapchainInfoKHR
getField VkBindImageMemorySwapchainInfoKHR
x
= IO (Ptr Void) -> Ptr Void
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemorySwapchainInfoKHR -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemorySwapchainInfoKHR
-> Ptr VkBindImageMemorySwapchainInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemorySwapchainInfoKHR
x) (Int
8))
{-# LINE 1187 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemorySwapchainInfoKHR
-> IO (FieldType "pNext" VkBindImageMemorySwapchainInfoKHR)
readField Ptr VkBindImageMemorySwapchainInfoKHR
p
= Ptr VkBindImageMemorySwapchainInfoKHR -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemorySwapchainInfoKHR
p (Int
8)
{-# LINE 1191 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pNext" VkBindImageMemorySwapchainInfoKHR where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemorySwapchainInfoKHR
-> FieldType "pNext" VkBindImageMemorySwapchainInfoKHR -> IO ()
writeField Ptr VkBindImageMemorySwapchainInfoKHR
p
= Ptr VkBindImageMemorySwapchainInfoKHR -> Int -> Ptr Void -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemorySwapchainInfoKHR
p (Int
8)
{-# LINE 1197 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "swapchain" VkBindImageMemorySwapchainInfoKHR where
type FieldType "swapchain" VkBindImageMemorySwapchainInfoKHR =
VkSwapchainKHR
type FieldOptional "swapchain" VkBindImageMemorySwapchainInfoKHR =
'False
type FieldOffset "swapchain" VkBindImageMemorySwapchainInfoKHR =
(16)
{-# LINE 1206 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "swapchain" VkBindImageMemorySwapchainInfoKHR =
'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
16)
{-# LINE 1215 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "swapchain" VkBindImageMemorySwapchainInfoKHR where
{-# NOINLINE getField #-}
getField :: VkBindImageMemorySwapchainInfoKHR
-> FieldType "swapchain" VkBindImageMemorySwapchainInfoKHR
getField VkBindImageMemorySwapchainInfoKHR
x
= IO VkSwapchainKHR -> VkSwapchainKHR
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemorySwapchainInfoKHR -> Int -> IO VkSwapchainKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemorySwapchainInfoKHR
-> Ptr VkBindImageMemorySwapchainInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemorySwapchainInfoKHR
x) (Int
16))
{-# LINE 1222 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemorySwapchainInfoKHR
-> IO (FieldType "swapchain" VkBindImageMemorySwapchainInfoKHR)
readField Ptr VkBindImageMemorySwapchainInfoKHR
p
= Ptr VkBindImageMemorySwapchainInfoKHR -> Int -> IO VkSwapchainKHR
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemorySwapchainInfoKHR
p (Int
16)
{-# LINE 1226 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "swapchain" VkBindImageMemorySwapchainInfoKHR where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemorySwapchainInfoKHR
-> FieldType "swapchain" VkBindImageMemorySwapchainInfoKHR -> IO ()
writeField Ptr VkBindImageMemorySwapchainInfoKHR
p
= Ptr VkBindImageMemorySwapchainInfoKHR
-> Int -> VkSwapchainKHR -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemorySwapchainInfoKHR
p (Int
16)
{-# LINE 1232 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "imageIndex" VkBindImageMemorySwapchainInfoKHR where
type FieldType "imageIndex" VkBindImageMemorySwapchainInfoKHR =
Word32
type FieldOptional "imageIndex" VkBindImageMemorySwapchainInfoKHR =
'False
type FieldOffset "imageIndex" VkBindImageMemorySwapchainInfoKHR =
(24)
{-# LINE 1241 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "imageIndex" VkBindImageMemorySwapchainInfoKHR =
'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
24)
{-# LINE 1250 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "imageIndex" VkBindImageMemorySwapchainInfoKHR where
{-# NOINLINE getField #-}
getField :: VkBindImageMemorySwapchainInfoKHR
-> FieldType "imageIndex" VkBindImageMemorySwapchainInfoKHR
getField VkBindImageMemorySwapchainInfoKHR
x
= IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImageMemorySwapchainInfoKHR -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImageMemorySwapchainInfoKHR
-> Ptr VkBindImageMemorySwapchainInfoKHR
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImageMemorySwapchainInfoKHR
x) (Int
24))
{-# LINE 1257 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImageMemorySwapchainInfoKHR
-> IO (FieldType "imageIndex" VkBindImageMemorySwapchainInfoKHR)
readField Ptr VkBindImageMemorySwapchainInfoKHR
p
= Ptr VkBindImageMemorySwapchainInfoKHR -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImageMemorySwapchainInfoKHR
p (Int
24)
{-# LINE 1261 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "imageIndex" VkBindImageMemorySwapchainInfoKHR where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImageMemorySwapchainInfoKHR
-> FieldType "imageIndex" VkBindImageMemorySwapchainInfoKHR
-> IO ()
writeField Ptr VkBindImageMemorySwapchainInfoKHR
p
= Ptr VkBindImageMemorySwapchainInfoKHR -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImageMemorySwapchainInfoKHR
p (Int
24)
{-# LINE 1267 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance Show VkBindImageMemorySwapchainInfoKHR where
showsPrec :: Int -> VkBindImageMemorySwapchainInfoKHR -> ShowS
showsPrec Int
d VkBindImageMemorySwapchainInfoKHR
x
= String -> ShowS
showString String
"VkBindImageMemorySwapchainInfoKHR {" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"sType = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkStructureType -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemorySwapchainInfoKHR
-> FieldType "sType" VkBindImageMemorySwapchainInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"sType" VkBindImageMemorySwapchainInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pNext = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr Void -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemorySwapchainInfoKHR
-> FieldType "pNext" VkBindImageMemorySwapchainInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pNext" VkBindImageMemorySwapchainInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"swapchain = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkSwapchainKHR -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemorySwapchainInfoKHR
-> FieldType "swapchain" VkBindImageMemorySwapchainInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"swapchain" VkBindImageMemorySwapchainInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"imageIndex = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImageMemorySwapchainInfoKHR
-> FieldType "imageIndex" VkBindImageMemorySwapchainInfoKHR
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"imageIndex" VkBindImageMemorySwapchainInfoKHR
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
'}'
data VkBindImagePlaneMemoryInfo = VkBindImagePlaneMemoryInfo# Addr#
ByteArray#
instance Eq VkBindImagePlaneMemoryInfo where
(VkBindImagePlaneMemoryInfo# Addr#
a ByteArray#
_) == :: VkBindImagePlaneMemoryInfo -> VkBindImagePlaneMemoryInfo -> Bool
==
x :: VkBindImagePlaneMemoryInfo
x@(VkBindImagePlaneMemoryInfo# Addr#
b ByteArray#
_)
= Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
== Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindImagePlaneMemoryInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindImagePlaneMemoryInfo
x) Addr#
a Addr#
b
{-# INLINE (==) #-}
instance Ord VkBindImagePlaneMemoryInfo where
(VkBindImagePlaneMemoryInfo# Addr#
a ByteArray#
_) compare :: VkBindImagePlaneMemoryInfo
-> VkBindImagePlaneMemoryInfo -> Ordering
`compare`
x :: VkBindImagePlaneMemoryInfo
x@(VkBindImagePlaneMemoryInfo# Addr#
b ByteArray#
_) = Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindImagePlaneMemoryInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindImagePlaneMemoryInfo
x) Addr#
a Addr#
b
{-# INLINE compare #-}
instance Storable VkBindImagePlaneMemoryInfo where
sizeOf :: VkBindImagePlaneMemoryInfo -> Int
sizeOf ~VkBindImagePlaneMemoryInfo
_ = (Int
24)
{-# LINE 1308 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE sizeOf #-}
alignment :: VkBindImagePlaneMemoryInfo -> Int
alignment ~VkBindImagePlaneMemoryInfo
_ = Int
8
{-# LINE 1311 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE alignment #-}
peek :: Ptr VkBindImagePlaneMemoryInfo -> IO VkBindImagePlaneMemoryInfo
peek = Ptr VkBindImagePlaneMemoryInfo -> IO VkBindImagePlaneMemoryInfo
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> IO a
peekVkData#
{-# INLINE peek #-}
poke :: Ptr VkBindImagePlaneMemoryInfo
-> VkBindImagePlaneMemoryInfo -> IO ()
poke = Ptr VkBindImagePlaneMemoryInfo
-> VkBindImagePlaneMemoryInfo -> IO ()
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> a -> IO ()
pokeVkData#
{-# INLINE poke #-}
instance VulkanMarshalPrim VkBindImagePlaneMemoryInfo where
unsafeAddr :: VkBindImagePlaneMemoryInfo -> Addr#
unsafeAddr (VkBindImagePlaneMemoryInfo# Addr#
a ByteArray#
_) = Addr#
a
{-# INLINE unsafeAddr #-}
unsafeByteArray :: VkBindImagePlaneMemoryInfo -> ByteArray#
unsafeByteArray (VkBindImagePlaneMemoryInfo# Addr#
_ ByteArray#
b) = ByteArray#
b
{-# INLINE unsafeByteArray #-}
unsafeFromByteArrayOffset :: Int# -> ByteArray# -> VkBindImagePlaneMemoryInfo
unsafeFromByteArrayOffset Int#
off ByteArray#
b
= Addr# -> ByteArray# -> VkBindImagePlaneMemoryInfo
VkBindImagePlaneMemoryInfo#
(Addr# -> Int# -> Addr#
plusAddr# (ByteArray# -> Addr#
byteArrayContents# ByteArray#
b) Int#
off)
ByteArray#
b
{-# INLINE unsafeFromByteArrayOffset #-}
instance VulkanMarshal VkBindImagePlaneMemoryInfo where
type StructFields VkBindImagePlaneMemoryInfo =
'["sType", "pNext", "planeAspect"]
type CUnionType VkBindImagePlaneMemoryInfo = 'False
type ReturnedOnly VkBindImagePlaneMemoryInfo = 'False
type StructExtends VkBindImagePlaneMemoryInfo =
'[VkBindImageMemoryInfo]
instance {-# OVERLAPPING #-}
HasField "sType" VkBindImagePlaneMemoryInfo where
type FieldType "sType" VkBindImagePlaneMemoryInfo = VkStructureType
type FieldOptional "sType" VkBindImagePlaneMemoryInfo = 'False
type FieldOffset "sType" VkBindImagePlaneMemoryInfo =
(0)
{-# LINE 1348 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "sType" VkBindImagePlaneMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
0)
{-# LINE 1356 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "sType" VkBindImagePlaneMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindImagePlaneMemoryInfo
-> FieldType "sType" VkBindImagePlaneMemoryInfo
getField VkBindImagePlaneMemoryInfo
x
= IO VkStructureType -> VkStructureType
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImagePlaneMemoryInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImagePlaneMemoryInfo -> Ptr VkBindImagePlaneMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImagePlaneMemoryInfo
x) (Int
0))
{-# LINE 1363 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImagePlaneMemoryInfo
-> IO (FieldType "sType" VkBindImagePlaneMemoryInfo)
readField Ptr VkBindImagePlaneMemoryInfo
p
= Ptr VkBindImagePlaneMemoryInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImagePlaneMemoryInfo
p (Int
0)
{-# LINE 1367 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "sType" VkBindImagePlaneMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImagePlaneMemoryInfo
-> FieldType "sType" VkBindImagePlaneMemoryInfo -> IO ()
writeField Ptr VkBindImagePlaneMemoryInfo
p
= Ptr VkBindImagePlaneMemoryInfo -> Int -> VkStructureType -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImagePlaneMemoryInfo
p (Int
0)
{-# LINE 1373 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pNext" VkBindImagePlaneMemoryInfo where
type FieldType "pNext" VkBindImagePlaneMemoryInfo = Ptr Void
type FieldOptional "pNext" VkBindImagePlaneMemoryInfo = 'False
type FieldOffset "pNext" VkBindImagePlaneMemoryInfo =
(8)
{-# LINE 1380 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pNext" VkBindImagePlaneMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
8)
{-# LINE 1388 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pNext" VkBindImagePlaneMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindImagePlaneMemoryInfo
-> FieldType "pNext" VkBindImagePlaneMemoryInfo
getField VkBindImagePlaneMemoryInfo
x
= IO (Ptr Void) -> Ptr Void
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImagePlaneMemoryInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImagePlaneMemoryInfo -> Ptr VkBindImagePlaneMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImagePlaneMemoryInfo
x) (Int
8))
{-# LINE 1395 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImagePlaneMemoryInfo
-> IO (FieldType "pNext" VkBindImagePlaneMemoryInfo)
readField Ptr VkBindImagePlaneMemoryInfo
p
= Ptr VkBindImagePlaneMemoryInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImagePlaneMemoryInfo
p (Int
8)
{-# LINE 1399 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pNext" VkBindImagePlaneMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImagePlaneMemoryInfo
-> FieldType "pNext" VkBindImagePlaneMemoryInfo -> IO ()
writeField Ptr VkBindImagePlaneMemoryInfo
p
= Ptr VkBindImagePlaneMemoryInfo -> Int -> Ptr Void -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImagePlaneMemoryInfo
p (Int
8)
{-# LINE 1405 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "planeAspect" VkBindImagePlaneMemoryInfo where
type FieldType "planeAspect" VkBindImagePlaneMemoryInfo =
VkImageAspectFlagBits
type FieldOptional "planeAspect" VkBindImagePlaneMemoryInfo =
'False
type FieldOffset "planeAspect" VkBindImagePlaneMemoryInfo =
(16)
{-# LINE 1414 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "planeAspect" VkBindImagePlaneMemoryInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
16)
{-# LINE 1422 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "planeAspect" VkBindImagePlaneMemoryInfo where
{-# NOINLINE getField #-}
getField :: VkBindImagePlaneMemoryInfo
-> FieldType "planeAspect" VkBindImagePlaneMemoryInfo
getField VkBindImagePlaneMemoryInfo
x
= IO VkImageAspectFlagBits -> VkImageAspectFlagBits
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindImagePlaneMemoryInfo -> Int -> IO VkImageAspectFlagBits
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindImagePlaneMemoryInfo -> Ptr VkBindImagePlaneMemoryInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindImagePlaneMemoryInfo
x) (Int
16))
{-# LINE 1429 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindImagePlaneMemoryInfo
-> IO (FieldType "planeAspect" VkBindImagePlaneMemoryInfo)
readField Ptr VkBindImagePlaneMemoryInfo
p
= Ptr VkBindImagePlaneMemoryInfo -> Int -> IO VkImageAspectFlagBits
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindImagePlaneMemoryInfo
p (Int
16)
{-# LINE 1433 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "planeAspect" VkBindImagePlaneMemoryInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindImagePlaneMemoryInfo
-> FieldType "planeAspect" VkBindImagePlaneMemoryInfo -> IO ()
writeField Ptr VkBindImagePlaneMemoryInfo
p
= Ptr VkBindImagePlaneMemoryInfo
-> Int -> VkImageAspectFlagBits -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindImagePlaneMemoryInfo
p (Int
16)
{-# LINE 1439 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance Show VkBindImagePlaneMemoryInfo where
showsPrec :: Int -> VkBindImagePlaneMemoryInfo -> ShowS
showsPrec Int
d VkBindImagePlaneMemoryInfo
x
= String -> ShowS
showString String
"VkBindImagePlaneMemoryInfo {" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"sType = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkStructureType -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImagePlaneMemoryInfo
-> FieldType "sType" VkBindImagePlaneMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"sType" VkBindImagePlaneMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pNext = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr Void -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImagePlaneMemoryInfo
-> FieldType "pNext" VkBindImagePlaneMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pNext" VkBindImagePlaneMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"planeAspect = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkImageAspectFlagBits -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindImagePlaneMemoryInfo
-> FieldType "planeAspect" VkBindImagePlaneMemoryInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"planeAspect" VkBindImagePlaneMemoryInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
'}'
type VkBindImagePlaneMemoryInfoKHR = VkBindImagePlaneMemoryInfo
data VkBindSparseInfo = VkBindSparseInfo# Addr# ByteArray#
instance Eq VkBindSparseInfo where
(VkBindSparseInfo# Addr#
a ByteArray#
_) == :: VkBindSparseInfo -> VkBindSparseInfo -> Bool
== x :: VkBindSparseInfo
x@(VkBindSparseInfo# Addr#
b ByteArray#
_)
= Ordering
EQ Ordering -> Ordering -> Bool
forall a. Eq a => a -> a -> Bool
== Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindSparseInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindSparseInfo
x) Addr#
a Addr#
b
{-# INLINE (==) #-}
instance Ord VkBindSparseInfo where
(VkBindSparseInfo# Addr#
a ByteArray#
_) compare :: VkBindSparseInfo -> VkBindSparseInfo -> Ordering
`compare` x :: VkBindSparseInfo
x@(VkBindSparseInfo# Addr#
b ByteArray#
_)
= Int -> Addr# -> Addr# -> Ordering
cmpBytes# (VkBindSparseInfo -> Int
forall a. Storable a => a -> Int
sizeOf VkBindSparseInfo
x) Addr#
a Addr#
b
{-# INLINE compare #-}
instance Storable VkBindSparseInfo where
sizeOf :: VkBindSparseInfo -> Int
sizeOf ~VkBindSparseInfo
_ = (Int
96)
{-# LINE 1487 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE sizeOf #-}
alignment :: VkBindSparseInfo -> Int
alignment ~VkBindSparseInfo
_ = Int
8
{-# LINE 1490 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE alignment #-}
peek :: Ptr VkBindSparseInfo -> IO VkBindSparseInfo
peek = Ptr VkBindSparseInfo -> IO VkBindSparseInfo
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> IO a
peekVkData#
{-# INLINE peek #-}
poke :: Ptr VkBindSparseInfo -> VkBindSparseInfo -> IO ()
poke = Ptr VkBindSparseInfo -> VkBindSparseInfo -> IO ()
forall a. (Storable a, VulkanMarshalPrim a) => Ptr a -> a -> IO ()
pokeVkData#
{-# INLINE poke #-}
instance VulkanMarshalPrim VkBindSparseInfo where
unsafeAddr :: VkBindSparseInfo -> Addr#
unsafeAddr (VkBindSparseInfo# Addr#
a ByteArray#
_) = Addr#
a
{-# INLINE unsafeAddr #-}
unsafeByteArray :: VkBindSparseInfo -> ByteArray#
unsafeByteArray (VkBindSparseInfo# Addr#
_ ByteArray#
b) = ByteArray#
b
{-# INLINE unsafeByteArray #-}
unsafeFromByteArrayOffset :: Int# -> ByteArray# -> VkBindSparseInfo
unsafeFromByteArrayOffset Int#
off ByteArray#
b
= Addr# -> ByteArray# -> VkBindSparseInfo
VkBindSparseInfo# (Addr# -> Int# -> Addr#
plusAddr# (ByteArray# -> Addr#
byteArrayContents# ByteArray#
b) Int#
off) ByteArray#
b
{-# INLINE unsafeFromByteArrayOffset #-}
instance VulkanMarshal VkBindSparseInfo where
type StructFields VkBindSparseInfo =
'["sType", "pNext", "waitSemaphoreCount", "pWaitSemaphores",
"bufferBindCount", "pBufferBinds", "imageOpaqueBindCount",
"pImageOpaqueBinds", "imageBindCount", "pImageBinds",
"signalSemaphoreCount", "pSignalSemaphores"]
type CUnionType VkBindSparseInfo = 'False
type ReturnedOnly VkBindSparseInfo = 'False
type StructExtends VkBindSparseInfo = '[]
instance {-# OVERLAPPING #-} HasField "sType" VkBindSparseInfo
where
type FieldType "sType" VkBindSparseInfo = VkStructureType
type FieldOptional "sType" VkBindSparseInfo = 'False
type FieldOffset "sType" VkBindSparseInfo =
(0)
{-# LINE 1527 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "sType" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
0)
{-# LINE 1534 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-} CanReadField "sType" VkBindSparseInfo
where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo -> FieldType "sType" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO VkStructureType -> VkStructureType
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
0))
{-# LINE 1541 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo -> IO (FieldType "sType" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> IO VkStructureType
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
0)
{-# LINE 1545 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-} CanWriteField "sType" VkBindSparseInfo
where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo -> FieldType "sType" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> VkStructureType -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
0)
{-# LINE 1551 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-} HasField "pNext" VkBindSparseInfo
where
type FieldType "pNext" VkBindSparseInfo = Ptr Void
type FieldOptional "pNext" VkBindSparseInfo = 'False
type FieldOffset "pNext" VkBindSparseInfo =
(8)
{-# LINE 1558 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pNext" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
8)
{-# LINE 1565 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-} CanReadField "pNext" VkBindSparseInfo
where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo -> FieldType "pNext" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO (Ptr Void) -> Ptr Void
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
8))
{-# LINE 1572 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo -> IO (FieldType "pNext" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> IO (Ptr Void)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
8)
{-# LINE 1576 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-} CanWriteField "pNext" VkBindSparseInfo
where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo -> FieldType "pNext" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> Ptr Void -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
8)
{-# LINE 1582 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "waitSemaphoreCount" VkBindSparseInfo where
type FieldType "waitSemaphoreCount" VkBindSparseInfo = Word32
type FieldOptional "waitSemaphoreCount" VkBindSparseInfo = 'True
type FieldOffset "waitSemaphoreCount" VkBindSparseInfo =
(16)
{-# LINE 1589 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "waitSemaphoreCount" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
True
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
16)
{-# LINE 1597 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "waitSemaphoreCount" VkBindSparseInfo where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo -> FieldType "waitSemaphoreCount" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
16))
{-# LINE 1604 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo
-> IO (FieldType "waitSemaphoreCount" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
16)
{-# LINE 1608 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "waitSemaphoreCount" VkBindSparseInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo
-> FieldType "waitSemaphoreCount" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
16)
{-# LINE 1614 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pWaitSemaphores" VkBindSparseInfo where
type FieldType "pWaitSemaphores" VkBindSparseInfo = Ptr VkSemaphore
type FieldOptional "pWaitSemaphores" VkBindSparseInfo = 'False
type FieldOffset "pWaitSemaphores" VkBindSparseInfo =
(24)
{-# LINE 1621 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pWaitSemaphores" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
24)
{-# LINE 1629 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pWaitSemaphores" VkBindSparseInfo where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo -> FieldType "pWaitSemaphores" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO (Ptr VkSemaphore) -> Ptr VkSemaphore
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo -> Int -> IO (Ptr VkSemaphore)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
24))
{-# LINE 1636 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo
-> IO (FieldType "pWaitSemaphores" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> IO (Ptr VkSemaphore)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
24)
{-# LINE 1640 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pWaitSemaphores" VkBindSparseInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo
-> FieldType "pWaitSemaphores" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> Ptr VkSemaphore -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
24)
{-# LINE 1646 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "bufferBindCount" VkBindSparseInfo where
type FieldType "bufferBindCount" VkBindSparseInfo = Word32
type FieldOptional "bufferBindCount" VkBindSparseInfo = 'True
type FieldOffset "bufferBindCount" VkBindSparseInfo =
(32)
{-# LINE 1653 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "bufferBindCount" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
True
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
32)
{-# LINE 1661 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "bufferBindCount" VkBindSparseInfo where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo -> FieldType "bufferBindCount" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
32))
{-# LINE 1668 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo
-> IO (FieldType "bufferBindCount" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
32)
{-# LINE 1672 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "bufferBindCount" VkBindSparseInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo
-> FieldType "bufferBindCount" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
32)
{-# LINE 1678 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pBufferBinds" VkBindSparseInfo where
type FieldType "pBufferBinds" VkBindSparseInfo =
Ptr VkSparseBufferMemoryBindInfo
type FieldOptional "pBufferBinds" VkBindSparseInfo = 'False
type FieldOffset "pBufferBinds" VkBindSparseInfo =
(40)
{-# LINE 1686 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pBufferBinds" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
40)
{-# LINE 1693 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pBufferBinds" VkBindSparseInfo where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo -> FieldType "pBufferBinds" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO (Ptr VkSparseBufferMemoryBindInfo)
-> Ptr VkSparseBufferMemoryBindInfo
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo
-> Int -> IO (Ptr VkSparseBufferMemoryBindInfo)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
40))
{-# LINE 1700 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo
-> IO (FieldType "pBufferBinds" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo
-> Int -> IO (Ptr VkSparseBufferMemoryBindInfo)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
40)
{-# LINE 1704 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pBufferBinds" VkBindSparseInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo
-> FieldType "pBufferBinds" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo
-> Int -> Ptr VkSparseBufferMemoryBindInfo -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
40)
{-# LINE 1710 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "imageOpaqueBindCount" VkBindSparseInfo where
type FieldType "imageOpaqueBindCount" VkBindSparseInfo = Word32
type FieldOptional "imageOpaqueBindCount" VkBindSparseInfo = 'True
type FieldOffset "imageOpaqueBindCount" VkBindSparseInfo =
(48)
{-# LINE 1717 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "imageOpaqueBindCount" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
True
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
48)
{-# LINE 1725 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "imageOpaqueBindCount" VkBindSparseInfo where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo
-> FieldType "imageOpaqueBindCount" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
48))
{-# LINE 1732 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo
-> IO (FieldType "imageOpaqueBindCount" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
48)
{-# LINE 1736 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "imageOpaqueBindCount" VkBindSparseInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo
-> FieldType "imageOpaqueBindCount" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
48)
{-# LINE 1742 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pImageOpaqueBinds" VkBindSparseInfo where
type FieldType "pImageOpaqueBinds" VkBindSparseInfo =
Ptr VkSparseImageOpaqueMemoryBindInfo
type FieldOptional "pImageOpaqueBinds" VkBindSparseInfo = 'False
type FieldOffset "pImageOpaqueBinds" VkBindSparseInfo =
(56)
{-# LINE 1750 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pImageOpaqueBinds" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
56)
{-# LINE 1758 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pImageOpaqueBinds" VkBindSparseInfo where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo -> FieldType "pImageOpaqueBinds" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO (Ptr VkSparseImageOpaqueMemoryBindInfo)
-> Ptr VkSparseImageOpaqueMemoryBindInfo
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo
-> Int -> IO (Ptr VkSparseImageOpaqueMemoryBindInfo)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
56))
{-# LINE 1765 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo
-> IO (FieldType "pImageOpaqueBinds" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo
-> Int -> IO (Ptr VkSparseImageOpaqueMemoryBindInfo)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
56)
{-# LINE 1769 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pImageOpaqueBinds" VkBindSparseInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo
-> FieldType "pImageOpaqueBinds" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo
-> Int -> Ptr VkSparseImageOpaqueMemoryBindInfo -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
56)
{-# LINE 1775 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "imageBindCount" VkBindSparseInfo where
type FieldType "imageBindCount" VkBindSparseInfo = Word32
type FieldOptional "imageBindCount" VkBindSparseInfo = 'True
type FieldOffset "imageBindCount" VkBindSparseInfo =
(64)
{-# LINE 1782 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "imageBindCount" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
True
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
64)
{-# LINE 1790 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "imageBindCount" VkBindSparseInfo where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo -> FieldType "imageBindCount" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
64))
{-# LINE 1797 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo
-> IO (FieldType "imageBindCount" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
64)
{-# LINE 1801 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "imageBindCount" VkBindSparseInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo
-> FieldType "imageBindCount" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
64)
{-# LINE 1807 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pImageBinds" VkBindSparseInfo where
type FieldType "pImageBinds" VkBindSparseInfo =
Ptr VkSparseImageMemoryBindInfo
type FieldOptional "pImageBinds" VkBindSparseInfo = 'False
type FieldOffset "pImageBinds" VkBindSparseInfo =
(72)
{-# LINE 1815 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pImageBinds" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset = (Int
72)
{-# LINE 1822 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pImageBinds" VkBindSparseInfo where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo -> FieldType "pImageBinds" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO (Ptr VkSparseImageMemoryBindInfo)
-> Ptr VkSparseImageMemoryBindInfo
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo -> Int -> IO (Ptr VkSparseImageMemoryBindInfo)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
72))
{-# LINE 1829 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo
-> IO (FieldType "pImageBinds" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> IO (Ptr VkSparseImageMemoryBindInfo)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
72)
{-# LINE 1833 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pImageBinds" VkBindSparseInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo
-> FieldType "pImageBinds" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo
-> Int -> Ptr VkSparseImageMemoryBindInfo -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
72)
{-# LINE 1839 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "signalSemaphoreCount" VkBindSparseInfo where
type FieldType "signalSemaphoreCount" VkBindSparseInfo = Word32
type FieldOptional "signalSemaphoreCount" VkBindSparseInfo = 'True
type FieldOffset "signalSemaphoreCount" VkBindSparseInfo =
(80)
{-# LINE 1846 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "signalSemaphoreCount" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
True
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
80)
{-# LINE 1854 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "signalSemaphoreCount" VkBindSparseInfo where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo
-> FieldType "signalSemaphoreCount" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO Word32 -> Word32
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
80))
{-# LINE 1861 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo
-> IO (FieldType "signalSemaphoreCount" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> IO Word32
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
80)
{-# LINE 1865 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "signalSemaphoreCount" VkBindSparseInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo
-> FieldType "signalSemaphoreCount" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> Word32 -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
80)
{-# LINE 1871 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
HasField "pSignalSemaphores" VkBindSparseInfo where
type FieldType "pSignalSemaphores" VkBindSparseInfo =
Ptr VkSemaphore
type FieldOptional "pSignalSemaphores" VkBindSparseInfo = 'False
type FieldOffset "pSignalSemaphores" VkBindSparseInfo =
(88)
{-# LINE 1879 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
type FieldIsArray "pSignalSemaphores" VkBindSparseInfo = 'False
{-# INLINE fieldOptional #-}
fieldOptional :: Bool
fieldOptional = Bool
False
{-# INLINE fieldOffset #-}
fieldOffset :: Int
fieldOffset
= (Int
88)
{-# LINE 1887 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanReadField "pSignalSemaphores" VkBindSparseInfo where
{-# NOINLINE getField #-}
getField :: VkBindSparseInfo -> FieldType "pSignalSemaphores" VkBindSparseInfo
getField VkBindSparseInfo
x
= IO (Ptr VkSemaphore) -> Ptr VkSemaphore
forall a. IO a -> a
unsafeDupablePerformIO
(Ptr VkBindSparseInfo -> Int -> IO (Ptr VkSemaphore)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff (VkBindSparseInfo -> Ptr VkBindSparseInfo
forall a. VulkanMarshal a => a -> Ptr a
unsafePtr VkBindSparseInfo
x) (Int
88))
{-# LINE 1894 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
{-# INLINE readField #-}
readField :: Ptr VkBindSparseInfo
-> IO (FieldType "pSignalSemaphores" VkBindSparseInfo)
readField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> IO (Ptr VkSemaphore)
forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr VkBindSparseInfo
p (Int
88)
{-# LINE 1898 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance {-# OVERLAPPING #-}
CanWriteField "pSignalSemaphores" VkBindSparseInfo where
{-# INLINE writeField #-}
writeField :: Ptr VkBindSparseInfo
-> FieldType "pSignalSemaphores" VkBindSparseInfo -> IO ()
writeField Ptr VkBindSparseInfo
p
= Ptr VkBindSparseInfo -> Int -> Ptr VkSemaphore -> IO ()
forall a b. Storable a => Ptr b -> Int -> a -> IO ()
pokeByteOff Ptr VkBindSparseInfo
p (Int
88)
{-# LINE 1904 "src-gen/Graphics/Vulkan/Types/Struct/Bind.hsc" #-}
instance Show VkBindSparseInfo where
showsPrec :: Int -> VkBindSparseInfo -> ShowS
showsPrec Int
d VkBindSparseInfo
x
= String -> ShowS
showString String
"VkBindSparseInfo {" ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"sType = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> VkStructureType -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindSparseInfo -> FieldType "sType" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"sType" VkBindSparseInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pNext = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr Void -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindSparseInfo -> FieldType "pNext" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pNext" VkBindSparseInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"waitSemaphoreCount = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindSparseInfo -> FieldType "waitSemaphoreCount" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"waitSemaphoreCount" VkBindSparseInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pWaitSemaphores = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr VkSemaphore -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindSparseInfo -> FieldType "pWaitSemaphores" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pWaitSemaphores" VkBindSparseInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"bufferBindCount = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindSparseInfo -> FieldType "bufferBindCount" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"bufferBindCount" VkBindSparseInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pBufferBinds = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr VkSparseBufferMemoryBindInfo -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindSparseInfo -> FieldType "pBufferBinds" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pBufferBinds" VkBindSparseInfo
x) ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"imageOpaqueBindCount = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d (VkBindSparseInfo
-> FieldType "imageOpaqueBindCount" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"imageOpaqueBindCount" VkBindSparseInfo
x)
ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pImageOpaqueBinds = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr VkSparseImageOpaqueMemoryBindInfo -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d
(VkBindSparseInfo -> FieldType "pImageOpaqueBinds" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pImageOpaqueBinds" VkBindSparseInfo
x)
ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"imageBindCount = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d
(VkBindSparseInfo -> FieldType "imageBindCount" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"imageBindCount" VkBindSparseInfo
x)
ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
"pImageBinds = " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr VkSparseImageMemoryBindInfo -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d
(VkBindSparseInfo -> FieldType "pImageBinds" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField @"pImageBinds" VkBindSparseInfo
x)
ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString
String
"signalSemaphoreCount = "
ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Word32 -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d
(VkBindSparseInfo
-> FieldType "signalSemaphoreCount" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField
@"signalSemaphoreCount"
VkBindSparseInfo
x)
ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString String
", " ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
String -> ShowS
showString
String
"pSignalSemaphores = "
ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
.
Int -> Ptr VkSemaphore -> ShowS
forall a. Show a => Int -> a -> ShowS
showsPrec Int
d
(VkBindSparseInfo -> FieldType "pSignalSemaphores" VkBindSparseInfo
forall (fname :: Symbol) a.
CanReadField fname a =>
a -> FieldType fname a
getField
@"pSignalSemaphores"
VkBindSparseInfo
x)
ShowS -> ShowS -> ShowS
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Char -> ShowS
showChar Char
'}'