Merge pull request #311 from expipiplus1/joe-183

Bump vulkan version to v1.2.183

Author: expipiplus1

changelog.md

@@ -2,6 +2,9 @@
 
 ## WIP
 
+## [3.11.1] - 2021-06-28
+- Bump API version to v1.2.183
+
 ## [3.11.0.2] - 2021-06-26
 - Tweak cabal file to please `cabal check`
 

generate-new/Vulkan-Docs

@@ -1176,8 +1176,8 @@ cuLaunchSchemes :: BespokeScheme
 cuLaunchSchemes =
    BespokeScheme $ \case
       "VkCuLaunchInfoNVX" -> \case
-        a | "pParams" <- name a -> Just (Preserve (type' a))
-        a | "pExtras" <- name a -> Just (Preserve (type' a))
+        a | "pParams" <- name a -> Just (Vector NotNullable VoidPtr)
+        a | "pExtras" <- name a -> Just (Vector NotNullable VoidPtr)
         _                       -> Nothing
       _ -> const Nothing
 

generate-new/src/Bespoke.hs

@@ -496,7 +496,10 @@ lenRefFromSibling name = do
           ("either id (fromIntegral . Data.Vector.length)" <+> vec)
         -- Assume vector for now, TODO, put this in CustomScheme
         Custom _ -> pure $ Pure InlineOnce ("Data.Vector.length $" <+> vec)
-        _ -> throw "Trying to get the length of a non vector type sibling"
+        s ->
+          throw
+            $  "Trying to get the length of a non vector type sibling: "
+            <> show s
 
 
 -- TODO: the type of the value here could be improved

generate-new/src/Render/Stmts/Poke.hs

@@ -1056,8 +1056,6 @@ parseSPIRVThings thingType mkThing es = V.fromList <$> sequenceV
   [ parseExtension e
   | Element e <- es
   , thingType == name e
-    -- https://github.com/KhronosGroup/Vulkan-Docs/issues/1565
-  , getAttr "name" e /= Just "RayTracingMotionBlurNV"
   ]
  where
   parseExtension n = do

generate-new/src/Spec/Parse.hs

@@ -1,5 +1,5 @@
 name: vulkan
-version: "3.11.0.2"
+version: "3.11.1"
 synopsis: Bindings to the Vulkan graphics API.
 description: Please see [the readme](https://github.com/expipiplus1/vulkan/#readme)
 category: Graphics

package.yaml

@@ -828,6 +828,7 @@ type family Extends (a :: [Type] -> Type) (b :: Type) :: Constraint where
   Extends DeviceCreateInfo PhysicalDeviceShaderDrawParametersFeatures = ()
   Extends DeviceCreateInfo PhysicalDeviceShaderFloat16Int8Features = ()
   Extends DeviceCreateInfo PhysicalDeviceHostQueryResetFeatures = ()
+  Extends DeviceCreateInfo PhysicalDeviceGlobalPriorityQueryFeaturesEXT = ()
   Extends DeviceCreateInfo PhysicalDeviceDeviceMemoryReportFeaturesEXT = ()
   Extends DeviceCreateInfo DeviceDeviceMemoryReportCreateInfoEXT = ()
   Extends DeviceCreateInfo PhysicalDeviceDescriptorIndexingFeatures = ()
@@ -1049,6 +1050,7 @@ type family Extends (a :: [Type] -> Type) (b :: Type) :: Constraint where
   Extends PhysicalDeviceFeatures2 PhysicalDeviceInheritedViewportScissorFeaturesNV = ()
   Extends PhysicalDeviceFeatures2 PhysicalDeviceYcbcr2Plane444FormatsFeaturesEXT = ()
   Extends PhysicalDeviceFeatures2 PhysicalDeviceProvokingVertexFeaturesEXT = ()
+  Extends PhysicalDeviceFeatures2 PhysicalDeviceRayTracingMotionBlurFeaturesNV = ()
   Extends PhysicalDeviceImageFormatInfo2 PhysicalDeviceExternalImageFormatInfo = ()
   Extends PhysicalDeviceImageFormatInfo2 ImageFormatListCreateInfo = ()
   Extends PhysicalDeviceImageFormatInfo2 PhysicalDeviceImageDrmFormatModifierInfoEXT = ()
@@ -1104,7 +1106,6 @@ type family Extends (a :: [Type] -> Type) (b :: Type) :: Constraint where
   Extends PhysicalDeviceProperties2 PhysicalDeviceFragmentShadingRateEnumsPropertiesNV = ()
   Extends PhysicalDeviceProperties2 PhysicalDeviceProvokingVertexPropertiesEXT = ()
   Extends PhysicalDeviceProperties2 PhysicalDeviceDrmPropertiesEXT = ()
-  Extends PhysicalDeviceProperties2 PhysicalDeviceRayTracingMotionBlurFeaturesNV = ()
   Extends PhysicalDeviceSurfaceInfo2KHR SurfaceFullScreenExclusiveInfoEXT = ()
   Extends PhysicalDeviceSurfaceInfo2KHR SurfaceFullScreenExclusiveWin32InfoEXT = ()
   Extends PipelineColorBlendStateCreateInfo PipelineColorBlendAdvancedStateCreateInfoEXT = ()

src/Vulkan/CStruct/Extends.hs

@@ -537,6 +537,9 @@ foreign import ccall
 --
 -- -   Host access to @commandBuffer@ /must/ be externally synchronized
 --
+-- -   Host access to the 'Vulkan.Core10.Handles.CommandPool' that
+--     @commandBuffer@ was allocated from /must/ be externally synchronized
+--
 -- == Return Codes
 --
 -- [<https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#fundamentals-successcodes Success>]

src/Vulkan/Core10/CommandBuffer.hs

@@ -7106,6 +7106,9 @@ foreign import ccall
 -- -   #VUID-vkCmdClearColorImage-image-00007# @image@ /must/ not have a
 --     compressed or depth\/stencil format
 --
+-- -   #VUID-vkCmdClearColorImage-pColor-04961# @pColor@ /must/ be a valid
+--     pointer to a 'ClearColorValue' union
+--
 -- -   #VUID-vkCmdClearColorImage-commandBuffer-01805# If @commandBuffer@
 --     is an unprotected command buffer, then @image@ /must/ not be a
 --     protected image
@@ -11449,6 +11452,10 @@ instance Zero ImageResolve where
 --     a depth\/stencil format) of
 --     'Vulkan.Core10.Enums.AttachmentLoadOp.ATTACHMENT_LOAD_OP_CLEAR'
 --
+-- -   #VUID-VkRenderPassBeginInfo-clearValueCount-04962# If
+--     @clearValueCount@ is not @0@, @pClearValues@ /must/ be a valid
+--     pointer to an array of @clearValueCount@ 'ClearValue' unions
+--
 -- -   #VUID-VkRenderPassBeginInfo-renderPass-00904# @renderPass@ /must/ be
 --     <https://www.khronos.org/registry/vulkan/specs/1.2-extensions/html/vkspec.html#renderpass-compatibility compatible>
 --     with the @renderPass@ member of the

src/Vulkan/Core10/CommandBufferBuilding.hs

@@ -120,6 +120,7 @@ import {-# SOURCE #-} Vulkan.Extensions.VK_NV_fragment_shader_barycentric (Physi
 import {-# SOURCE #-} Vulkan.Extensions.VK_EXT_fragment_shader_interlock (PhysicalDeviceFragmentShaderInterlockFeaturesEXT)
 import {-# SOURCE #-} Vulkan.Extensions.VK_NV_fragment_shading_rate_enums (PhysicalDeviceFragmentShadingRateEnumsFeaturesNV)
 import {-# SOURCE #-} Vulkan.Extensions.VK_KHR_fragment_shading_rate (PhysicalDeviceFragmentShadingRateFeaturesKHR)
+import {-# SOURCE #-} Vulkan.Extensions.VK_EXT_global_priority_query (PhysicalDeviceGlobalPriorityQueryFeaturesEXT)
 import {-# SOURCE #-} Vulkan.Core12.Promoted_From_VK_EXT_host_query_reset (PhysicalDeviceHostQueryResetFeatures)
 import {-# SOURCE #-} Vulkan.Extensions.VK_EXT_image_robustness (PhysicalDeviceImageRobustnessFeaturesEXT)
 import {-# SOURCE #-} Vulkan.Core12.Promoted_From_VK_KHR_imageless_framebuffer (PhysicalDeviceImagelessFramebufferFeatures)
@@ -745,6 +746,7 @@ instance es ~ '[] => Zero (DeviceQueueCreateInfo es) where
 --     'Vulkan.Extensions.VK_EXT_fragment_shader_interlock.PhysicalDeviceFragmentShaderInterlockFeaturesEXT',
 --     'Vulkan.Extensions.VK_NV_fragment_shading_rate_enums.PhysicalDeviceFragmentShadingRateEnumsFeaturesNV',
 --     'Vulkan.Extensions.VK_KHR_fragment_shading_rate.PhysicalDeviceFragmentShadingRateFeaturesKHR',
+--     'Vulkan.Extensions.VK_EXT_global_priority_query.PhysicalDeviceGlobalPriorityQueryFeaturesEXT',
 --     'Vulkan.Core12.Promoted_From_VK_EXT_host_query_reset.PhysicalDeviceHostQueryResetFeatures',
 --     'Vulkan.Extensions.VK_EXT_image_robustness.PhysicalDeviceImageRobustnessFeaturesEXT',
 --     'Vulkan.Core12.Promoted_From_VK_KHR_imageless_framebuffer.PhysicalDeviceImagelessFramebufferFeatures',
@@ -962,6 +964,7 @@ instance Extensible DeviceCreateInfo where
     | Just Refl <- eqT @e @PhysicalDeviceDescriptorIndexingFeatures = Just f
     | Just Refl <- eqT @e @DeviceDeviceMemoryReportCreateInfoEXT = Just f
     | Just Refl <- eqT @e @PhysicalDeviceDeviceMemoryReportFeaturesEXT = Just f
+    | Just Refl <- eqT @e @PhysicalDeviceGlobalPriorityQueryFeaturesEXT = Just f
     | Just Refl <- eqT @e @PhysicalDeviceHostQueryResetFeatures = Just f
     | Just Refl <- eqT @e @PhysicalDeviceShaderFloat16Int8Features = Just f
     | Just Refl <- eqT @e @PhysicalDeviceShaderDrawParametersFeatures = Just f