changes for 1.3.269

expipiplus1 · Oct 20, 2023 · 2ebeb76 · 2ebeb76
1 parent c2731f8
commit 2ebeb76
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/generate-new/src/Bespoke.hs b/generate-new/src/Bespoke.hs
@@ -281,6 +281,10 @@ dualPurposeBytestrings = BespokeScheme $ \case
       a | (Ptr NonConst Void) <- type' a, "pData" <- name a ->
         Just (Returned ByteString)
       _ -> Nothing
+    | c == "vkGetCudaModuleCacheNV" -> \case
+      a | (Ptr NonConst Void) <- type' a, "pCacheData" <- name a ->
+        Just (Returned ByteString)
+      _ -> Nothing
   _ -> const Nothing
 
 difficultLengths :: [BespokeScheme]
@@ -1277,6 +1281,10 @@ cuLaunchSchemes =
         a | "pParams" <- name a -> Just (Vector NotNullable VoidPtr)
         a | "pExtras" <- name a -> Just (Vector NotNullable VoidPtr)
         _                       -> Nothing
+      "VkCudaLaunchInfoNV" -> \case
+        a | "pParams" <- name a -> Just (Vector Nullable VoidPtr)
+        a | "pExtras" <- name a -> Just (Vector Nullable VoidPtr)
+        _                       -> Nothing
       _ -> const Nothing
 
 ----------------------------------------------------------------

diff --git a/generate-new/vk/VK/Bracket.hs b/generate-new/vk/VK/Bracket.hs
@@ -58,7 +58,7 @@ brackets marshaledCommands handles = context "brackets" $ do
 
   -- TODO: Missing functions here should be warnings, because we might be
   -- generating a different version of the spec.
-  bs <- sequenceV
+  bs <- sequenceV $
     [ cdBracket "Instance"
     , cdBracket "Device"
     , cdBracket "CommandPool"
@@ -134,6 +134,12 @@ brackets marshaledCommands handles = context "brackets" $ do
                    "vkDestroyShaderEXT"
                    "vkWithShadersEXT"
     -- , cdBracket "SemaphoreSciSyncPoolNV"
+    ] <>
+    [ cdBracket "CudaModuleNV"
+    | "VkCudaModuleNV" `elem` (hName <$> handles)
+    ] <>
+    [ cdBracket "CudaFunctionNV"
+    | "VkCudaFunctionNV" `elem` (hName <$> handles)
     ]
 
   --