Skip to content

Commit

Permalink
Pull upstream
Browse files Browse the repository at this point in the history
  • Loading branch information
@SunSerega
SunSerega committed Jan 14, 2025
1 parent 382bedf commit e125deb
Show file tree
Hide file tree
Showing 17 changed files with 65 additions and 26 deletions.
2 changes: 1 addition & 1 deletion DataScraping/Reps/OpenCL-Docs
Submodule OpenCL-Docs updated from 36015e to e868bb
2 changes: 1 addition & 1 deletion DataScraping/Reps/OpenGL-Registry
Submodule OpenGL-Registry updated from 0bb366 to f794e0
Binary file modified DataScraping/XML/OpenCL/funcs.bin
View file
Binary file not shown.
1 change: 1 addition & 0 deletions DataScraping/XML/OpenCL/vendors.dat
View file
Original file line number Diff line number Diff line change
Expand Up @@ -16,6 +16,7 @@ Altera =
Khronos SPIR WG =
Codeplay =
Google =
Mastiṣka AI =

Multiple =

Expand Down
19 changes: 12 additions & 7 deletions Modules.Packed/OpenCL.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1338,7 +1338,6 @@ clDeviceCommandBufferCapabilities = record
public static property COMMAND_BUFFER_CAPABILITY_KERNEL_PRINTF: clDeviceCommandBufferCapabilities read new clDeviceCommandBufferCapabilities(1 shl 0);
public static property COMMAND_BUFFER_CAPABILITY_DEVICE_SIDE_ENQUEUE: clDeviceCommandBufferCapabilities read new clDeviceCommandBufferCapabilities(1 shl 1);
public static property COMMAND_BUFFER_CAPABILITY_SIMULTANEOUS_USE: clDeviceCommandBufferCapabilities read new clDeviceCommandBufferCapabilities(1 shl 2);
public static property COMMAND_BUFFER_CAPABILITY_OUT_OF_ORDER: clDeviceCommandBufferCapabilities read new clDeviceCommandBufferCapabilities(1 shl 3);
public static property COMMAND_BUFFER_CAPABILITY_MULTIPLE_QUEUE: clDeviceCommandBufferCapabilities read new clDeviceCommandBufferCapabilities(1 shl 4);

public static function operator+(v1, v2: clDeviceCommandBufferCapabilities) := new clDeviceCommandBufferCapabilities(v1.val or v2.val);
Expand Down Expand Up @@ -1375,11 +1374,6 @@ clDeviceCommandBufferCapabilities = record
res += 'COMMAND_BUFFER_CAPABILITY_SIMULTANEOUS_USE+';
left_val := left_val and not COMMAND_BUFFER_CAPABILITY_SIMULTANEOUS_USE.val;
end;
if COMMAND_BUFFER_CAPABILITY_OUT_OF_ORDER in self then
begin
res += 'COMMAND_BUFFER_CAPABILITY_OUT_OF_ORDER+';
left_val := left_val and not COMMAND_BUFFER_CAPABILITY_OUT_OF_ORDER.val;
end;
if COMMAND_BUFFER_CAPABILITY_MULTIPLE_QUEUE in self then
begin
res += 'COMMAND_BUFFER_CAPABILITY_MULTIPLE_QUEUE+';
Expand Down Expand Up @@ -1833,6 +1827,7 @@ clDeviceInfo = record
public static property DEVICE_INTEGER_DOT_PRODUCT_ACCELERATION_PROPERTIES_8BIT: clDeviceInfo read new clDeviceInfo($1074);
public static property DEVICE_INTEGER_DOT_PRODUCT_ACCELERATION_PROPERTIES_4x8BIT_PACKED: clDeviceInfo read new clDeviceInfo($1075);
public static property DEVICE_KERNEL_CLOCK_CAPABILITIES: clDeviceInfo read new clDeviceInfo($1076);
public static property DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES: clDeviceInfo read new clDeviceInfo($129A);
public static property DEVICE_COMMAND_BUFFER_CAPABILITIES: clDeviceInfo read new clDeviceInfo($12A9);
public static property DEVICE_COMMAND_BUFFER_REQUIRED_QUEUE_PROPERTIES: clDeviceInfo read new clDeviceInfo($12AA);
public static property DEVICE_COMMAND_BUFFER_NUM_SYNC_DEVICES: clDeviceInfo read new clDeviceInfo($12AB);
Expand Down Expand Up @@ -2157,6 +2152,8 @@ clDeviceInfo = record
Result := 'DEVICE_INTEGER_DOT_PRODUCT_ACCELERATION_PROPERTIES_4x8BIT_PACKED' else
if DEVICE_KERNEL_CLOCK_CAPABILITIES = self then
Result := 'DEVICE_KERNEL_CLOCK_CAPABILITIES' else
if DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES = self then
Result := 'DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES' else
if DEVICE_COMMAND_BUFFER_CAPABILITIES = self then
Result := 'DEVICE_COMMAND_BUFFER_CAPABILITIES' else
if DEVICE_COMMAND_BUFFER_REQUIRED_QUEUE_PROPERTIES = self then
Expand Down Expand Up @@ -11002,6 +10999,14 @@ cl_queue_family_properties = record
if param_value_validate_size and (param_value_ret_size<>param_value_sz) then
raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}');
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceInfo_DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES(device: cl_device_id; var param_value: clCommandQueueProperties; param_value_validate_size: boolean := false): clErrorCode;
begin
var param_value_sz := new UIntPtr(Marshal.SizeOf&<clCommandQueueProperties>);
var param_value_ret_size: UIntPtr;
Result := GetDeviceInfo(device, clDeviceInfo.DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES, param_value_sz,param_value,param_value_ret_size);
if param_value_validate_size and (param_value_ret_size<>param_value_sz) then
raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}');
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceInfo_DEVICE_COMMAND_BUFFER_CAPABILITIES(device: cl_device_id; var param_value: clDeviceCommandBufferCapabilities; param_value_validate_size: boolean := false): clErrorCode;
begin
var param_value_sz := new UIntPtr(Marshal.SizeOf&<clDeviceCommandBufferCapabilities>);
Expand Down Expand Up @@ -16445,7 +16450,7 @@ cl_queue_family_properties = record
{$endif DEBUG}
[PCUNotRestore]
/// id: cl_khr_command_buffer
/// version: 0.9.5 (provisional)
/// version: 0.9.6 (provisional)
/// core dependency: cl 1.2
clCommandBufferKHR = sealed partial class
public constructor(pl: cl_platform_id);
Expand Down
6 changes: 6 additions & 0 deletions Modules.Packed/OpenCLABC.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2233,6 +2233,10 @@ CLDeviceProperties = class
begin
cl.GetDeviceInfo_DEVICE_COMMAND_BUFFER_CAPABILITIES(self.ntv, Result).RaiseIfError;
end;
private function GetCommandBufferSupportedQueueProperties: clCommandQueueProperties;
begin
cl.GetDeviceInfo_DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES(self.ntv, Result).RaiseIfError;
end;
private function GetCommandBufferRequiredQueueProperties: clCommandQueueProperties;
begin
cl.GetDeviceInfo_DEVICE_COMMAND_BUFFER_REQUIRED_QUEUE_PROPERTIES(self.ntv, Result).RaiseIfError;
Expand Down Expand Up @@ -2593,6 +2597,7 @@ CLDeviceProperties = class
public property IntegerDotProductAccelerationProperties8bit: cl_device_integer_dot_product_acceleration_properties read GetIntegerDotProductAccelerationProperties8bit;
public property IntegerDotProductAccelerationProperties4x8bitPacked: cl_device_integer_dot_product_acceleration_properties read GetIntegerDotProductAccelerationProperties4x8bitPacked;
public property CommandBufferCapabilities: clDeviceCommandBufferCapabilities read GetCommandBufferCapabilities;
public property CommandBufferSupportedQueueProperties: clCommandQueueProperties read GetCommandBufferSupportedQueueProperties;
public property CommandBufferRequiredQueueProperties: clCommandQueueProperties read GetCommandBufferRequiredQueueProperties;
public property CommandBufferNumSyncDevices: UInt32 read GetCommandBufferNumSyncDevices;
public property CommandBufferSyncDevices: array of cl_device_id read GetCommandBufferSyncDevices;
Expand Down Expand Up @@ -2782,6 +2787,7 @@ CLDeviceProperties = class
res += 'IntegerDotProductAccelerationProperties8bit = '; AddProp(res, GetIntegerDotProductAccelerationProperties8bit ); res += #10;
res += 'IntegerDotProductAccelerationProperties4x8bitPacked = '; AddProp(res, GetIntegerDotProductAccelerationProperties4x8bitPacked); res += #10;
res += 'CommandBufferCapabilities = '; AddProp(res, GetCommandBufferCapabilities ); res += #10;
res += 'CommandBufferSupportedQueueProperties = '; AddProp(res, GetCommandBufferSupportedQueueProperties ); res += #10;
res += 'CommandBufferRequiredQueueProperties = '; AddProp(res, GetCommandBufferRequiredQueueProperties ); res += #10;
res += 'CommandBufferNumSyncDevices = '; AddProp(res, GetCommandBufferNumSyncDevices ); res += #10;
res += 'CommandBufferSyncDevices = '; AddProp(res, GetCommandBufferSyncDevices ); res += #10;
Expand Down
19 changes: 12 additions & 7 deletions Packing/Descriptions/OpenCL.predoc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1330,7 +1330,6 @@ type
public static property COMMAND_BUFFER_CAPABILITY_KERNEL_PRINTF: clDeviceCommandBufferCapabilities read new clDeviceCommandBufferCapabilities(1 shl 0);
public static property COMMAND_BUFFER_CAPABILITY_DEVICE_SIDE_ENQUEUE: clDeviceCommandBufferCapabilities read new clDeviceCommandBufferCapabilities(1 shl 1);
public static property COMMAND_BUFFER_CAPABILITY_SIMULTANEOUS_USE: clDeviceCommandBufferCapabilities read new clDeviceCommandBufferCapabilities(1 shl 2);
public static property COMMAND_BUFFER_CAPABILITY_OUT_OF_ORDER: clDeviceCommandBufferCapabilities read new clDeviceCommandBufferCapabilities(1 shl 3);
public static property COMMAND_BUFFER_CAPABILITY_MULTIPLE_QUEUE: clDeviceCommandBufferCapabilities read new clDeviceCommandBufferCapabilities(1 shl 4);

public static function operator+(v1, v2: clDeviceCommandBufferCapabilities) := new clDeviceCommandBufferCapabilities(v1.val or v2.val);
Expand Down Expand Up @@ -1367,11 +1366,6 @@ type
res += 'COMMAND_BUFFER_CAPABILITY_SIMULTANEOUS_USE+';
left_val := left_val and not COMMAND_BUFFER_CAPABILITY_SIMULTANEOUS_USE.val;
end;
if COMMAND_BUFFER_CAPABILITY_OUT_OF_ORDER in self then
begin
res += 'COMMAND_BUFFER_CAPABILITY_OUT_OF_ORDER+';
left_val := left_val and not COMMAND_BUFFER_CAPABILITY_OUT_OF_ORDER.val;
end;
if COMMAND_BUFFER_CAPABILITY_MULTIPLE_QUEUE in self then
begin
res += 'COMMAND_BUFFER_CAPABILITY_MULTIPLE_QUEUE+';
Expand Down Expand Up @@ -1825,6 +1819,7 @@ type
public static property DEVICE_INTEGER_DOT_PRODUCT_ACCELERATION_PROPERTIES_8BIT: clDeviceInfo read new clDeviceInfo($1074);
public static property DEVICE_INTEGER_DOT_PRODUCT_ACCELERATION_PROPERTIES_4x8BIT_PACKED: clDeviceInfo read new clDeviceInfo($1075);
public static property DEVICE_KERNEL_CLOCK_CAPABILITIES: clDeviceInfo read new clDeviceInfo($1076);
public static property DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES: clDeviceInfo read new clDeviceInfo($129A);
public static property DEVICE_COMMAND_BUFFER_CAPABILITIES: clDeviceInfo read new clDeviceInfo($12A9);
public static property DEVICE_COMMAND_BUFFER_REQUIRED_QUEUE_PROPERTIES: clDeviceInfo read new clDeviceInfo($12AA);
public static property DEVICE_COMMAND_BUFFER_NUM_SYNC_DEVICES: clDeviceInfo read new clDeviceInfo($12AB);
Expand Down Expand Up @@ -2149,6 +2144,8 @@ type
Result := 'DEVICE_INTEGER_DOT_PRODUCT_ACCELERATION_PROPERTIES_4x8BIT_PACKED' else
if DEVICE_KERNEL_CLOCK_CAPABILITIES = self then
Result := 'DEVICE_KERNEL_CLOCK_CAPABILITIES' else
if DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES = self then
Result := 'DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES' else
if DEVICE_COMMAND_BUFFER_CAPABILITIES = self then
Result := 'DEVICE_COMMAND_BUFFER_CAPABILITIES' else
if DEVICE_COMMAND_BUFFER_REQUIRED_QUEUE_PROPERTIES = self then
Expand Down Expand Up @@ -10990,6 +10987,14 @@ type
if param_value_validate_size and (param_value_ret_size<>param_value_sz) then
raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}');
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceInfo_DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES(device: cl_device_id; var param_value: clCommandQueueProperties; param_value_validate_size: boolean := false): clErrorCode;
begin
var param_value_sz := new UIntPtr(Marshal.SizeOf&<clCommandQueueProperties>);
var param_value_ret_size: UIntPtr;
Result := GetDeviceInfo(device, clDeviceInfo.DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES, param_value_sz,param_value,param_value_ret_size);
if param_value_validate_size and (param_value_ret_size<>param_value_sz) then
raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}');
end;
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetDeviceInfo_DEVICE_COMMAND_BUFFER_CAPABILITIES(device: cl_device_id; var param_value: clDeviceCommandBufferCapabilities; param_value_validate_size: boolean := false): clErrorCode;
begin
var param_value_sz := new UIntPtr(Marshal.SizeOf&<clDeviceCommandBufferCapabilities>);
Expand Down Expand Up @@ -16433,7 +16438,7 @@ type
{$endif DEBUG}
[PCUNotRestore]
/// id: cl_khr_command_buffer
/// version: 0.9.5 (provisional)
/// version: 0.9.6 (provisional)
/// core dependency: cl 1.2
clCommandBufferKHR = sealed partial class
public constructor(pl: cl_platform_id);
Expand Down
6 changes: 6 additions & 0 deletions Packing/Descriptions/OpenCLABC.predoc
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2122,6 +2122,10 @@ type
begin
cl.GetDeviceInfo_DEVICE_COMMAND_BUFFER_CAPABILITIES(self.ntv, Result).RaiseIfError;
end;
private function GetCommandBufferSupportedQueueProperties: clCommandQueueProperties;
begin
cl.GetDeviceInfo_DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES(self.ntv, Result).RaiseIfError;
end;
private function GetCommandBufferRequiredQueueProperties: clCommandQueueProperties;
begin
cl.GetDeviceInfo_DEVICE_COMMAND_BUFFER_REQUIRED_QUEUE_PROPERTIES(self.ntv, Result).RaiseIfError;
Expand Down Expand Up @@ -2482,6 +2486,7 @@ type
public property IntegerDotProductAccelerationProperties8bit: cl_device_integer_dot_product_acceleration_properties read GetIntegerDotProductAccelerationProperties8bit;
public property IntegerDotProductAccelerationProperties4x8bitPacked: cl_device_integer_dot_product_acceleration_properties read GetIntegerDotProductAccelerationProperties4x8bitPacked;
public property CommandBufferCapabilities: clDeviceCommandBufferCapabilities read GetCommandBufferCapabilities;
public property CommandBufferSupportedQueueProperties: clCommandQueueProperties read GetCommandBufferSupportedQueueProperties;
public property CommandBufferRequiredQueueProperties: clCommandQueueProperties read GetCommandBufferRequiredQueueProperties;
public property CommandBufferNumSyncDevices: UInt32 read GetCommandBufferNumSyncDevices;
public property CommandBufferSyncDevices: array of cl_device_id read GetCommandBufferSyncDevices;
Expand Down Expand Up @@ -2671,6 +2676,7 @@ type
res += 'IntegerDotProductAccelerationProperties8bit = '; AddProp(res, GetIntegerDotProductAccelerationProperties8bit ); res += #10;
res += 'IntegerDotProductAccelerationProperties4x8bitPacked = '; AddProp(res, GetIntegerDotProductAccelerationProperties4x8bitPacked); res += #10;
res += 'CommandBufferCapabilities = '; AddProp(res, GetCommandBufferCapabilities ); res += #10;
res += 'CommandBufferSupportedQueueProperties = '; AddProp(res, GetCommandBufferSupportedQueueProperties ); res += #10;
res += 'CommandBufferRequiredQueueProperties = '; AddProp(res, GetCommandBufferRequiredQueueProperties ); res += #10;
res += 'CommandBufferNumSyncDevices = '; AddProp(res, GetCommandBufferNumSyncDevices ); res += #10;
res += 'CommandBufferSyncDevices = '; AddProp(res, GetCommandBufferSyncDevices ); res += #10;
Expand Down
1 change: 1 addition & 0 deletions Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/02#CLDevice.dat
View file
Original file line number Diff line number Diff line change
Expand Up @@ -123,6 +123,7 @@ cl.GetDeviceInfo
# INTEGER_DOT_PRODUCT_ACCELERATION_PROPERTIES_8BIT
# INTEGER_DOT_PRODUCT_ACCELERATION_PROPERTIES_4x8BIT_PACKED
# COMMAND_BUFFER_CAPABILITIES
# COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES
# COMMAND_BUFFER_REQUIRED_QUEUE_PROPERTIES
# COMMAND_BUFFER_NUM_SYNC_DEVICES
# COMMAND_BUFFER_SYNC_DEVICES
Expand Down
6 changes: 6 additions & 0 deletions Packing/Template/HighLvl/OpenCLABC/WrapperProperties.template
View file
Original file line number Diff line number Diff line change
Expand Up @@ -602,6 +602,10 @@
begin
cl.GetDeviceInfo_DEVICE_COMMAND_BUFFER_CAPABILITIES(self.ntv, Result).RaiseIfError;
end;
private function GetCommandBufferSupportedQueueProperties: clCommandQueueProperties;
begin
cl.GetDeviceInfo_DEVICE_COMMAND_BUFFER_SUPPORTED_QUEUE_PROPERTIES(self.ntv, Result).RaiseIfError;
end;
private function GetCommandBufferRequiredQueueProperties: clCommandQueueProperties;
begin
cl.GetDeviceInfo_DEVICE_COMMAND_BUFFER_REQUIRED_QUEUE_PROPERTIES(self.ntv, Result).RaiseIfError;
Expand Down Expand Up @@ -962,6 +966,7 @@
public property IntegerDotProductAccelerationProperties8bit: cl_device_integer_dot_product_acceleration_properties read GetIntegerDotProductAccelerationProperties8bit;
public property IntegerDotProductAccelerationProperties4x8bitPacked: cl_device_integer_dot_product_acceleration_properties read GetIntegerDotProductAccelerationProperties4x8bitPacked;
public property CommandBufferCapabilities: clDeviceCommandBufferCapabilities read GetCommandBufferCapabilities;
public property CommandBufferSupportedQueueProperties: clCommandQueueProperties read GetCommandBufferSupportedQueueProperties;
public property CommandBufferRequiredQueueProperties: clCommandQueueProperties read GetCommandBufferRequiredQueueProperties;
public property CommandBufferNumSyncDevices: UInt32 read GetCommandBufferNumSyncDevices;
public property CommandBufferSyncDevices: array of cl_device_id read GetCommandBufferSyncDevices;
Expand Down Expand Up @@ -1151,6 +1156,7 @@
res += 'IntegerDotProductAccelerationProperties8bit = '; AddProp(res, GetIntegerDotProductAccelerationProperties8bit ); res += #10;
res += 'IntegerDotProductAccelerationProperties4x8bitPacked = '; AddProp(res, GetIntegerDotProductAccelerationProperties4x8bitPacked); res += #10;
res += 'CommandBufferCapabilities = '; AddProp(res, GetCommandBufferCapabilities ); res += #10;
res += 'CommandBufferSupportedQueueProperties = '; AddProp(res, GetCommandBufferSupportedQueueProperties ); res += #10;
res += 'CommandBufferRequiredQueueProperties = '; AddProp(res, GetCommandBufferRequiredQueueProperties ); res += #10;
res += 'CommandBufferNumSyncDevices = '; AddProp(res, GetCommandBufferNumSyncDevices ); res += #10;
res += 'CommandBufferSyncDevices = '; AddProp(res, GetCommandBufferSyncDevices ); res += #10;
Expand Down
2 changes: 1 addition & 1 deletion Packing/Template/LowLvl/OpenCL/Extension.Interface.template
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2820,7 +2820,7 @@
{$endif DEBUG}
[PCUNotRestore]
/// id: cl_khr_command_buffer
/// version: 0.9.5 (provisional)
/// version: 0.9.6 (provisional)
/// core dependency: cl 1.2
clCommandBufferKHR = sealed partial class
public constructor(pl: cl_platform_id);
Expand Down
Loading

0 comments on commit e125deb

Please sign in to comment.