Merge pull request #258 from expipiplus1/generate-169

Bump vulkan to 1.2.169

changelog.md

@@ -1,7 +1,9 @@
 # Change Log
 
 ## WIP
-- Bump API version to v1.2.168
+
+## [3.9.1] - 2021-02-06
+- Bump API version to v1.2.169
 - Add `COMPLETE` pragma to `MAKE_VERSION` pattern
   https://github.com/expipiplus1/vulkan/issues/256
 

generate-new/khronos-spec/Khronos/Utils.hs

@@ -22,8 +22,6 @@ extensionPatterns p = do
         -> "VK_NV_VIEWPORT_ARRAY2"
         | p == "VK_EXT_swapchain_colorspace"
         -> "EXT_SWAPCHAIN_COLOR_SPACE"
-        | p == "VK_QCOM_rotated_copy_commands"
-        -> "QCOM_rotated_copy_commands"
         | "2" `T.isSuffixOf` p && not ("32" `T.isSuffixOf` p)
         -> T.toUpper (T.init p) <> "_2"
         | otherwise

generate-new/src/Data/ByteString/Extra.hs

@@ -1,11 +1,6 @@
 module Data.ByteString.Extra where
 
 import           Data.ByteString               as BS
-import           Data.ByteString.Internal       ( ByteString(..)
-                                                , w2c
-                                                )
-import           Data.Char                      ( isSpace )
-import           Data.Word
 import           Prelude
 
 dropPrefix :: ByteString -> ByteString -> Maybe ByteString

package.yaml

@@ -1,5 +1,5 @@
 name: vulkan
-version: "3.9"
+version: "3.9.1"
 synopsis: Bindings to the Vulkan graphics API.
 category: Graphics
 maintainer: Joe Hermaszewski <[email protected]>

src/Vulkan/Core10/CommandBufferBuilding.hs

@@ -5732,18 +5732,6 @@ foreign import ccall
 --     have been created with @flags@ containing
 --     'Vulkan.Core10.Enums.ImageCreateFlagBits.IMAGE_CREATE_SUBSAMPLED_BIT_EXT'
 --
--- -   #VUID-vkCmdCopyBufferToImage-commandBuffer-04052# If the queue
---     family used to create the 'Vulkan.Core10.Handles.CommandPool' which
---     @commandBuffer@ was allocated from does not support
---     'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' or
---     'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_COMPUTE_BIT', the
---     @bufferOffset@ member of any element of @pRegions@ /must/ be a
---     multiple of @4@
---
--- -   #VUID-vkCmdCopyBufferToImage-dstImage-04053# If @dstImage@ has a
---     depth\/stencil format, the @bufferOffset@ member of any element of
---     @pRegions@ /must/ be a multiple of @4@
---
 -- -   #VUID-vkCmdCopyBufferToImage-commandBuffer-04477# If the queue
 --     family used to create the 'Vulkan.Core10.Handles.CommandPool' which
 --     @commandBuffer@ was allocated from does not support
@@ -5875,6 +5863,18 @@ foreign import ccall
 --     compressed texel block width and then multiplied by the texel block
 --     size of @dstImage@ /must/ be less than or equal to 231-1
 --
+-- -   #VUID-vkCmdCopyBufferToImage-commandBuffer-04052# If the queue
+--     family used to create the 'Vulkan.Core10.Handles.CommandPool' which
+--     @commandBuffer@ was allocated from does not support
+--     'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' or
+--     'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_COMPUTE_BIT', the
+--     @bufferOffset@ member of any element of @pRegions@ /must/ be a
+--     multiple of @4@
+--
+-- -   #VUID-vkCmdCopyBufferToImage-srcImage-04053# If @dstImage@ has a
+--     depth\/stencil format, the @bufferOffset@ member of any element of
+--     @pRegions@ /must/ be a multiple of @4@
+--
 -- == Valid Usage (Implicit)
 --
 -- -   #VUID-vkCmdCopyBufferToImage-commandBuffer-parameter#
@@ -6088,18 +6088,6 @@ foreign import ccall
 --     have been created with @flags@ containing
 --     'Vulkan.Core10.Enums.ImageCreateFlagBits.IMAGE_CREATE_SUBSAMPLED_BIT_EXT'
 --
--- -   #VUID-vkCmdCopyImageToBuffer-commandBuffer-04054# If the queue
---     family used to create the 'Vulkan.Core10.Handles.CommandPool' which
---     @commandBuffer@ was allocated from does not support
---     'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' or
---     'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_COMPUTE_BIT', the
---     @bufferOffset@ member of any element of @pRegions@ /must/ be a
---     multiple of @4@
---
--- -   #VUID-vkCmdCopyImageToBuffer-srcImage-04055# If @srcImage@ has a
---     depth\/stencil format, the @bufferOffset@ member of any element of
---     @pRegions@ /must/ be a multiple of @4@
---
 -- -   #VUID-vkCmdCopyImageToBuffer-imageOffset-00197# For each element of
 --     @pRegions@ , @imageOffset.x@ and (@imageExtent.width@ +
 --     @imageOffset.x@) /must/ both be greater than or equal to @0@ and
@@ -6222,6 +6210,18 @@ foreign import ccall
 --     compressed texel block width and then multiplied by the texel block
 --     size of @srcImage@ /must/ be less than or equal to 231-1
 --
+-- -   #VUID-vkCmdCopyImageToBuffer-commandBuffer-04052# If the queue
+--     family used to create the 'Vulkan.Core10.Handles.CommandPool' which
+--     @commandBuffer@ was allocated from does not support
+--     'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_GRAPHICS_BIT' or
+--     'Vulkan.Core10.Enums.QueueFlagBits.QUEUE_COMPUTE_BIT', the
+--     @bufferOffset@ member of any element of @pRegions@ /must/ be a
+--     multiple of @4@
+--
+-- -   #VUID-vkCmdCopyImageToBuffer-srcImage-04053# If @srcImage@ has a
+--     depth\/stencil format, the @bufferOffset@ member of any element of
+--     @pRegions@ /must/ be a multiple of @4@
+--
 -- == Valid Usage (Implicit)
 --
 -- -   #VUID-vkCmdCopyImageToBuffer-commandBuffer-parameter#
@@ -6703,9 +6703,6 @@ foreign import ccall
 --     /must/ be a valid 'Vulkan.Core10.Enums.ImageLayout.ImageLayout'
 --     value
 --
--- -   #VUID-vkCmdClearColorImage-pColor-parameter# @pColor@ /must/ be a
---     valid pointer to a valid 'ClearColorValue' union
---
 -- -   #VUID-vkCmdClearColorImage-pRanges-parameter# @pRanges@ /must/ be a
 --     valid pointer to an array of @rangeCount@ valid
 --     'Vulkan.Core10.ImageView.ImageSubresourceRange' structures
@@ -10796,7 +10793,7 @@ instance Zero ImageBlit where
 -- For purpose of valid usage statements here and in related copy commands,
 -- a /blocked image/ is defined as:
 --
--- -   a image with a /single-plane/, “@_422@” format, which is treated as
+-- -   an image with a /single-plane/, “@_422@” format, which is treated as
 --     a format with a 2 × 1 compressed texel block, or
 --
 -- -   a compressed image.
@@ -11277,10 +11274,6 @@ instance Zero ImageResolve where
 -- -   #VUID-VkRenderPassBeginInfo-framebuffer-parameter# @framebuffer@
 --     /must/ be a valid 'Vulkan.Core10.Handles.Framebuffer' handle
 --
--- -   #VUID-VkRenderPassBeginInfo-pClearValues-parameter# If
---     @clearValueCount@ is not @0@, @pClearValues@ /must/ be a valid
---     pointer to an array of @clearValueCount@ 'ClearValue' unions
---
 -- -   #VUID-VkRenderPassBeginInfo-commonparent# Both of @framebuffer@, and
 --     @renderPass@ /must/ have been created, allocated, or retrieved from
 --     the same 'Vulkan.Core10.Handles.Device'

src/Vulkan/Core10/Pass.hs

@@ -1178,8 +1178,8 @@ instance Zero AttachmentReference where
 --
 -- -   #VUID-VkSubpassDescription-pDepthStencilAttachment-02650# If
 --     @pDepthStencilAttachment@ is not @NULL@ and the attachment is not
---     'Vulkan.Core10.APIConstants.ATTACHMENT_UNUSED' then it /must/ have a
---     image format whose
+--     'Vulkan.Core10.APIConstants.ATTACHMENT_UNUSED' then it /must/ have
+--     an image format whose
 --     <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#potential-format-features potential format features>
 --     contain
 --     'Vulkan.Core10.Enums.FormatFeatureFlagBits.FORMAT_FEATURE_DEPTH_STENCIL_ATTACHMENT_BIT'

src/Vulkan/Core10/Queue.hs

@@ -696,7 +696,7 @@ deviceWaitIdleSafe = deviceWaitIdleSafeOrUnsafe mkVkDeviceWaitIdleSafe
 --     'Vulkan.Core11.Originally_Based_On_VK_KHR_protected_memory.ProtectedSubmitInfo'
 --     structure with @protectedSubmit@ set to
 --     'Vulkan.Core10.FundamentalTypes.TRUE', then each element of the
---     @pCommandBuffers@ array /must/ be an protected command buffer
+--     @pCommandBuffers@ array /must/ be a protected command buffer
 --
 -- == Valid Usage (Implicit)
 --

src/Vulkan/Core12/Promoted_From_VK_KHR_create_renderpass2.hs

@@ -1152,8 +1152,8 @@ instance es ~ '[] => Zero (AttachmentReference2 es) where
 --
 -- -   #VUID-VkSubpassDescription2-pDepthStencilAttachment-02900# If
 --     @pDepthStencilAttachment@ is not @NULL@ and the attachment is not
---     'Vulkan.Core10.APIConstants.ATTACHMENT_UNUSED' then it /must/ have a
---     image format whose
+--     'Vulkan.Core10.APIConstants.ATTACHMENT_UNUSED' then it /must/ have
+--     an image format whose
 --     <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#potential-format-features potential format features>
 --     contain
 --     'Vulkan.Core10.Enums.FormatFeatureFlagBits.FORMAT_FEATURE_DEPTH_STENCIL_ATTACHMENT_BIT'

src/Vulkan/Extensions/Dependencies.hs

@@ -164,7 +164,7 @@ import Vulkan.Extensions.VK_NV_shader_subgroup_partitioned (pattern NV_SHADER_SU
 import Vulkan.Extensions.VK_NV_shading_rate_image (pattern NV_SHADING_RATE_IMAGE_EXTENSION_NAME)
 import Vulkan.Extensions.VK_NV_win32_keyed_mutex (pattern NV_WIN32_KEYED_MUTEX_EXTENSION_NAME)
 import Vulkan.Extensions.VK_QCOM_render_pass_transform (pattern QCOM_RENDER_PASS_TRANSFORM_EXTENSION_NAME)
-import Vulkan.Extensions.VK_QCOM_rotated_copy_commands (pattern QCOM_rotated_copy_commands_EXTENSION_NAME)
+import Vulkan.Extensions.VK_QCOM_rotated_copy_commands (pattern QCOM_ROTATED_COPY_COMMANDS_EXTENSION_NAME)
 import Vulkan.Extensions.VK_VALVE_mutable_descriptor_type (pattern VALVE_MUTABLE_DESCRIPTOR_TYPE_EXTENSION_NAME)
 -- | The set of other extensions required to use this extension
 extensionDependencies :: ("extensionName" ::: ByteString) -> [ByteString]
@@ -464,7 +464,7 @@ extensionDependencies = \case
     ]
   EXT_FRAGMENT_DENSITY_MAP_2_EXTENSION_NAME ->
     [EXT_FRAGMENT_DENSITY_MAP_EXTENSION_NAME, KHR_GET_PHYSICAL_DEVICE_PROPERTIES_2_EXTENSION_NAME]
-  QCOM_rotated_copy_commands_EXTENSION_NAME ->
+  QCOM_ROTATED_COPY_COMMANDS_EXTENSION_NAME ->
     [KHR_SWAPCHAIN_EXTENSION_NAME, KHR_COPY_COMMANDS_2_EXTENSION_NAME, KHR_SURFACE_EXTENSION_NAME]
   EXT_IMAGE_ROBUSTNESS_EXTENSION_NAME                 -> [KHR_GET_PHYSICAL_DEVICE_PROPERTIES_2_EXTENSION_NAME]
   KHR_WORKGROUP_MEMORY_EXPLICIT_LAYOUT_EXTENSION_NAME -> [KHR_GET_PHYSICAL_DEVICE_PROPERTIES_2_EXTENSION_NAME]

src/Vulkan/Extensions/VK_EXT_calibrated_timestamps.hs

@@ -347,7 +347,7 @@ foreign import ccall
 -- coinciding timestamp values, however, depending on the nature of the
 -- time domains and other properties of the platform extrapolating values
 -- over a sufficiently long period of time /may/ no longer be accurate
--- enough to fit any particular purpose so applications are expected to
+-- enough to fit any particular purpose, so applications are expected to
 -- re-calibrate the timestamps on a regular basis.
 --
 -- == Return Codes

src/Vulkan/Extensions/VK_EXT_debug_utils.hs

@@ -232,8 +232,8 @@
 -- >     VkDebugUtilsMessengerEXT cb1, cb2, cb3;
 -- >
 -- >     // Must call extension functions through a function pointer:
--- >     PFN_vkCreateDebugUtilsMessengerEXT pfnCreateDebugUtilsMessengerEXT = (PFN_vkCreateDebugUtilsMessengerEXT)vkGetDeviceProcAddr(device, "vkCreateDebugUtilsMessengerEXT");
--- >     PFN_vkDestroyDebugUtilsMessengerEXT pfnDestroyDebugUtilsMessengerEXT = (PFN_vkDestroyDebugUtilsMessengerEXT)vkGetDeviceProcAddr(device, "vkDestroyDebugUtilsMessengerEXT");
+-- >     PFN_vkCreateDebugUtilsMessengerEXT pfnCreateDebugUtilsMessengerEXT = (PFN_vkCreateDebugUtilsMessengerEXT)vkGetInstanceProcAddr(instance, "vkCreateDebugUtilsMessengerEXT");
+-- >     PFN_vkDestroyDebugUtilsMessengerEXT pfnDestroyDebugUtilsMessengerEXT = (PFN_vkDestroyDebugUtilsMessengerEXT)vkGetInstanceProcAddr(instance, "vkDestroyDebugUtilsMessengerEXT");
 -- >
 -- >     VkDebugUtilsMessengeCreateInfoEXT callback1 = {
 -- >             VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CREATE_INFO_EXT,  // sType
@@ -287,11 +287,12 @@
 -- or with validation layers that can print a friendly name when referring
 -- to objects in error messages.
 --
+-- >     extern VkInstance instance;
 -- >     extern VkDevice device;
 -- >     extern VkImage image;
 -- >
 -- >     // Must call extension functions through a function pointer:
--- >     PFN_vkSetDebugUtilsObjectNameEXT pfnSetDebugUtilsObjectNameEXT = (PFN_vkSetDebugUtilsObjectNameEXT)vkGetDeviceProcAddr(device, "vkSetDebugUtilsObjectNameEXT");
+-- >     PFN_vkSetDebugUtilsObjectNameEXT pfnSetDebugUtilsObjectNameEXT = (PFN_vkSetDebugUtilsObjectNameEXT)vkGetInstanceProcAddr(instance, "vkSetDebugUtilsObjectNameEXT");
 -- >
 -- >     // Set a name on the image
 -- >     const VkDebugUtilsObjectNameInfoEXT imageNameInfo =
@@ -315,15 +316,15 @@
 -- analysis tools can display a more usable visualization of the commands
 -- submitted.
 --
--- >     extern VkDevice device;
+-- >     extern VkInstance instance;
 -- >     extern VkCommandBuffer commandBuffer;
 -- >
 -- >     // Must call extension functions through a function pointer:
--- >     PFN_vkQueueBeginDebugUtilsLabelEXT pfnQueueBeginDebugUtilsLabelEXT = (PFN_vkQueueBeginDebugUtilsLabelEXT)vkGetDeviceProcAddr(device, "vkQueueBeginDebugUtilsLabelEXT");
--- >     PFN_vkQueueEndDebugUtilsLabelEXT pfnQueueEndDebugUtilsLabelEXT = (PFN_vkQueueEndDebugUtilsLabelEXT)vkGetDeviceProcAddr(device, "vkQueueEndDebugUtilsLabelEXT");
--- >     PFN_vkCmdBeginDebugUtilsLabelEXT pfnCmdBeginDebugUtilsLabelEXT = (PFN_vkCmdBeginDebugUtilsLabelEXT)vkGetDeviceProcAddr(device, "vkCmdBeginDebugUtilsLabelEXT");
--- >     PFN_vkCmdEndDebugUtilsLabelEXT pfnCmdEndDebugUtilsLabelEXT = (PFN_vkCmdEndDebugUtilsLabelEXT)vkGetDeviceProcAddr(device, "vkCmdEndDebugUtilsLabelEXT");
--- >     PFN_vkCmdInsertDebugUtilsLabelEXT pfnCmdInsertDebugUtilsLabelEXT = (PFN_vkCmdInsertDebugUtilsLabelEXT)vkGetDeviceProcAddr(device, "vkCmdInsertDebugUtilsLabelEXT");
+-- >     PFN_vkQueueBeginDebugUtilsLabelEXT pfnQueueBeginDebugUtilsLabelEXT = (PFN_vkQueueBeginDebugUtilsLabelEXT)vkGetInstanceProcAddr(instance, "vkQueueBeginDebugUtilsLabelEXT");
+-- >     PFN_vkQueueEndDebugUtilsLabelEXT pfnQueueEndDebugUtilsLabelEXT = (PFN_vkQueueEndDebugUtilsLabelEXT)vkGetInstanceProcAddr(instance, "vkQueueEndDebugUtilsLabelEXT");
+-- >     PFN_vkCmdBeginDebugUtilsLabelEXT pfnCmdBeginDebugUtilsLabelEXT = (PFN_vkCmdBeginDebugUtilsLabelEXT)vkGetInstanceProcAddr(instance, "vkCmdBeginDebugUtilsLabelEXT");
+-- >     PFN_vkCmdEndDebugUtilsLabelEXT pfnCmdEndDebugUtilsLabelEXT = (PFN_vkCmdEndDebugUtilsLabelEXT)vkGetInstanceProcAddr(instance, "vkCmdEndDebugUtilsLabelEXT");
+-- >     PFN_vkCmdInsertDebugUtilsLabelEXT pfnCmdInsertDebugUtilsLabelEXT = (PFN_vkCmdInsertDebugUtilsLabelEXT)vkGetInstanceProcAddr(instance, "vkCmdInsertDebugUtilsLabelEXT");
 -- >
 -- >     // Describe the area being rendered
 -- >     const VkDebugUtilsLabelEXT houseLabel =

src/Vulkan/Extensions/VK_EXT_debug_utils.hs-boot

@@ -232,8 +232,8 @@
 -- >     VkDebugUtilsMessengerEXT cb1, cb2, cb3;
 -- >
 -- >     // Must call extension functions through a function pointer:
--- >     PFN_vkCreateDebugUtilsMessengerEXT pfnCreateDebugUtilsMessengerEXT = (PFN_vkCreateDebugUtilsMessengerEXT)vkGetDeviceProcAddr(device, "vkCreateDebugUtilsMessengerEXT");
--- >     PFN_vkDestroyDebugUtilsMessengerEXT pfnDestroyDebugUtilsMessengerEXT = (PFN_vkDestroyDebugUtilsMessengerEXT)vkGetDeviceProcAddr(device, "vkDestroyDebugUtilsMessengerEXT");
+-- >     PFN_vkCreateDebugUtilsMessengerEXT pfnCreateDebugUtilsMessengerEXT = (PFN_vkCreateDebugUtilsMessengerEXT)vkGetInstanceProcAddr(instance, "vkCreateDebugUtilsMessengerEXT");
+-- >     PFN_vkDestroyDebugUtilsMessengerEXT pfnDestroyDebugUtilsMessengerEXT = (PFN_vkDestroyDebugUtilsMessengerEXT)vkGetInstanceProcAddr(instance, "vkDestroyDebugUtilsMessengerEXT");
 -- >
 -- >     VkDebugUtilsMessengeCreateInfoEXT callback1 = {
 -- >             VK_STRUCTURE_TYPE_DEBUG_UTILS_MESSENGER_CREATE_INFO_EXT,  // sType
@@ -287,11 +287,12 @@
 -- or with validation layers that can print a friendly name when referring
 -- to objects in error messages.
 --
+-- >     extern VkInstance instance;
 -- >     extern VkDevice device;
 -- >     extern VkImage image;
 -- >
 -- >     // Must call extension functions through a function pointer:
--- >     PFN_vkSetDebugUtilsObjectNameEXT pfnSetDebugUtilsObjectNameEXT = (PFN_vkSetDebugUtilsObjectNameEXT)vkGetDeviceProcAddr(device, "vkSetDebugUtilsObjectNameEXT");
+-- >     PFN_vkSetDebugUtilsObjectNameEXT pfnSetDebugUtilsObjectNameEXT = (PFN_vkSetDebugUtilsObjectNameEXT)vkGetInstanceProcAddr(instance, "vkSetDebugUtilsObjectNameEXT");
 -- >
 -- >     // Set a name on the image
 -- >     const VkDebugUtilsObjectNameInfoEXT imageNameInfo =
@@ -315,15 +316,15 @@
 -- analysis tools can display a more usable visualization of the commands
 -- submitted.
 --
--- >     extern VkDevice device;
+-- >     extern VkInstance instance;
 -- >     extern VkCommandBuffer commandBuffer;
 -- >
 -- >     // Must call extension functions through a function pointer:
--- >     PFN_vkQueueBeginDebugUtilsLabelEXT pfnQueueBeginDebugUtilsLabelEXT = (PFN_vkQueueBeginDebugUtilsLabelEXT)vkGetDeviceProcAddr(device, "vkQueueBeginDebugUtilsLabelEXT");
--- >     PFN_vkQueueEndDebugUtilsLabelEXT pfnQueueEndDebugUtilsLabelEXT = (PFN_vkQueueEndDebugUtilsLabelEXT)vkGetDeviceProcAddr(device, "vkQueueEndDebugUtilsLabelEXT");
--- >     PFN_vkCmdBeginDebugUtilsLabelEXT pfnCmdBeginDebugUtilsLabelEXT = (PFN_vkCmdBeginDebugUtilsLabelEXT)vkGetDeviceProcAddr(device, "vkCmdBeginDebugUtilsLabelEXT");
--- >     PFN_vkCmdEndDebugUtilsLabelEXT pfnCmdEndDebugUtilsLabelEXT = (PFN_vkCmdEndDebugUtilsLabelEXT)vkGetDeviceProcAddr(device, "vkCmdEndDebugUtilsLabelEXT");
--- >     PFN_vkCmdInsertDebugUtilsLabelEXT pfnCmdInsertDebugUtilsLabelEXT = (PFN_vkCmdInsertDebugUtilsLabelEXT)vkGetDeviceProcAddr(device, "vkCmdInsertDebugUtilsLabelEXT");
+-- >     PFN_vkQueueBeginDebugUtilsLabelEXT pfnQueueBeginDebugUtilsLabelEXT = (PFN_vkQueueBeginDebugUtilsLabelEXT)vkGetInstanceProcAddr(instance, "vkQueueBeginDebugUtilsLabelEXT");
+-- >     PFN_vkQueueEndDebugUtilsLabelEXT pfnQueueEndDebugUtilsLabelEXT = (PFN_vkQueueEndDebugUtilsLabelEXT)vkGetInstanceProcAddr(instance, "vkQueueEndDebugUtilsLabelEXT");
+-- >     PFN_vkCmdBeginDebugUtilsLabelEXT pfnCmdBeginDebugUtilsLabelEXT = (PFN_vkCmdBeginDebugUtilsLabelEXT)vkGetInstanceProcAddr(instance, "vkCmdBeginDebugUtilsLabelEXT");
+-- >     PFN_vkCmdEndDebugUtilsLabelEXT pfnCmdEndDebugUtilsLabelEXT = (PFN_vkCmdEndDebugUtilsLabelEXT)vkGetInstanceProcAddr(instance, "vkCmdEndDebugUtilsLabelEXT");
+-- >     PFN_vkCmdInsertDebugUtilsLabelEXT pfnCmdInsertDebugUtilsLabelEXT = (PFN_vkCmdInsertDebugUtilsLabelEXT)vkGetInstanceProcAddr(instance, "vkCmdInsertDebugUtilsLabelEXT");
 -- >
 -- >     // Describe the area being rendered
 -- >     const VkDebugUtilsLabelEXT houseLabel =