diff --git a/DataScraping/Reps/OpenCL-Docs b/DataScraping/Reps/OpenCL-Docs index 2a783cd4..c1f37966 160000 --- a/DataScraping/Reps/OpenCL-Docs +++ b/DataScraping/Reps/OpenCL-Docs @@ -1 +1 @@ -Subproject commit 2a783cd4b1dd3bbc00ca0e15f787c68bfb4bbf2f +Subproject commit c1f37966bf472fc61872ecc859afd7b9045a34b6 diff --git a/DataScraping/Reps/OpenGL-Registry b/DataScraping/Reps/OpenGL-Registry index cb394684..81fad7d8 160000 --- a/DataScraping/Reps/OpenGL-Registry +++ b/DataScraping/Reps/OpenGL-Registry @@ -1 +1 @@ -Subproject commit cb39468450957fe6bb6e310131cf0b4a58003423 +Subproject commit 81fad7d839913fea03f0a2dc15ecdc4c68e541bd diff --git a/DataScraping/XML/OpenCL/funcs.bin b/DataScraping/XML/OpenCL/funcs.bin index ae9b3aac..b4c8cd43 100644 Binary files a/DataScraping/XML/OpenCL/funcs.bin and b/DataScraping/XML/OpenCL/funcs.bin differ diff --git a/LastPack.log b/LastPack.log index 3b11d549..efc42f64 100644 --- a/LastPack.log +++ b/LastPack.log @@ -56,15 +56,15 @@ ScrapXML[OpenCL]: Parsing "cl" ScrapXML[OpenCL]: Constructing named items ScrapXML[OpenCL]: Saving as binary ScrapXML[OpenCL]: VendorSuffix: Saved 11 items -ScrapXML[OpenCL]: Enum: Saved 1125 items +ScrapXML[OpenCL]: Enum: Saved 1129 items ScrapXML[OpenCL]: BasicType: Saved 30 items -ScrapXML[OpenCL]: Group: Saved 119 items +ScrapXML[OpenCL]: Group: Saved 120 items ScrapXML[OpenCL]: IdClass: Saved 18 items ScrapXML[OpenCL]: Struct: Saved 16 items ScrapXML[OpenCL]: Delegate: Saved 8 items -ScrapXML[OpenCL]: Func: Saved 240 items +ScrapXML[OpenCL]: Func: Saved 241 items ScrapXML[OpenCL]: Feature: Saved 7 items -ScrapXML[OpenCL]: Extension: Saved 104 items +ScrapXML[OpenCL]: Extension: Saved 105 items ScrapXML[OpenCL]: Done Finished runing ScrapXML[OpenCL] Compiling "DataScraping/XML/OpenGL/ScrapXML.pas" @@ -253,9 +253,9 @@ Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Group: Pac Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: IdClass: Packed 28 items Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Struct: Packed 17 items Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Delegate: Packed 7 items -Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Func: Packed 240 items +Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Func: Packed 241 items Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Feature: Packed 1 items -Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Extension: Packed 104 items +Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Extension: Packed 105 items Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Cleanup Template[OpenCL]: Finished runing TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe] Finished runing Template[OpenCL] diff --git a/Log/OpenCL.log b/Log/OpenCL.log index 8592f3b5..1fb5b8c2 100644 --- a/Log/OpenCL.log +++ b/Log/OpenCL.log @@ -107,9 +107,9 @@ Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Group: Pac Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: IdClass: Packed 28 items Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Struct: Packed 17 items Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Delegate: Packed 7 items -Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Func: Packed 240 items +Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Func: Packed 241 items Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Feature: Packed 1 items -Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Extension: Packed 104 items +Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Extension: Packed 105 items Template[OpenCL]: TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe]: Cleanup Template[OpenCL]: Finished runing TemplateCommand[LowLvl/OpenCL/Pack Essentials.exe] Finished runing Template[OpenCL] diff --git a/Log/PullUpstream.log b/Log/PullUpstream.log index a58cc91f..85264380 100644 --- a/Log/PullUpstream.log +++ b/Log/PullUpstream.log @@ -46,15 +46,15 @@ ScrapXML[OpenCL]: Parsing "cl" ScrapXML[OpenCL]: Constructing named items ScrapXML[OpenCL]: Saving as binary ScrapXML[OpenCL]: VendorSuffix: Saved 11 items -ScrapXML[OpenCL]: Enum: Saved 1125 items +ScrapXML[OpenCL]: Enum: Saved 1129 items ScrapXML[OpenCL]: BasicType: Saved 30 items -ScrapXML[OpenCL]: Group: Saved 119 items +ScrapXML[OpenCL]: Group: Saved 120 items ScrapXML[OpenCL]: IdClass: Saved 18 items ScrapXML[OpenCL]: Struct: Saved 16 items ScrapXML[OpenCL]: Delegate: Saved 8 items -ScrapXML[OpenCL]: Func: Saved 240 items +ScrapXML[OpenCL]: Func: Saved 241 items ScrapXML[OpenCL]: Feature: Saved 7 items -ScrapXML[OpenCL]: Extension: Saved 104 items +ScrapXML[OpenCL]: Extension: Saved 105 items ScrapXML[OpenCL]: Done Finished runing ScrapXML[OpenCL] Runing ScrapXML[OpenGL] diff --git a/Modules.Packed/OpenCL.pas b/Modules.Packed/OpenCL.pas index 924a95cb..87fa63f7 100644 --- a/Modules.Packed/OpenCL.pas +++ b/Modules.Packed/OpenCL.pas @@ -390,12 +390,15 @@ clCommandBufferProperties = record public val: UInt64; public constructor(val: UInt64) := self.val := val; - public static property COMMAND_BUFFER_FLAGS: clCommandBufferProperties read new clCommandBufferProperties($1293); + public static property COMMAND_BUFFER_FLAGS: clCommandBufferProperties read new clCommandBufferProperties($1293); + public static property COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS: clCommandBufferProperties read new clCommandBufferProperties($12B7); public function ToString: string; override; begin if COMMAND_BUFFER_FLAGS = self then Result := 'COMMAND_BUFFER_FLAGS' else + if COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS = self then + Result := 'COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS' else Result := $'clCommandBufferProperties[{self.val}]'; end; @@ -2972,6 +2975,7 @@ clErrorCode = record public static property VA_API_MEDIA_SURFACE_NOT_ACQUIRED: clErrorCode read new clErrorCode(-1101); public static property COMMAND_TERMINATED_ITSELF_WITH_FAILURE: clErrorCode read new clErrorCode(-1108); public static property CONTEXT_TERMINATED: clErrorCode read new clErrorCode(-1121); + public static property CANCELLED: clErrorCode read new clErrorCode(-1126); public static property INVALID_COMMAND_BUFFER: clErrorCode read new clErrorCode(-1138); public static property INVALID_SYNC_POINT_WAIT_LIST: clErrorCode read new clErrorCode(-1139); public static property INCOMPATIBLE_COMMAND_QUEUE: clErrorCode read new clErrorCode(-1140); @@ -3167,6 +3171,8 @@ clErrorCode = record Result := 'COMMAND_TERMINATED_ITSELF_WITH_FAILURE' else if CONTEXT_TERMINATED = self then Result := 'CONTEXT_TERMINATED' else + if CANCELLED = self then + Result := 'CANCELLED' else if INVALID_COMMAND_BUFFER = self then Result := 'INVALID_COMMAND_BUFFER' else if INVALID_SYNC_POINT_WAIT_LIST = self then @@ -4469,11 +4475,14 @@ clNDRangeKernelCommandProperties = record public constructor(val: UInt64) := self.val := val; public static property MUTABLE_DISPATCH_UPDATABLE_FIELDS: clNDRangeKernelCommandProperties read new clNDRangeKernelCommandProperties($12B1); + public static property MUTABLE_DISPATCH_ASSERTS: clNDRangeKernelCommandProperties read new clNDRangeKernelCommandProperties($12B8); public function ToString: string; override; begin if MUTABLE_DISPATCH_UPDATABLE_FIELDS = self then Result := 'MUTABLE_DISPATCH_UPDATABLE_FIELDS' else + if MUTABLE_DISPATCH_ASSERTS = self then + Result := 'MUTABLE_DISPATCH_ASSERTS' else Result := $'clNDRangeKernelCommandProperties[{self.val}]'; end; @@ -14550,6 +14559,38 @@ cl_queue_family_properties = record public const ExtensionString = 'cl_img_cached_allocations'; end; + {$ifndef DEBUG} + [System.Security.SuppressUnmanagedCodeSecurity] + {$endif DEBUG} + [PCUNotRestore] + /// + clCancelCommandIMG = sealed partial class + public constructor(pl: cl_platform_id); + private constructor := raise new System.NotSupportedException; + public static PlatformLess := new clCancelCommandIMG(default(cl_platform_id)); + private function GetProcAddress(name: string): IntPtr; + private static function GetProcOrNil(fadr: IntPtr) := + fadr=IntPtr.Zero ? default(T) : + Marshal.GetDelegateForFunctionPointer&(fadr); + public const ExtensionString = 'cl_img_cancel_command'; + + public CancelCommandsIMG_adr := GetProcAddress('clCancelCommandsIMG'); + private ntv_CancelCommandsIMG_1 := GetProcOrNil&(CancelCommandsIMG_adr); + private ntv_CancelCommandsIMG_2 := GetProcOrNil&(CancelCommandsIMG_adr); + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CancelCommandsIMG(event_list: array of cl_event; num_events_in_list: UIntPtr): clErrorCode; + type PCl_event = ^cl_event; + begin + Result := if (event_list<>nil) and (event_list.Length<>0) then + ntv_CancelCommandsIMG_1(event_list[0], num_events_in_list) else + ntv_CancelCommandsIMG_1(PCl_event(nil)^, num_events_in_list); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CancelCommandsIMG(var event_list: cl_event; num_events_in_list: UIntPtr): clErrorCode := + ntv_CancelCommandsIMG_1(event_list, num_events_in_list); + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CancelCommandsIMG(event_list: IntPtr; num_events_in_list: UIntPtr): clErrorCode := + ntv_CancelCommandsIMG_2(event_list, num_events_in_list); + + end; + {$ifndef DEBUG} [System.Security.SuppressUnmanagedCodeSecurity] {$endif DEBUG} @@ -19776,6 +19817,10 @@ function clImageRequirementsInfoEXT.GetProcAddress(name: string) := pl.GetProcAd constructor clMigrateMemobjectEXT.Create(pl: cl_platform_id) := inherited Create(pl); function clMigrateMemobjectEXT.GetProcAddress(name: string) := pl.GetProcAddress(name); +type clCancelCommandIMG = sealed partial class(cl_extension_base) end; +constructor clCancelCommandIMG.Create(pl: cl_platform_id) := inherited Create(pl); +function clCancelCommandIMG.GetProcAddress(name: string) := pl.GetProcAddress(name); + type clGenerateMipmapIMG = sealed partial class(cl_extension_base) end; constructor clGenerateMipmapIMG.Create(pl: cl_platform_id) := inherited Create(pl); function clGenerateMipmapIMG.GetProcAddress(name: string) := pl.GetProcAddress(name); diff --git a/Packing/Descriptions/OpenCL.predoc b/Packing/Descriptions/OpenCL.predoc index b73480a9..59e1f340 100644 --- a/Packing/Descriptions/OpenCL.predoc +++ b/Packing/Descriptions/OpenCL.predoc @@ -390,12 +390,15 @@ type public val: UInt64; public constructor(val: UInt64) := self.val := val; - public static property COMMAND_BUFFER_FLAGS: clCommandBufferProperties read new clCommandBufferProperties($1293); + public static property COMMAND_BUFFER_FLAGS: clCommandBufferProperties read new clCommandBufferProperties($1293); + public static property COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS: clCommandBufferProperties read new clCommandBufferProperties($12B7); public function ToString: string; override; begin if COMMAND_BUFFER_FLAGS = self then Result := 'COMMAND_BUFFER_FLAGS' else + if COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS = self then + Result := 'COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS' else Result := $'clCommandBufferProperties[{self.val}]'; end; @@ -2972,6 +2975,7 @@ type public static property VA_API_MEDIA_SURFACE_NOT_ACQUIRED: clErrorCode read new clErrorCode(-1101); public static property COMMAND_TERMINATED_ITSELF_WITH_FAILURE: clErrorCode read new clErrorCode(-1108); public static property CONTEXT_TERMINATED: clErrorCode read new clErrorCode(-1121); + public static property CANCELLED: clErrorCode read new clErrorCode(-1126); public static property INVALID_COMMAND_BUFFER: clErrorCode read new clErrorCode(-1138); public static property INVALID_SYNC_POINT_WAIT_LIST: clErrorCode read new clErrorCode(-1139); public static property INCOMPATIBLE_COMMAND_QUEUE: clErrorCode read new clErrorCode(-1140); @@ -3167,6 +3171,8 @@ type Result := 'COMMAND_TERMINATED_ITSELF_WITH_FAILURE' else if CONTEXT_TERMINATED = self then Result := 'CONTEXT_TERMINATED' else + if CANCELLED = self then + Result := 'CANCELLED' else if INVALID_COMMAND_BUFFER = self then Result := 'INVALID_COMMAND_BUFFER' else if INVALID_SYNC_POINT_WAIT_LIST = self then @@ -4469,11 +4475,14 @@ type public constructor(val: UInt64) := self.val := val; public static property MUTABLE_DISPATCH_UPDATABLE_FIELDS: clNDRangeKernelCommandProperties read new clNDRangeKernelCommandProperties($12B1); + public static property MUTABLE_DISPATCH_ASSERTS: clNDRangeKernelCommandProperties read new clNDRangeKernelCommandProperties($12B8); public function ToString: string; override; begin if MUTABLE_DISPATCH_UPDATABLE_FIELDS = self then Result := 'MUTABLE_DISPATCH_UPDATABLE_FIELDS' else + if MUTABLE_DISPATCH_ASSERTS = self then + Result := 'MUTABLE_DISPATCH_ASSERTS' else Result := $'clNDRangeKernelCommandProperties[{self.val}]'; end; @@ -14546,6 +14555,38 @@ type public const ExtensionString = 'cl_img_cached_allocations'; end; + {$ifndef DEBUG} + [System.Security.SuppressUnmanagedCodeSecurity] + {$endif DEBUG} + [PCUNotRestore] + /// + clCancelCommandIMG = sealed partial class + public constructor(pl: cl_platform_id); + private constructor := raise new System.NotSupportedException; + public static PlatformLess := new clCancelCommandIMG(default(cl_platform_id)); + private function GetProcAddress(name: string): IntPtr; + private static function GetProcOrNil(fadr: IntPtr) := + fadr=IntPtr.Zero ? default(T) : + Marshal.GetDelegateForFunctionPointer&(fadr); + public const ExtensionString = 'cl_img_cancel_command'; + + public CancelCommandsIMG_adr := GetProcAddress('clCancelCommandsIMG'); + private ntv_CancelCommandsIMG_1 := GetProcOrNil&(CancelCommandsIMG_adr); + private ntv_CancelCommandsIMG_2 := GetProcOrNil&(CancelCommandsIMG_adr); + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CancelCommandsIMG(event_list: array of cl_event; num_events_in_list: UIntPtr): clErrorCode; + type PCl_event = ^cl_event; + begin + Result := if (event_list<>nil) and (event_list.Length<>0) then + ntv_CancelCommandsIMG_1(event_list[0], num_events_in_list) else + ntv_CancelCommandsIMG_1(PCl_event(nil)^, num_events_in_list); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CancelCommandsIMG(var event_list: cl_event; num_events_in_list: UIntPtr): clErrorCode := + ntv_CancelCommandsIMG_1(event_list, num_events_in_list); + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CancelCommandsIMG(event_list: IntPtr; num_events_in_list: UIntPtr): clErrorCode := + ntv_CancelCommandsIMG_2(event_list, num_events_in_list); + + end; + {$ifndef DEBUG} [System.Security.SuppressUnmanagedCodeSecurity] {$endif DEBUG} @@ -19772,6 +19813,10 @@ type clMigrateMemobjectEXT = sealed partial class(cl_extension_base) end; constructor clMigrateMemobjectEXT.Create(pl: cl_platform_id) := inherited Create(pl); function clMigrateMemobjectEXT.GetProcAddress(name: string) := pl.GetProcAddress(name); +type clCancelCommandIMG = sealed partial class(cl_extension_base) end; +constructor clCancelCommandIMG.Create(pl: cl_platform_id) := inherited Create(pl); +function clCancelCommandIMG.GetProcAddress(name: string) := pl.GetProcAddress(name); + type clGenerateMipmapIMG = sealed partial class(cl_extension_base) end; constructor clGenerateMipmapIMG.Create(pl: cl_platform_id) := inherited Create(pl); function clGenerateMipmapIMG.GetProcAddress(name: string) := pl.GetProcAddress(name); diff --git a/Packing/Template/LowLvl/OpenCL/Extension.Implementation.template b/Packing/Template/LowLvl/OpenCL/Extension.Implementation.template index d008af38..c8e63ed6 100644 --- a/Packing/Template/LowLvl/OpenCL/Extension.Implementation.template +++ b/Packing/Template/LowLvl/OpenCL/Extension.Implementation.template @@ -37,6 +37,10 @@ type clMigrateMemobjectEXT = sealed partial class(cl_extension_base) end; constructor clMigrateMemobjectEXT.Create(pl: cl_platform_id) := inherited Create(pl); function clMigrateMemobjectEXT.GetProcAddress(name: string) := pl.GetProcAddress(name); +type clCancelCommandIMG = sealed partial class(cl_extension_base) end; +constructor clCancelCommandIMG.Create(pl: cl_platform_id) := inherited Create(pl); +function clCancelCommandIMG.GetProcAddress(name: string) := pl.GetProcAddress(name); + type clGenerateMipmapIMG = sealed partial class(cl_extension_base) end; constructor clGenerateMipmapIMG.Create(pl: cl_platform_id) := inherited Create(pl); function clGenerateMipmapIMG.GetProcAddress(name: string) := pl.GetProcAddress(name); diff --git a/Packing/Template/LowLvl/OpenCL/Extension.Interface.template b/Packing/Template/LowLvl/OpenCL/Extension.Interface.template index 8993f625..09feb596 100644 --- a/Packing/Template/LowLvl/OpenCL/Extension.Interface.template +++ b/Packing/Template/LowLvl/OpenCL/Extension.Interface.template @@ -1006,6 +1006,38 @@ public const ExtensionString = 'cl_img_cached_allocations'; end; + {$ifndef DEBUG} + [System.Security.SuppressUnmanagedCodeSecurity] + {$endif DEBUG} + [PCUNotRestore] + /// + clCancelCommandIMG = sealed partial class + public constructor(pl: cl_platform_id); + private constructor := raise new System.NotSupportedException; + public static PlatformLess := new clCancelCommandIMG(default(cl_platform_id)); + private function GetProcAddress(name: string): IntPtr; + private static function GetProcOrNil(fadr: IntPtr) := + fadr=IntPtr.Zero ? default(T) : + Marshal.GetDelegateForFunctionPointer&(fadr); + public const ExtensionString = 'cl_img_cancel_command'; + + public CancelCommandsIMG_adr := GetProcAddress('clCancelCommandsIMG'); + private ntv_CancelCommandsIMG_1 := GetProcOrNil&(CancelCommandsIMG_adr); + private ntv_CancelCommandsIMG_2 := GetProcOrNil&(CancelCommandsIMG_adr); + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CancelCommandsIMG(event_list: array of cl_event; num_events_in_list: UIntPtr): clErrorCode; + type PCl_event = ^cl_event; + begin + Result := if (event_list<>nil) and (event_list.Length<>0) then + ntv_CancelCommandsIMG_1(event_list[0], num_events_in_list) else + ntv_CancelCommandsIMG_1(PCl_event(nil)^, num_events_in_list); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CancelCommandsIMG(var event_list: cl_event; num_events_in_list: UIntPtr): clErrorCode := + ntv_CancelCommandsIMG_1(event_list, num_events_in_list); + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function CancelCommandsIMG(event_list: IntPtr; num_events_in_list: UIntPtr): clErrorCode := + ntv_CancelCommandsIMG_2(event_list, num_events_in_list); + + end; + {$ifndef DEBUG} [System.Security.SuppressUnmanagedCodeSecurity] {$endif DEBUG} diff --git a/Packing/Template/LowLvl/OpenCL/Log/All Extension's.log b/Packing/Template/LowLvl/OpenCL/Log/All Extension's.log index 0a783d0e..88c0c1cb 100644 --- a/Packing/Template/LowLvl/OpenCL/Log/All Extension's.log +++ b/Packing/Template/LowLvl/OpenCL/Log/All Extension's.log @@ -197,6 +197,10 @@ Enum [cl::MEM_USE_UNCACHED_CPU_MEMORY] Enum [cl::MEM_USE_CACHED_CPU_MEMORY] +# clCancelCommandIMG (cl_img_cancel_command) + Enum [cl::CANCELLED] + Func [cl::CancelCommands + IMG] + # clGenerateMipmapIMG (cl_img_generate_mipmap) Enum [cl::MIPMAP_FILTER_ANY] Enum [cl::MIPMAP_FILTER_BOX] @@ -658,6 +662,7 @@ Enum [cl::STRUCTURE_TYPE_MUTABLE_BASE_CONFIG] Enum [cl::MUTABLE_DISPATCH_GLOBAL_OFFSET] Enum [cl::STRUCTURE_TYPE_MUTABLE_DISPATCH_CONFIG] + Enum [cl::MUTABLE_DISPATCH_ASSERT_NO_ADDITIONAL_WORK_GROUPS] Enum [cl::COMMAND_BUFFER_MUTABLE] Enum [cl::MUTABLE_DISPATCH_GLOBAL_SIZE] Enum [cl::MUTABLE_DISPATCH_LOCAL_SIZE] @@ -674,6 +679,8 @@ Enum [cl::MUTABLE_COMMAND_COMMAND_TYPE] Enum [cl::DEVICE_MUTABLE_DISPATCH_CAPABILITIES] Enum [cl::MUTABLE_DISPATCH_UPDATABLE_FIELDS] + Enum [cl::COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS] + Enum [cl::MUTABLE_DISPATCH_ASSERTS] Func [cl::UpdateMutableCommands + KHR] Func [cl::GetMutableCommandInfo + KHR] diff --git a/Packing/Template/LowLvl/OpenCL/Log/All Func's.log b/Packing/Template/LowLvl/OpenCL/Log/All Func's.log index 477301c1..fada486b 100644 --- a/Packing/Template/LowLvl/OpenCL/Log/All Func's.log +++ b/Packing/Template/LowLvl/OpenCL/Log/All Func's.log @@ -3019,6 +3019,19 @@ device: cl_device_id ----------- | ------------ | | device | +# cl::CancelCommands + IMG +!ppt +Result: clErrorCode +event_list: array of cl_event const / var cl_event const / IntPtr const +num_events_in_list: UIntPtr +!ffo +3 + clErrorCode | array of cl_event const | UIntPtr | + clErrorCode | var cl_event const | UIntPtr | + clErrorCode | IntPtr const | UIntPtr | + ----------- | ----------------------- | ------------------ | + | event_list | num_events_in_list | + # cl::EnqueueAcquireGrallocObjects + IMG !ppt Result: clErrorCode diff --git a/Packing/Template/LowLvl/OpenCL/Log/All Group's.log b/Packing/Template/LowLvl/OpenCL/Log/All Group's.log index e85a3bef..d61620f5 100644 --- a/Packing/Template/LowLvl/OpenCL/Log/All Group's.log +++ b/Packing/Template/LowLvl/OpenCL/Log/All Group's.log @@ -109,6 +109,7 @@ # clCommandBufferProperties (cl::CommandBufferProperties) : UInt64 COMMAND_BUFFER_FLAGS[$1293] + COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS[$12B7] # clCommandBufferState (cl::CommandBufferState) : UInt32 COMMAND_BUFFER_STATE_RECORDING[0] @@ -738,6 +739,7 @@ VA_API_MEDIA_SURFACE_NOT_ACQUIRED[-1101] COMMAND_TERMINATED_ITSELF_WITH_FAILURE[-1108] CONTEXT_TERMINATED[-1121] + CANCELLED[-1126] INVALID_COMMAND_BUFFER[-1138] INVALID_SYNC_POINT_WAIT_LIST[-1139] INCOMPATIBLE_COMMAND_QUEUE[-1140] @@ -1021,6 +1023,9 @@ MUTABLE_DISPATCH_LOCAL_WORK_SIZE[$12A7] MUTABLE_COMMAND_COMMAND_TYPE[$12AD] +# clMutableDispatchAsserts (cl::MutableDispatchAsserts) : UInt64 (Bitfield) + MUTABLE_DISPATCH_ASSERT_NO_ADDITIONAL_WORK_GROUPS[1 shl 0] + # clMutableDispatchFields (cl::MutableDispatchFields) : UInt64 (Bitfield) MUTABLE_DISPATCH_GLOBAL_OFFSET[1 shl 0] MUTABLE_DISPATCH_GLOBAL_SIZE[1 shl 1] @@ -1030,6 +1035,7 @@ # clNDRangeKernelCommandProperties (cl::NDRangeKernelCommandProperties) : UInt64 MUTABLE_DISPATCH_UPDATABLE_FIELDS[$12B1] + MUTABLE_DISPATCH_ASSERTS[$12B8] # clPipeInfo (cl::PipeInfo) : UInt32 PIPE_PACKET_SIZE[$1120] diff --git a/Packing/Template/LowLvl/OpenCL/Log/All ObjPropList's.log b/Packing/Template/LowLvl/OpenCL/Log/All ObjPropList's.log index a9acb32f..eef61ab9 100644 --- a/Packing/Template/LowLvl/OpenCL/Log/All ObjPropList's.log +++ b/Packing/Template/LowLvl/OpenCL/Log/All ObjPropList's.log @@ -5,6 +5,9 @@ --- COMMAND_BUFFER_FLAGS !type clCommandBufferFlags +--- COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS +!type +clMutableDispatchAsserts # clContextProperties --- CONTEXT_PLATFORM @@ -128,6 +131,9 @@ IntPtr --- MUTABLE_DISPATCH_UPDATABLE_FIELDS !type clMutableDispatchFields +--- MUTABLE_DISPATCH_ASSERTS +!type +clMutableDispatchAsserts # clQueueProperties --- QUEUE_PRIORITY diff --git a/Packing/Template/LowLvl/OpenCL/Log/Essentials.log b/Packing/Template/LowLvl/OpenCL/Log/Essentials.log index 26abd565..53c17ec1 100644 --- a/Packing/Template/LowLvl/OpenCL/Log/Essentials.log +++ b/Packing/Template/LowLvl/OpenCL/Log/Essentials.log @@ -108,7 +108,7 @@ Group: Packed 112 items IdClass: Packed 28 items Struct: Packed 17 items Delegate: Packed 7 items -Func: Packed 240 items +Func: Packed 241 items Feature: Packed 1 items -Extension: Packed 104 items +Extension: Packed 105 items Cleanup diff --git a/Packing/Template/LowLvl/OpenCL/Types.Interface.template b/Packing/Template/LowLvl/OpenCL/Types.Interface.template index 03d566b5..d4185f00 100644 --- a/Packing/Template/LowLvl/OpenCL/Types.Interface.template +++ b/Packing/Template/LowLvl/OpenCL/Types.Interface.template @@ -356,12 +356,15 @@ public val: UInt64; public constructor(val: UInt64) := self.val := val; - public static property COMMAND_BUFFER_FLAGS: clCommandBufferProperties read new clCommandBufferProperties($1293); + public static property COMMAND_BUFFER_FLAGS: clCommandBufferProperties read new clCommandBufferProperties($1293); + public static property COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS: clCommandBufferProperties read new clCommandBufferProperties($12B7); public function ToString: string; override; begin if COMMAND_BUFFER_FLAGS = self then Result := 'COMMAND_BUFFER_FLAGS' else + if COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS = self then + Result := 'COMMAND_BUFFER_MUTABLE_DISPATCH_ASSERTS' else Result := $'clCommandBufferProperties[{self.val}]'; end; @@ -2938,6 +2941,7 @@ public static property VA_API_MEDIA_SURFACE_NOT_ACQUIRED: clErrorCode read new clErrorCode(-1101); public static property COMMAND_TERMINATED_ITSELF_WITH_FAILURE: clErrorCode read new clErrorCode(-1108); public static property CONTEXT_TERMINATED: clErrorCode read new clErrorCode(-1121); + public static property CANCELLED: clErrorCode read new clErrorCode(-1126); public static property INVALID_COMMAND_BUFFER: clErrorCode read new clErrorCode(-1138); public static property INVALID_SYNC_POINT_WAIT_LIST: clErrorCode read new clErrorCode(-1139); public static property INCOMPATIBLE_COMMAND_QUEUE: clErrorCode read new clErrorCode(-1140); @@ -3133,6 +3137,8 @@ Result := 'COMMAND_TERMINATED_ITSELF_WITH_FAILURE' else if CONTEXT_TERMINATED = self then Result := 'CONTEXT_TERMINATED' else + if CANCELLED = self then + Result := 'CANCELLED' else if INVALID_COMMAND_BUFFER = self then Result := 'INVALID_COMMAND_BUFFER' else if INVALID_SYNC_POINT_WAIT_LIST = self then @@ -4435,11 +4441,14 @@ public constructor(val: UInt64) := self.val := val; public static property MUTABLE_DISPATCH_UPDATABLE_FIELDS: clNDRangeKernelCommandProperties read new clNDRangeKernelCommandProperties($12B1); + public static property MUTABLE_DISPATCH_ASSERTS: clNDRangeKernelCommandProperties read new clNDRangeKernelCommandProperties($12B8); public function ToString: string; override; begin if MUTABLE_DISPATCH_UPDATABLE_FIELDS = self then Result := 'MUTABLE_DISPATCH_UPDATABLE_FIELDS' else + if MUTABLE_DISPATCH_ASSERTS = self then + Result := 'MUTABLE_DISPATCH_ASSERTS' else Result := $'clNDRangeKernelCommandProperties[{self.val}]'; end;