{-# language CPP #-} -- | = Name -- -- VK_EXT_device_address_binding_report - device extension -- -- == VK_EXT_device_address_binding_report -- -- [__Name String__] -- @VK_EXT_device_address_binding_report@ -- -- [__Extension Type__] -- Device extension -- -- [__Registered Extension Number__] -- 355 -- -- [__Revision__] -- 1 -- -- [__Extension and Version Dependencies__] -- -- - Requires support for Vulkan 1.0 -- -- - Requires @VK_KHR_get_physical_device_properties2@ to be enabled -- for any device-level functionality -- -- - Requires @VK_EXT_debug_utils@ to be enabled for any device-level -- functionality -- -- [__Special Uses__] -- -- - -- -- - -- -- [__Contact__] -- -- - Ralph Potter <>r_potter -- -- == Other Extension Metadata -- -- [Last Modified Date] -- 2020-11-23 -- -- [__Interactions and External Dependencies__] -- -- - This extension requires @VK_EXT_debug_utils@ -- -- [Contributors] -- -- - Ralph Potter, Samsung -- -- - Spencer Fricke, Samsung -- -- - Jan-Harald Fredriksen, ARM -- -- - Andrew Ellem, Google -- -- - Alex Walters, IMG -- -- - Jeff Bolz, NVIDIA -- -- == Description -- -- This extension enables applications to track the binding of regions of -- the GPU virtual address space, and to associate those regions with -- Vulkan objects. This extension is primarily intended to aid in crash -- postmortem, where applications may wish to map a faulting GPU address to -- a Vulkan object. -- -- For example, a page fault triggered by accessing an address located -- within a region of the GPU virtual address space that was previously -- reported as bound and then unbound may indicate a use-after-free error. -- Similarly, faults generated by accessing virtual addresses outside the -- limits of a bound region of GPU virtual address space may indicate -- indexing beyond the bounds of a resource. -- -- == New Structures -- -- - Extending -- 'Vulkan.Extensions.VK_EXT_debug_utils.DebugUtilsMessengerCallbackDataEXT': -- -- - 'DeviceAddressBindingCallbackDataEXT' -- -- - Extending -- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.PhysicalDeviceFeatures2', -- 'Vulkan.Core10.Device.DeviceCreateInfo': -- -- - 'PhysicalDeviceAddressBindingReportFeaturesEXT' -- -- == New Enums -- -- - 'DeviceAddressBindingFlagBitsEXT' -- -- - 'DeviceAddressBindingTypeEXT' -- -- == New Bitmasks -- -- - 'DeviceAddressBindingFlagsEXT' -- -- == New Enum Constants -- -- - 'EXT_DEVICE_ADDRESS_BINDING_REPORT_EXTENSION_NAME' -- -- - 'EXT_DEVICE_ADDRESS_BINDING_REPORT_SPEC_VERSION' -- -- - Extending -- 'Vulkan.Extensions.VK_EXT_debug_utils.DebugUtilsMessageTypeFlagBitsEXT': -- -- - 'Vulkan.Extensions.VK_EXT_debug_utils.DEBUG_UTILS_MESSAGE_TYPE_DEVICE_ADDRESS_BINDING_BIT_EXT' -- -- - Extending 'Vulkan.Core10.Enums.StructureType.StructureType': -- -- - 'Vulkan.Core10.Enums.StructureType.STRUCTURE_TYPE_DEVICE_ADDRESS_BINDING_CALLBACK_DATA_EXT' -- -- - 'Vulkan.Core10.Enums.StructureType.STRUCTURE_TYPE_PHYSICAL_DEVICE_ADDRESS_BINDING_REPORT_FEATURES_EXT' -- -- == Issues -- -- 1.) Should this extend VK_EXT_debug_utils or -- VK_EXT_device_memory_report? -- -- __RESOLVED__: Extend VK_EXT_debug_utils. VK_EXT_device_memory_report -- focuses on memory allocations and would not normally trigger callbacks -- in all of the situations where VK_EXT_device_address_binding_report is -- expected to. -- -- 2.) Should this extension cover all Vulkan object types, or only -- resources such as buffers and images? -- -- __RESOLVED__: The extension covers all Vulkan objects, and is not -- restricted to objects backed by VkDeviceMemory objects. -- -- 3.) Should reallocation be identified explicitly, or as a unbind\/bind -- pair? -- -- __RESOLVED__: Reallocation should be represented as an unbind\/bind -- pair. -- -- 4.) Can multiple Vulkan objects share an overlapping virtual address -- range? -- -- __RESOLVED__: Yes. This can be expected to occur due to resources -- aliasing. -- -- 5.) Can a single Vulkan object be associated with multiple virtual -- address ranges concurrently? -- -- __RESOLVED__: Yes. These should be reported via multiple calls to the -- reporting callback. -- -- 6.) Should the virtual address ranges associated with internal -- allocations such as memory pools be reported? -- -- __RESOLVED__: Virtual address ranges associated with internal -- allocations should only be reported when they become associated with a -- specific Vulkan object. In the case of internal pool allocations, a bind -- event should be reported when resources from the pool are assigned to a -- Vulkan object, and an unbind event should be reported when those -- resources are returned to the pool. Implementations should not report -- the binding or unbinding of virtual address ranges for which there are -- no related API objects visible to the application developer. -- -- 7.) Can an implementation report binding a virtual address range at -- VkImage or VkImageView creation, rather than in response to -- vkBindImageMemory? -- -- __RESOLVED__: Yes. Virtual address range binding should be reported at -- the appropriate point at which it occurs within the implementation. This -- extension does not mandate when that should occur, and applications -- should anticipate receiving callback events at any point after -- registering callbacks. -- -- 8.) Can reporting of binding\/unbinding be deferred until a resource is -- referenced by an executing command buffer? -- -- __RESOLVED__: Changes to the virtual address ranges associated with a -- Vulkan object should be reported as close as possible to where they -- occur within the implementation. If virtual address binding is deferred, -- then the the callback should also be deferred to match. -- -- 9.) Do bind\/unbind callbacks have to form matched pairs? Can a large -- region be bound, and then subregions unbound, resulting in -- fragmentation? -- -- __RESOLVED__: Splitting of virtual address regions, and unmatched -- bind\/unbind callbacks may occur. Developers should anticipate that -- sparse memory may exhibit this behaviour. -- -- 10.) The specification mandates that a callback /must/ be triggered -- whenever a GPU virtual address range associated with any Vulkan object -- is bound or unbound. Do we need queries or properties indicating which -- Vulkan objects will report binding modifications? -- -- __RESOLVED__: No. This extension is not intended to mandate how and when -- implementations bind virtual ranges to objects. Adding queries or -- properties would constrain implementations, which might otherwise vary -- how virtual address bindings occur based on usage. -- -- 11.) Should vkAllocateMemory and vkFreeMemory trigger reporting -- callbacks? -- -- __RESOLVED__: If an implementation binds a GPU virtual address range -- when vkAllocateMemory is called, then the callbacks must be triggered -- associating the virtual address range with the VkDeviceMemory object. If -- the device memory is subsequently bound to a buffer or image via -- vkBind*Memory, the callbacks should be triggered a second time, -- reporting the association between virtual address range and the -- buffer\/image. -- -- == Version History -- -- - Revision 1, 2020-09-23 (Ralph Potter) -- -- - Internal revisions -- -- == See Also -- -- 'DeviceAddressBindingCallbackDataEXT', -- 'DeviceAddressBindingFlagBitsEXT', 'DeviceAddressBindingFlagsEXT', -- 'DeviceAddressBindingTypeEXT', -- 'PhysicalDeviceAddressBindingReportFeaturesEXT' -- -- == Document Notes -- -- For more information, see the -- -- -- This page is a generated document. Fixes and changes should be made to -- the generator scripts, not directly. module Vulkan.Extensions.VK_EXT_device_address_binding_report ( PhysicalDeviceAddressBindingReportFeaturesEXT(..) , DeviceAddressBindingCallbackDataEXT(..) , DeviceAddressBindingFlagsEXT , DeviceAddressBindingFlagBitsEXT( DEVICE_ADDRESS_BINDING_INTERNAL_OBJECT_BIT_EXT , .. ) , DeviceAddressBindingTypeEXT( DEVICE_ADDRESS_BINDING_TYPE_BIND_EXT , DEVICE_ADDRESS_BINDING_TYPE_UNBIND_EXT , .. ) , EXT_DEVICE_ADDRESS_BINDING_REPORT_SPEC_VERSION , pattern EXT_DEVICE_ADDRESS_BINDING_REPORT_SPEC_VERSION , EXT_DEVICE_ADDRESS_BINDING_REPORT_EXTENSION_NAME , pattern EXT_DEVICE_ADDRESS_BINDING_REPORT_EXTENSION_NAME , DebugUtilsMessageTypeFlagBitsEXT(..) , DebugUtilsMessageTypeFlagsEXT ) where import Vulkan.Internal.Utils (enumReadPrec) import Vulkan.Internal.Utils (enumShowsPrec) import Foreign.Marshal.Alloc (allocaBytes) import Foreign.Ptr (nullPtr) import Foreign.Ptr (plusPtr) import GHC.Show (showString) import GHC.Show (showsPrec) import Numeric (showHex) import Vulkan.CStruct (FromCStruct) import Vulkan.CStruct (FromCStruct(..)) import Vulkan.CStruct (ToCStruct) import Vulkan.CStruct (ToCStruct(..)) import Vulkan.Zero (Zero) import Vulkan.Zero (Zero(..)) import Data.Bits (Bits) import Data.Bits (FiniteBits) import Data.String (IsString) import Data.Typeable (Typeable) import Foreign.Storable (Storable) import Foreign.Storable (Storable(peek)) import Foreign.Storable (Storable(poke)) import qualified Foreign.Storable (Storable(..)) import GHC.Generics (Generic) import Data.Int (Int32) import Foreign.Ptr (Ptr) import GHC.Read (Read(readPrec)) import GHC.Show (Show(showsPrec)) import Data.Kind (Type) import Vulkan.Core10.FundamentalTypes (bool32ToBool) import Vulkan.Core10.FundamentalTypes (boolToBool32) import Vulkan.Core10.FundamentalTypes (Bool32) import Vulkan.Core10.FundamentalTypes (DeviceAddress) import Vulkan.Core10.FundamentalTypes (DeviceSize) import Vulkan.Core10.FundamentalTypes (Flags) import Vulkan.Core10.Enums.StructureType (StructureType) import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_DEVICE_ADDRESS_BINDING_CALLBACK_DATA_EXT)) import Vulkan.Core10.Enums.StructureType (StructureType(STRUCTURE_TYPE_PHYSICAL_DEVICE_ADDRESS_BINDING_REPORT_FEATURES_EXT)) import Vulkan.Extensions.VK_EXT_debug_utils (DebugUtilsMessageTypeFlagBitsEXT(..)) import Vulkan.Extensions.VK_EXT_debug_utils (DebugUtilsMessageTypeFlagsEXT) -- | VkPhysicalDeviceAddressBindingReportFeaturesEXT - Structure describing -- the virtual allocation reporting feature supported by an implementation -- -- = Members -- -- This structure describes the following feature: -- -- = Description -- -- If the 'PhysicalDeviceAddressBindingReportFeaturesEXT' structure is -- included in the @pNext@ chain of the -- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.PhysicalDeviceFeatures2' -- structure passed to -- 'Vulkan.Core11.Promoted_From_VK_KHR_get_physical_device_properties2.getPhysicalDeviceFeatures2', -- it is filled in to indicate whether each corresponding feature is -- supported. 'PhysicalDeviceAddressBindingReportFeaturesEXT' /can/ also be -- used in the @pNext@ chain of 'Vulkan.Core10.Device.DeviceCreateInfo' to -- selectively enable these features. -- -- == Valid Usage (Implicit) -- -- = See Also -- -- , -- 'Vulkan.Core10.FundamentalTypes.Bool32', -- 'Vulkan.Core10.Enums.StructureType.StructureType' data PhysicalDeviceAddressBindingReportFeaturesEXT = PhysicalDeviceAddressBindingReportFeaturesEXT { -- | #features-reportAddressBinding# @reportAddressBinding@ indicates whether -- this implementation supports reporting the binding of GPU virtual -- address ranges to Vulkan objects. reportAddressBinding :: Bool } deriving (Typeable, Eq) #if defined(GENERIC_INSTANCES) deriving instance Generic (PhysicalDeviceAddressBindingReportFeaturesEXT) #endif deriving instance Show PhysicalDeviceAddressBindingReportFeaturesEXT instance ToCStruct PhysicalDeviceAddressBindingReportFeaturesEXT where withCStruct x f = allocaBytes 24 $ \p -> pokeCStruct p x (f p) pokeCStruct p PhysicalDeviceAddressBindingReportFeaturesEXT{..} f = do poke ((p `plusPtr` 0 :: Ptr StructureType)) (STRUCTURE_TYPE_PHYSICAL_DEVICE_ADDRESS_BINDING_REPORT_FEATURES_EXT) poke ((p `plusPtr` 8 :: Ptr (Ptr ()))) (nullPtr) poke ((p `plusPtr` 16 :: Ptr Bool32)) (boolToBool32 (reportAddressBinding)) f cStructSize = 24 cStructAlignment = 8 pokeZeroCStruct p f = do poke ((p `plusPtr` 0 :: Ptr StructureType)) (STRUCTURE_TYPE_PHYSICAL_DEVICE_ADDRESS_BINDING_REPORT_FEATURES_EXT) poke ((p `plusPtr` 8 :: Ptr (Ptr ()))) (nullPtr) poke ((p `plusPtr` 16 :: Ptr Bool32)) (boolToBool32 (zero)) f instance FromCStruct PhysicalDeviceAddressBindingReportFeaturesEXT where peekCStruct p = do reportAddressBinding <- peek @Bool32 ((p `plusPtr` 16 :: Ptr Bool32)) pure $ PhysicalDeviceAddressBindingReportFeaturesEXT (bool32ToBool reportAddressBinding) instance Storable PhysicalDeviceAddressBindingReportFeaturesEXT where sizeOf ~_ = 24 alignment ~_ = 8 peek = peekCStruct poke ptr poked = pokeCStruct ptr poked (pure ()) instance Zero PhysicalDeviceAddressBindingReportFeaturesEXT where zero = PhysicalDeviceAddressBindingReportFeaturesEXT zero -- | VkDeviceAddressBindingCallbackDataEXT - Structure specifying parameters -- returned to the callback -- -- = Description -- -- If the -- -- feature is enabled and the implementation binds or unbinds a region of -- virtual address space associated with a Vulkan object, the -- implementation /must/ submit a debug message with the following -- properties: -- -- These debug messages /must/ be emitted both for GPU virtual address -- space regions that are explicitly bound to a Vulkan object via the -- @vkBind@*Memory\/@vkBind@*Memory2 functions, and for those that are -- implicitly generated via memory allocation or importing external memory. -- -- An implementation /may/ report binding events associated with a Vulkan -- object via 'Vulkan.Extensions.Handles.DebugUtilsMessengerEXT' prior to -- the object becoming visible to an application via other Vulkan commands. -- For example, object creation functions /may/ report binding events that -- occur during an objects creation. In such cases, -- 'DeviceAddressBindingCallbackDataEXT'::@flags@ /must/ include -- 'DEVICE_ADDRESS_BINDING_INTERNAL_OBJECT_BIT_EXT'. -- -- Object handles reported in this manner are not -- , -- and /must/ not be used as an input parameter to any Vulkan command. -- -- Any valid object handle returned by an object creation function /must/ -- match the handle specified via any previously reported binding events -- associated with the object’s creation. -- -- == Valid Usage (Implicit) -- -- = See Also -- -- , -- 'Vulkan.Core10.FundamentalTypes.DeviceAddress', -- 'DeviceAddressBindingFlagsEXT', 'DeviceAddressBindingTypeEXT', -- 'Vulkan.Core10.FundamentalTypes.DeviceSize', -- 'Vulkan.Core10.Enums.StructureType.StructureType' data DeviceAddressBindingCallbackDataEXT = DeviceAddressBindingCallbackDataEXT { -- | @flags@ is a bitmask of 'DeviceAddressBindingFlagBitsEXT' specifying -- additional information about the binding event that caused the callback -- to be called. -- -- #VUID-VkDeviceAddressBindingCallbackDataEXT-flags-parameter# @flags@ -- /must/ be a valid combination of 'DeviceAddressBindingFlagBitsEXT' -- values flags :: DeviceAddressBindingFlagsEXT , -- | @baseAddress@ is a GPU-accessible virtual address identifying the start -- of a region of the virtual address space associated with a Vulkan -- object, as identified by the @pObjects@ member of -- 'Vulkan.Extensions.VK_EXT_debug_utils.DebugUtilsMessengerCallbackDataEXT'. baseAddress :: DeviceAddress , -- | @size@ is the size in bytes of a region of GPU-accessible virtual -- address space. size :: DeviceSize , -- | @bindingType@ is a 'DeviceAddressBindingTypeEXT' specifying the type of -- binding event that caused the callback to be called. -- -- #VUID-VkDeviceAddressBindingCallbackDataEXT-bindingType-parameter# -- @bindingType@ /must/ be a valid 'DeviceAddressBindingTypeEXT' value bindingType :: DeviceAddressBindingTypeEXT } deriving (Typeable, Eq) #if defined(GENERIC_INSTANCES) deriving instance Generic (DeviceAddressBindingCallbackDataEXT) #endif deriving instance Show DeviceAddressBindingCallbackDataEXT instance ToCStruct DeviceAddressBindingCallbackDataEXT where withCStruct x f = allocaBytes 48 $ \p -> pokeCStruct p x (f p) pokeCStruct p DeviceAddressBindingCallbackDataEXT{..} f = do poke ((p `plusPtr` 0 :: Ptr StructureType)) (STRUCTURE_TYPE_DEVICE_ADDRESS_BINDING_CALLBACK_DATA_EXT) poke ((p `plusPtr` 8 :: Ptr (Ptr ()))) (nullPtr) poke ((p `plusPtr` 16 :: Ptr DeviceAddressBindingFlagsEXT)) (flags) poke ((p `plusPtr` 24 :: Ptr DeviceAddress)) (baseAddress) poke ((p `plusPtr` 32 :: Ptr DeviceSize)) (size) poke ((p `plusPtr` 40 :: Ptr DeviceAddressBindingTypeEXT)) (bindingType) f cStructSize = 48 cStructAlignment = 8 pokeZeroCStruct p f = do poke ((p `plusPtr` 0 :: Ptr StructureType)) (STRUCTURE_TYPE_DEVICE_ADDRESS_BINDING_CALLBACK_DATA_EXT) poke ((p `plusPtr` 8 :: Ptr (Ptr ()))) (nullPtr) poke ((p `plusPtr` 24 :: Ptr DeviceAddress)) (zero) poke ((p `plusPtr` 32 :: Ptr DeviceSize)) (zero) poke ((p `plusPtr` 40 :: Ptr DeviceAddressBindingTypeEXT)) (zero) f instance FromCStruct DeviceAddressBindingCallbackDataEXT where peekCStruct p = do flags <- peek @DeviceAddressBindingFlagsEXT ((p `plusPtr` 16 :: Ptr DeviceAddressBindingFlagsEXT)) baseAddress <- peek @DeviceAddress ((p `plusPtr` 24 :: Ptr DeviceAddress)) size <- peek @DeviceSize ((p `plusPtr` 32 :: Ptr DeviceSize)) bindingType <- peek @DeviceAddressBindingTypeEXT ((p `plusPtr` 40 :: Ptr DeviceAddressBindingTypeEXT)) pure $ DeviceAddressBindingCallbackDataEXT flags baseAddress size bindingType instance Storable DeviceAddressBindingCallbackDataEXT where sizeOf ~_ = 48 alignment ~_ = 8 peek = peekCStruct poke ptr poked = pokeCStruct ptr poked (pure ()) instance Zero DeviceAddressBindingCallbackDataEXT where zero = DeviceAddressBindingCallbackDataEXT zero zero zero zero type DeviceAddressBindingFlagsEXT = DeviceAddressBindingFlagBitsEXT -- | VkDeviceAddressBindingFlagBitsEXT - Bitmask specifying the additional -- information about a binding event -- -- = See Also -- -- , -- 'DeviceAddressBindingFlagsEXT' newtype DeviceAddressBindingFlagBitsEXT = DeviceAddressBindingFlagBitsEXT Flags deriving newtype (Eq, Ord, Storable, Zero, Bits, FiniteBits) -- | 'DEVICE_ADDRESS_BINDING_INTERNAL_OBJECT_BIT_EXT' specifies that -- 'DeviceAddressBindingCallbackDataEXT' describes a Vulkan object that has -- not been made visible to the application via a Vulkan command. pattern DEVICE_ADDRESS_BINDING_INTERNAL_OBJECT_BIT_EXT = DeviceAddressBindingFlagBitsEXT 0x00000001 conNameDeviceAddressBindingFlagBitsEXT :: String conNameDeviceAddressBindingFlagBitsEXT = "DeviceAddressBindingFlagBitsEXT" enumPrefixDeviceAddressBindingFlagBitsEXT :: String enumPrefixDeviceAddressBindingFlagBitsEXT = "DEVICE_ADDRESS_BINDING_INTERNAL_OBJECT_BIT_EXT" showTableDeviceAddressBindingFlagBitsEXT :: [(DeviceAddressBindingFlagBitsEXT, String)] showTableDeviceAddressBindingFlagBitsEXT = [ ( DEVICE_ADDRESS_BINDING_INTERNAL_OBJECT_BIT_EXT , "" ) ] instance Show DeviceAddressBindingFlagBitsEXT where showsPrec = enumShowsPrec enumPrefixDeviceAddressBindingFlagBitsEXT showTableDeviceAddressBindingFlagBitsEXT conNameDeviceAddressBindingFlagBitsEXT (\(DeviceAddressBindingFlagBitsEXT x) -> x) (\x -> showString "0x" . showHex x) instance Read DeviceAddressBindingFlagBitsEXT where readPrec = enumReadPrec enumPrefixDeviceAddressBindingFlagBitsEXT showTableDeviceAddressBindingFlagBitsEXT conNameDeviceAddressBindingFlagBitsEXT DeviceAddressBindingFlagBitsEXT -- | VkDeviceAddressBindingTypeEXT - Enum describing a change in device -- address bindings -- -- = See Also -- -- , -- 'DeviceAddressBindingCallbackDataEXT' newtype DeviceAddressBindingTypeEXT = DeviceAddressBindingTypeEXT Int32 deriving newtype (Eq, Ord, Storable, Zero) -- | 'DEVICE_ADDRESS_BINDING_TYPE_BIND_EXT' specifies that a new -- GPU-accessible virtual address range has been bound. pattern DEVICE_ADDRESS_BINDING_TYPE_BIND_EXT = DeviceAddressBindingTypeEXT 0 -- | 'DEVICE_ADDRESS_BINDING_TYPE_UNBIND_EXT' specifies that a GPU-accessible -- virtual address range has been unbound. pattern DEVICE_ADDRESS_BINDING_TYPE_UNBIND_EXT = DeviceAddressBindingTypeEXT 1 {-# COMPLETE DEVICE_ADDRESS_BINDING_TYPE_BIND_EXT , DEVICE_ADDRESS_BINDING_TYPE_UNBIND_EXT :: DeviceAddressBindingTypeEXT #-} conNameDeviceAddressBindingTypeEXT :: String conNameDeviceAddressBindingTypeEXT = "DeviceAddressBindingTypeEXT" enumPrefixDeviceAddressBindingTypeEXT :: String enumPrefixDeviceAddressBindingTypeEXT = "DEVICE_ADDRESS_BINDING_TYPE_" showTableDeviceAddressBindingTypeEXT :: [(DeviceAddressBindingTypeEXT, String)] showTableDeviceAddressBindingTypeEXT = [ ( DEVICE_ADDRESS_BINDING_TYPE_BIND_EXT , "BIND_EXT" ) , ( DEVICE_ADDRESS_BINDING_TYPE_UNBIND_EXT , "UNBIND_EXT" ) ] instance Show DeviceAddressBindingTypeEXT where showsPrec = enumShowsPrec enumPrefixDeviceAddressBindingTypeEXT showTableDeviceAddressBindingTypeEXT conNameDeviceAddressBindingTypeEXT (\(DeviceAddressBindingTypeEXT x) -> x) (showsPrec 11) instance Read DeviceAddressBindingTypeEXT where readPrec = enumReadPrec enumPrefixDeviceAddressBindingTypeEXT showTableDeviceAddressBindingTypeEXT conNameDeviceAddressBindingTypeEXT DeviceAddressBindingTypeEXT type EXT_DEVICE_ADDRESS_BINDING_REPORT_SPEC_VERSION = 1 -- No documentation found for TopLevel "VK_EXT_DEVICE_ADDRESS_BINDING_REPORT_SPEC_VERSION" pattern EXT_DEVICE_ADDRESS_BINDING_REPORT_SPEC_VERSION :: forall a . Integral a => a pattern EXT_DEVICE_ADDRESS_BINDING_REPORT_SPEC_VERSION = 1 type EXT_DEVICE_ADDRESS_BINDING_REPORT_EXTENSION_NAME = "VK_EXT_device_address_binding_report" -- No documentation found for TopLevel "VK_EXT_DEVICE_ADDRESS_BINDING_REPORT_EXTENSION_NAME" pattern EXT_DEVICE_ADDRESS_BINDING_REPORT_EXTENSION_NAME :: forall a . (Eq a, IsString a) => a pattern EXT_DEVICE_ADDRESS_BINDING_REPORT_EXTENSION_NAME = "VK_EXT_device_address_binding_report"