administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

a[^1,^1]

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2021-02-17 21:29:33 +03:00
parent 79d98ae70d
commit 55a09ac403
11 changed files with 9606 additions and 194 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -15,7 +15,7 @@ internal static class RevisionClass
public const string Major = "3";
public const string Minor = "7";
public const string Build = "2";
public const string Revision = "2820";
public const string Revision = "2821";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=2
%REVISION%=2820
%MINOR%=7
%REVISION%=2821
%COREVERSION%=2
%MAJOR%=3

BIN
Localization/DefaultLang.resources
View file

Binary file not shown.

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.7.2.2820
3.7.2.2821

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.7.2.2820'
!define VERSION '3.7.2.2821'

20
SyntaxVisitors/SugarVisitors/IndexVisitor.cs
View file

@ -37,14 +37,26 @@ namespace SyntaxVisitors.SugarVisitors
var possibleIndexer = ind.Parent?.Parent;
if (possibleIndexer != null && possibleIndexer is indexer indexer)
{
var reverseIndexMethodParams = new expression_list(indexer.dereferencing_value, ind.source_context);
mc =
new method_call(
// Надо подняться до узла indexer и запомнить индекс, под которым данный index входит
// Идём по Parent - и смотрим, когда Parent = indexer
// Находим у него expressions и ищем, под каким индексом в нем содержится текущий.
// Запоминаем это целое число и передаем его последним параметром в Reverse если expressions.Count > 1
expression_list reverseIndexMethodParams = null;
if (indexer.indexes.expressions.Count == 1)
reverseIndexMethodParams = new expression_list(indexer.dereferencing_value, ind.source_context);
else
{
var i = indexer.indexes.expressions.FindIndex(x => x == ind);
if (i >= 0)
reverseIndexMethodParams = new expression_list(new List<expression> { indexer.dereferencing_value, new int32_const(i) }, ind.source_context);
}
mc = new method_call(
new dot_node(indexCreation, new ident("Reverse", ind.source_context)),
reverseIndexMethodParams,
ind.source_context);
}
else
else // Это непонятная ветка. Она наступает в частности если индексер не находится на 2 уровня выше, что бывает в случае индекса вида a[1..^1]
{
mc = indexCreation;
}

305
TestSuite/CompilationSamples/OpenCL.pas
View file

@ -1500,6 +1500,10 @@ type
public static property PIPE_FULL_INTEL: ErrorCode read new ErrorCode(-1106);
public static property PIPE_EMPTY_INTEL: ErrorCode read new ErrorCode(-1107);
public static property CONTEXT_TERMINATED_KHR: ErrorCode read new ErrorCode(-1121);
public static property ERROR_RESERVED0_IMG: ErrorCode read new ErrorCode(-1122);
public static property ERROR_RESERVED1_IMG: ErrorCode read new ErrorCode(-1123);
public static property ERROR_RESERVED2_IMG: ErrorCode read new ErrorCode(-1124);
public static property ERROR_RESERVED3_IMG: ErrorCode read new ErrorCode(-1125);
public static property NV_KERNEL_ILLEGAL_BUFFER_READ_WRITE: ErrorCode read new ErrorCode(-9999);
public function ToString: string; override;
@ -1601,6 +1605,10 @@ type
if self.val = Int32(-1106) then Result := 'PIPE_FULL_INTEL' else
if self.val = Int32(-1107) then Result := 'PIPE_EMPTY_INTEL' else
if self.val = Int32(-1121) then Result := 'CONTEXT_TERMINATED_KHR' else
if self.val = Int32(-1122) then Result := 'ERROR_RESERVED0_IMG' else
if self.val = Int32(-1123) then Result := 'ERROR_RESERVED1_IMG' else
if self.val = Int32(-1124) then Result := 'ERROR_RESERVED2_IMG' else
if self.val = Int32(-1125) then Result := 'ERROR_RESERVED3_IMG' else
if self.val = Int32(-9999) then Result := 'NV_KERNEL_ILLEGAL_BUFFER_READ_WRITE' else
Result := $'ErrorCode[{self.val}]';
end;
@ -2007,6 +2015,20 @@ type
end;
LayerInfo = record
public val: UInt32;
public constructor(val: UInt32) := self.val := val;
public static property LAYER_API_VERSION: LayerInfo read new LayerInfo($4240);
public function ToString: string; override;
begin
if self.val = UInt32($4240) then Result := 'LAYER_API_VERSION' else
Result := $'LayerInfo[{self.val}]';
end;
end;
MapFlags = record
public val: UInt64;
public constructor(val: UInt64) := self.val := val;
@ -7132,13 +7154,13 @@ type
external 'opencl.dll' name 'clGetProgramInfo';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramInfo(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: cl_device_id; param_value_size_ret: IntPtr): ErrorCode :=
z_GetProgramInfo_ovr_5(&program, param_name, param_value_size, param_value, param_value_size_ret);
private static function z_GetProgramInfo_ovr_6(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
private static function z_GetProgramInfo_ovr_6(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
external 'opencl.dll' name 'clGetProgramInfo';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramInfo(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramInfo(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
z_GetProgramInfo_ovr_6(&program, param_name, param_value_size, param_value, param_value_size_ret);
private static function z_GetProgramInfo_ovr_7(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
private static function z_GetProgramInfo_ovr_7(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
external 'opencl.dll' name 'clGetProgramInfo';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramInfo(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProgramInfo(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
z_GetProgramInfo_ovr_7(&program, param_name, param_value_size, param_value, param_value_size_ret);
private static function z_GetProgramInfo_ovr_8(&program: cl_program; param_name: ProgramInfo; param_value_size: UIntPtr; var param_value: UIntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
external 'opencl.dll' name 'clGetProgramInfo';
@ -9880,6 +9902,83 @@ type
end;
[PCUNotRestore]
[System.Security.SuppressUnmanagedCodeSecurity]
clLoaderLayers = static class
public const _ExtStr = 'loader_layers';
private static function z_GetLayerInfo_ovr_0(param_value_size: UIntPtr; param_name: LayerInfo; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode;
external 'opencl.dll' name 'clGetLayerInfo';
private static function z_GetLayerInfo_ovr_0_anh00001(param_value_size: UIntPtr; param_name: LayerInfo; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
external 'opencl.dll' name 'clGetLayerInfo';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerInfo(param_value_size: UIntPtr; param_name: LayerInfo; param_value: IntPtr; param_value_size_ret: array of UIntPtr): ErrorCode :=
if (param_value_size_ret<>nil) and (param_value_size_ret.Length<>0) then
z_GetLayerInfo_ovr_0(param_value_size, param_name, param_value, param_value_size_ret[0]) else
z_GetLayerInfo_ovr_0_anh00001(param_value_size, param_name, param_value, IntPtr.Zero);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerInfo(param_value_size: UIntPtr; param_name: LayerInfo; param_value: IntPtr; var param_value_size_ret: UIntPtr): ErrorCode :=
z_GetLayerInfo_ovr_0(param_value_size, param_name, param_value, param_value_size_ret);
private static function z_GetLayerInfo_ovr_2(param_value_size: UIntPtr; param_name: LayerInfo; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode;
external 'opencl.dll' name 'clGetLayerInfo';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetLayerInfo(param_value_size: UIntPtr; param_name: LayerInfo; param_value: IntPtr; param_value_size_ret: IntPtr): ErrorCode :=
z_GetLayerInfo_ovr_2(param_value_size, param_name, param_value, param_value_size_ret);
private static function z_InitLayer_ovr_0(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; var layer_dispatch: IntPtr): ErrorCode;
external 'opencl.dll' name 'clInitLayer';
private static function z_InitLayer_ovr_0_anh00010(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; var layer_dispatch: IntPtr): ErrorCode;
external 'opencl.dll' name 'clInitLayer';
private static function z_InitLayer_ovr_0_anh00001(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; layer_dispatch: IntPtr): ErrorCode;
external 'opencl.dll' name 'clInitLayer';
private static function z_InitLayer_ovr_0_anh00011(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: IntPtr): ErrorCode;
external 'opencl.dll' name 'clInitLayer';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: array of UInt32; layer_dispatch: array of IntPtr): ErrorCode :=
if (num_entries_ret<>nil) and (num_entries_ret.Length<>0) then
if (layer_dispatch<>nil) and (layer_dispatch.Length<>0) then
z_InitLayer_ovr_0(num_entries, target_dispatch, num_entries_ret[0], layer_dispatch[0]) else
z_InitLayer_ovr_0_anh00001(num_entries, target_dispatch, num_entries_ret[0], IntPtr.Zero) else
if (layer_dispatch<>nil) and (layer_dispatch.Length<>0) then
z_InitLayer_ovr_0_anh00010(num_entries, target_dispatch, IntPtr.Zero, layer_dispatch[0]) else
z_InitLayer_ovr_0_anh00011(num_entries, target_dispatch, IntPtr.Zero, IntPtr.Zero);
private static function z_InitLayer_ovr_1_anh00010(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; var layer_dispatch: IntPtr): ErrorCode;
external 'opencl.dll' name 'clInitLayer';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: array of UInt32; var layer_dispatch: IntPtr): ErrorCode :=
if (num_entries_ret<>nil) and (num_entries_ret.Length<>0) then
z_InitLayer_ovr_0(num_entries, target_dispatch, num_entries_ret[0], layer_dispatch) else
z_InitLayer_ovr_0_anh00010(num_entries, target_dispatch, IntPtr.Zero, layer_dispatch);
private static function z_InitLayer_ovr_2(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; layer_dispatch: pointer): ErrorCode;
external 'opencl.dll' name 'clInitLayer';
private static function z_InitLayer_ovr_2_anh00010(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: pointer): ErrorCode;
external 'opencl.dll' name 'clInitLayer';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: array of UInt32; layer_dispatch: pointer): ErrorCode :=
if (num_entries_ret<>nil) and (num_entries_ret.Length<>0) then
z_InitLayer_ovr_2(num_entries, target_dispatch, num_entries_ret[0], layer_dispatch) else
z_InitLayer_ovr_2_anh00010(num_entries, target_dispatch, IntPtr.Zero, layer_dispatch);
private static function z_InitLayer_ovr_3_anh00001(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; layer_dispatch: IntPtr): ErrorCode;
external 'opencl.dll' name 'clInitLayer';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; layer_dispatch: array of IntPtr): ErrorCode :=
if (layer_dispatch<>nil) and (layer_dispatch.Length<>0) then
z_InitLayer_ovr_0(num_entries, target_dispatch, num_entries_ret, layer_dispatch[0]) else
z_InitLayer_ovr_0_anh00001(num_entries, target_dispatch, num_entries_ret, IntPtr.Zero);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; var layer_dispatch: IntPtr): ErrorCode :=
z_InitLayer_ovr_0(num_entries, target_dispatch, num_entries_ret, layer_dispatch);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; var num_entries_ret: UInt32; layer_dispatch: pointer): ErrorCode :=
z_InitLayer_ovr_2(num_entries, target_dispatch, num_entries_ret, layer_dispatch);
private static function z_InitLayer_ovr_6(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; var layer_dispatch: IntPtr): ErrorCode;
external 'opencl.dll' name 'clInitLayer';
private static function z_InitLayer_ovr_6_anh00001(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: IntPtr): ErrorCode;
external 'opencl.dll' name 'clInitLayer';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: array of IntPtr): ErrorCode :=
if (layer_dispatch<>nil) and (layer_dispatch.Length<>0) then
z_InitLayer_ovr_6(num_entries, target_dispatch, num_entries_ret, layer_dispatch[0]) else
z_InitLayer_ovr_6_anh00001(num_entries, target_dispatch, num_entries_ret, IntPtr.Zero);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; var layer_dispatch: IntPtr): ErrorCode :=
z_InitLayer_ovr_6(num_entries, target_dispatch, num_entries_ret, layer_dispatch);
private static function z_InitLayer_ovr_8(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: pointer): ErrorCode;
external 'opencl.dll' name 'clInitLayer';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function InitLayer(num_entries: UInt32; target_dispatch: IntPtr; num_entries_ret: IntPtr; layer_dispatch: pointer): ErrorCode :=
z_InitLayer_ovr_8(num_entries, target_dispatch, num_entries_ret, layer_dispatch);
end;
[PCUNotRestore]
[System.Security.SuppressUnmanagedCodeSecurity]
clIlProgramKHR = static class
@ -10890,15 +10989,123 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure SVMFreeARM(context: cl_context; svm_pointer: IntPtr) :=
z_SVMFreeARM_ovr_0(context, svm_pointer);
private static function z_EnqueueSVMFreeARM_ovr_0(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
private static function z_EnqueueSVMFreeARM_ovr_0(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
private static function z_EnqueueSVMFreeARM_ovr_0_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000011(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
private static function z_EnqueueSVMFreeARM_ovr_0_anh000100010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_0_anh000100001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_0_anh000000011(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_0_anh000100011(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event[0]) else
z_EnqueueSVMFreeARM_ovr_0_anh000000001(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
z_EnqueueSVMFreeARM_ovr_0_anh000000011(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero) else
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event[0]) else
z_EnqueueSVMFreeARM_ovr_0_anh000100001(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0_anh000100010(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
z_EnqueueSVMFreeARM_ovr_0_anh000100011(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
private static function z_EnqueueSVMFreeARM_ovr_1_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_1_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_1_anh000100010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event) else
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
z_EnqueueSVMFreeARM_ovr_0_anh000100010(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
private static function z_EnqueueSVMFreeARM_ovr_2(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_2_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_2_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_2_anh000100010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
z_EnqueueSVMFreeARM_ovr_2(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
z_EnqueueSVMFreeARM_ovr_2_anh000000010(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event) else
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
z_EnqueueSVMFreeARM_ovr_2_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
z_EnqueueSVMFreeARM_ovr_2_anh000100010(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
private static function z_EnqueueSVMFreeARM_ovr_3_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_3_anh000100001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
z_EnqueueSVMFreeARM_ovr_0_anh000000001(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
z_EnqueueSVMFreeARM_ovr_0_anh000100001(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
private static function z_EnqueueSVMFreeARM_ovr_4_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event) else
z_EnqueueSVMFreeARM_ovr_0_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
private static function z_EnqueueSVMFreeARM_ovr_5_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
z_EnqueueSVMFreeARM_ovr_2(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event) else
z_EnqueueSVMFreeARM_ovr_2_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
private static function z_EnqueueSVMFreeARM_ovr_6(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_6_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_6_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_6_anh000100001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_6(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
z_EnqueueSVMFreeARM_ovr_6_anh000000001(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero) else
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_6_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
z_EnqueueSVMFreeARM_ovr_6_anh000100001(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
private static function z_EnqueueSVMFreeARM_ovr_7_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
z_EnqueueSVMFreeARM_ovr_6(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event) else
z_EnqueueSVMFreeARM_ovr_6_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
private static function z_EnqueueSVMFreeARM_ovr_8(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_8_anh000100000(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: array of IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
if (svm_pointers<>nil) and (svm_pointers.Length<>0) then
z_EnqueueSVMFreeARM_ovr_8(command_queue, num_svm_pointers, svm_pointers[0], pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event) else
z_EnqueueSVMFreeARM_ovr_8_anh000100000(command_queue, num_svm_pointers, IntPtr.Zero, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event[0]) else
@ -10906,42 +11113,82 @@ type
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
z_EnqueueSVMFreeARM_ovr_0_anh000000011(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
private static function z_EnqueueSVMFreeARM_ovr_1_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
z_EnqueueSVMFreeARM_ovr_0_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
private static function z_EnqueueSVMFreeARM_ovr_2(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_2_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
z_EnqueueSVMFreeARM_ovr_2(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
z_EnqueueSVMFreeARM_ovr_2_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
z_EnqueueSVMFreeARM_ovr_0_anh000000001(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
z_EnqueueSVMFreeARM_ovr_0(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
z_EnqueueSVMFreeARM_ovr_2(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
private static function z_EnqueueSVMFreeARM_ovr_6(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_6_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_6(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
z_EnqueueSVMFreeARM_ovr_6_anh000000001(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
z_EnqueueSVMFreeARM_ovr_6(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
private static function z_EnqueueSVMFreeARM_ovr_8(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; var svm_pointers: IntPtr; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
z_EnqueueSVMFreeARM_ovr_8(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
private static function z_EnqueueSVMFreeARM_ovr_18(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_18_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_18_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_18_anh000000011(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: array of cl_event): ErrorCode :=
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_18(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event[0]) else
z_EnqueueSVMFreeARM_ovr_18_anh000000001(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], IntPtr.Zero) else
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_18_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event[0]) else
z_EnqueueSVMFreeARM_ovr_18_anh000000011(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, IntPtr.Zero);
private static function z_EnqueueSVMFreeARM_ovr_19_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; var &event: cl_event): ErrorCode :=
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
z_EnqueueSVMFreeARM_ovr_18(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
z_EnqueueSVMFreeARM_ovr_18_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
private static function z_EnqueueSVMFreeARM_ovr_20(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_20_anh000000010(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: array of cl_event; &event: IntPtr): ErrorCode :=
if (event_wait_list<>nil) and (event_wait_list.Length<>0) then
z_EnqueueSVMFreeARM_ovr_20(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list[0], &event) else
z_EnqueueSVMFreeARM_ovr_20_anh000000010(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, IntPtr.Zero, &event);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: array of cl_event): ErrorCode :=
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_18(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
z_EnqueueSVMFreeARM_ovr_18_anh000000001(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode :=
z_EnqueueSVMFreeARM_ovr_18(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; &event: IntPtr): ErrorCode :=
z_EnqueueSVMFreeARM_ovr_20(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
private static function z_EnqueueSVMFreeARM_ovr_24(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
private static function z_EnqueueSVMFreeARM_ovr_24_anh000000001(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: array of cl_event): ErrorCode :=
if (&event<>nil) and (&event.Length<>0) then
z_EnqueueSVMFreeARM_ovr_24(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event[0]) else
z_EnqueueSVMFreeARM_ovr_24_anh000000001(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, IntPtr.Zero);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; var &event: cl_event): ErrorCode :=
z_EnqueueSVMFreeARM_ovr_24(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
private static function z_EnqueueSVMFreeARM_ovr_26(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMFreeARM';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function EnqueueSVMFreeARM(command_queue: cl_command_queue; num_svm_pointers: UInt32; svm_pointers: pointer; pfn_free_func: EnqueueSVMFreeCallback; user_data: IntPtr; num_events_in_wait_list: UInt32; event_wait_list: IntPtr; &event: IntPtr): ErrorCode :=
z_EnqueueSVMFreeARM_ovr_26(command_queue, num_svm_pointers, svm_pointers, pfn_free_func, user_data, num_events_in_wait_list, event_wait_list, &event);
private static function z_EnqueueSVMMemcpyARM_ovr_0(command_queue: cl_command_queue; blocking_copy: Bool; dst_ptr: IntPtr; src_ptr: IntPtr; size: UIntPtr; num_events_in_wait_list: UInt32; var event_wait_list: cl_event; var &event: cl_event): ErrorCode;
external 'opencl.dll' name 'clEnqueueSVMMemcpyARM';

9275
TestSuite/CompilationSamples/OpenCLABC.pas
View file

File diff suppressed because it is too large Load diff

184
TestSuite/CompilationSamples/OpenGL.pas
View file

@ -32390,13 +32390,13 @@ type
// added in glx1.3
private static function z_ChooseFBConfig_ovr_0(dpy: x_p_display; screen: Int32; var attrib_list: Int32; var nelements: Int32): ^glx_fb_config;
external 'opengl32.dll' name 'glXChooseFBConfig';
external 'libGL.so.1' name 'glXChooseFBConfig';
private static function z_ChooseFBConfig_ovr_0_anh00010(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; var nelements: Int32): ^glx_fb_config;
external 'opengl32.dll' name 'glXChooseFBConfig';
external 'libGL.so.1' name 'glXChooseFBConfig';
private static function z_ChooseFBConfig_ovr_0_anh00001(dpy: x_p_display; screen: Int32; var attrib_list: Int32; nelements: IntPtr): ^glx_fb_config;
external 'opengl32.dll' name 'glXChooseFBConfig';
external 'libGL.so.1' name 'glXChooseFBConfig';
private static function z_ChooseFBConfig_ovr_0_anh00011(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: IntPtr): ^glx_fb_config;
external 'opengl32.dll' name 'glXChooseFBConfig';
external 'libGL.so.1' name 'glXChooseFBConfig';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: array of Int32; nelements: array of Int32): ^glx_fb_config :=
if (attrib_list<>nil) and (attrib_list.Length<>0) then
if (nelements<>nil) and (nelements.Length<>0) then
@ -32406,15 +32406,15 @@ type
z_ChooseFBConfig_ovr_0_anh00010(dpy, screen, IntPtr.Zero, nelements[0]) else
z_ChooseFBConfig_ovr_0_anh00011(dpy, screen, IntPtr.Zero, IntPtr.Zero);
private static function z_ChooseFBConfig_ovr_1_anh00010(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; var nelements: Int32): ^glx_fb_config;
external 'opengl32.dll' name 'glXChooseFBConfig';
external 'libGL.so.1' name 'glXChooseFBConfig';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: array of Int32; var nelements: Int32): ^glx_fb_config :=
if (attrib_list<>nil) and (attrib_list.Length<>0) then
z_ChooseFBConfig_ovr_0(dpy, screen, attrib_list[0], nelements) else
z_ChooseFBConfig_ovr_0_anh00010(dpy, screen, IntPtr.Zero, nelements);
private static function z_ChooseFBConfig_ovr_2(dpy: x_p_display; screen: Int32; var attrib_list: Int32; nelements: IntPtr): ^glx_fb_config;
external 'opengl32.dll' name 'glXChooseFBConfig';
external 'libGL.so.1' name 'glXChooseFBConfig';
private static function z_ChooseFBConfig_ovr_2_anh00010(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: IntPtr): ^glx_fb_config;
external 'opengl32.dll' name 'glXChooseFBConfig';
external 'libGL.so.1' name 'glXChooseFBConfig';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: array of Int32; nelements: IntPtr): ^glx_fb_config :=
if (attrib_list<>nil) and (attrib_list.Length<>0) then
z_ChooseFBConfig_ovr_2(dpy, screen, attrib_list[0], nelements) else
@ -32428,9 +32428,9 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; var attrib_list: Int32; nelements: IntPtr): ^glx_fb_config :=
z_ChooseFBConfig_ovr_2(dpy, screen, attrib_list, nelements);
private static function z_ChooseFBConfig_ovr_6(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; var nelements: Int32): ^glx_fb_config;
external 'opengl32.dll' name 'glXChooseFBConfig';
external 'libGL.so.1' name 'glXChooseFBConfig';
private static function z_ChooseFBConfig_ovr_6_anh00001(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: IntPtr): ^glx_fb_config;
external 'opengl32.dll' name 'glXChooseFBConfig';
external 'libGL.so.1' name 'glXChooseFBConfig';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: array of Int32): ^glx_fb_config :=
if (nelements<>nil) and (nelements.Length<>0) then
z_ChooseFBConfig_ovr_6(dpy, screen, attrib_list, nelements[0]) else
@ -32438,15 +32438,15 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; var nelements: Int32): ^glx_fb_config :=
z_ChooseFBConfig_ovr_6(dpy, screen, attrib_list, nelements);
private static function z_ChooseFBConfig_ovr_8(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: IntPtr): ^glx_fb_config;
external 'opengl32.dll' name 'glXChooseFBConfig';
external 'libGL.so.1' name 'glXChooseFBConfig';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseFBConfig(dpy: x_p_display; screen: Int32; attrib_list: IntPtr; nelements: IntPtr): ^glx_fb_config :=
z_ChooseFBConfig_ovr_8(dpy, screen, attrib_list, nelements);
// added in glx1.0
private static function z_ChooseVisual_ovr_0(dpy: x_p_display; screen: Int32; var attribList: Int32): x_p_visual_info;
external 'opengl32.dll' name 'glXChooseVisual';
external 'libGL.so.1' name 'glXChooseVisual';
private static function z_ChooseVisual_ovr_0_anh0001(dpy: x_p_display; screen: Int32; attribList: IntPtr): x_p_visual_info;
external 'opengl32.dll' name 'glXChooseVisual';
external 'libGL.so.1' name 'glXChooseVisual';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseVisual(dpy: x_p_display; screen: Int32; attribList: array of Int32): x_p_visual_info :=
if (attribList<>nil) and (attribList.Length<>0) then
z_ChooseVisual_ovr_0(dpy, screen, attribList[0]) else
@ -32454,39 +32454,39 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseVisual(dpy: x_p_display; screen: Int32; var attribList: Int32): x_p_visual_info :=
z_ChooseVisual_ovr_0(dpy, screen, attribList);
private static function z_ChooseVisual_ovr_2(dpy: x_p_display; screen: Int32; attribList: IntPtr): x_p_visual_info;
external 'opengl32.dll' name 'glXChooseVisual';
external 'libGL.so.1' name 'glXChooseVisual';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function ChooseVisual(dpy: x_p_display; screen: Int32; attribList: IntPtr): x_p_visual_info :=
z_ChooseVisual_ovr_2(dpy, screen, attribList);
// added in glx1.0
private static procedure z_CopyContext_ovr_0(dpy: x_p_display; src: glx_context; dst: glx_context; mask: UInt64);
external 'opengl32.dll' name 'glXCopyContext';
external 'libGL.so.1' name 'glXCopyContext';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure CopyContext(dpy: x_p_display; src: glx_context; dst: glx_context; mask: UInt64) :=
z_CopyContext_ovr_0(dpy, src, dst, mask);
// added in glx1.0
private static function z_CreateContext_ovr_0(dpy: x_p_display; vis: x_p_visual_info; shareList: glx_context; direct: Bool): glx_context;
external 'opengl32.dll' name 'glXCreateContext';
external 'libGL.so.1' name 'glXCreateContext';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateContext(dpy: x_p_display; vis: x_p_visual_info; shareList: glx_context; direct: Bool): glx_context :=
z_CreateContext_ovr_0(dpy, vis, shareList, direct);
// added in glx1.0
private static function z_CreateGLXPixmap_ovr_0(dpy: x_p_display; visual: x_p_visual_info; pixmap: x_pixmap): glx_pixmap;
external 'opengl32.dll' name 'glXCreateGLXPixmap';
external 'libGL.so.1' name 'glXCreateGLXPixmap';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateGLXPixmap(dpy: x_p_display; visual: x_p_visual_info; pixmap: x_pixmap): glx_pixmap :=
z_CreateGLXPixmap_ovr_0(dpy, visual, pixmap);
// added in glx1.3
private static function z_CreateNewContext_ovr_0(dpy: x_p_display; config: glx_fb_config; render_type: Int32; share_list: glx_context; direct: Bool): glx_context;
external 'opengl32.dll' name 'glXCreateNewContext';
external 'libGL.so.1' name 'glXCreateNewContext';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateNewContext(dpy: x_p_display; config: glx_fb_config; render_type: Int32; share_list: glx_context; direct: Bool): glx_context :=
z_CreateNewContext_ovr_0(dpy, config, render_type, share_list, direct);
// added in glx1.3
private static function z_CreatePbuffer_ovr_0(dpy: x_p_display; config: glx_fb_config; var attrib_list: Int32): glx_pbuffer;
external 'opengl32.dll' name 'glXCreatePbuffer';
external 'libGL.so.1' name 'glXCreatePbuffer';
private static function z_CreatePbuffer_ovr_0_anh0001(dpy: x_p_display; config: glx_fb_config; attrib_list: IntPtr): glx_pbuffer;
external 'opengl32.dll' name 'glXCreatePbuffer';
external 'libGL.so.1' name 'glXCreatePbuffer';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbuffer(dpy: x_p_display; config: glx_fb_config; attrib_list: array of Int32): glx_pbuffer :=
if (attrib_list<>nil) and (attrib_list.Length<>0) then
z_CreatePbuffer_ovr_0(dpy, config, attrib_list[0]) else
@ -32494,15 +32494,15 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbuffer(dpy: x_p_display; config: glx_fb_config; var attrib_list: Int32): glx_pbuffer :=
z_CreatePbuffer_ovr_0(dpy, config, attrib_list);
private static function z_CreatePbuffer_ovr_2(dpy: x_p_display; config: glx_fb_config; attrib_list: IntPtr): glx_pbuffer;
external 'opengl32.dll' name 'glXCreatePbuffer';
external 'libGL.so.1' name 'glXCreatePbuffer';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePbuffer(dpy: x_p_display; config: glx_fb_config; attrib_list: IntPtr): glx_pbuffer :=
z_CreatePbuffer_ovr_2(dpy, config, attrib_list);
// added in glx1.3
private static function z_CreatePixmap_ovr_0(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; var attrib_list: Int32): glx_pixmap;
external 'opengl32.dll' name 'glXCreatePixmap';
external 'libGL.so.1' name 'glXCreatePixmap';
private static function z_CreatePixmap_ovr_0_anh00001(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; attrib_list: IntPtr): glx_pixmap;
external 'opengl32.dll' name 'glXCreatePixmap';
external 'libGL.so.1' name 'glXCreatePixmap';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePixmap(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; attrib_list: array of Int32): glx_pixmap :=
if (attrib_list<>nil) and (attrib_list.Length<>0) then
z_CreatePixmap_ovr_0(dpy, config, pixmap, attrib_list[0]) else
@ -32510,15 +32510,15 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePixmap(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; var attrib_list: Int32): glx_pixmap :=
z_CreatePixmap_ovr_0(dpy, config, pixmap, attrib_list);
private static function z_CreatePixmap_ovr_2(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; attrib_list: IntPtr): glx_pixmap;
external 'opengl32.dll' name 'glXCreatePixmap';
external 'libGL.so.1' name 'glXCreatePixmap';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreatePixmap(dpy: x_p_display; config: glx_fb_config; pixmap: x_pixmap; attrib_list: IntPtr): glx_pixmap :=
z_CreatePixmap_ovr_2(dpy, config, pixmap, attrib_list);
// added in glx1.3
private static function z_CreateWindow_ovr_0(dpy: x_p_display; config: glx_fb_config; win: x_window; var attrib_list: Int32): glx_window;
external 'opengl32.dll' name 'glXCreateWindow';
external 'libGL.so.1' name 'glXCreateWindow';
private static function z_CreateWindow_ovr_0_anh00001(dpy: x_p_display; config: glx_fb_config; win: x_window; attrib_list: IntPtr): glx_window;
external 'opengl32.dll' name 'glXCreateWindow';
external 'libGL.so.1' name 'glXCreateWindow';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateWindow(dpy: x_p_display; config: glx_fb_config; win: x_window; attrib_list: array of Int32): glx_window :=
if (attrib_list<>nil) and (attrib_list.Length<>0) then
z_CreateWindow_ovr_0(dpy, config, win, attrib_list[0]) else
@ -32526,43 +32526,43 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateWindow(dpy: x_p_display; config: glx_fb_config; win: x_window; var attrib_list: Int32): glx_window :=
z_CreateWindow_ovr_0(dpy, config, win, attrib_list);
private static function z_CreateWindow_ovr_2(dpy: x_p_display; config: glx_fb_config; win: x_window; attrib_list: IntPtr): glx_window;
external 'opengl32.dll' name 'glXCreateWindow';
external 'libGL.so.1' name 'glXCreateWindow';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function CreateWindow(dpy: x_p_display; config: glx_fb_config; win: x_window; attrib_list: IntPtr): glx_window :=
z_CreateWindow_ovr_2(dpy, config, win, attrib_list);
// added in glx1.0
private static procedure z_DestroyContext_ovr_0(dpy: x_p_display; ctx: glx_context);
external 'opengl32.dll' name 'glXDestroyContext';
external 'libGL.so.1' name 'glXDestroyContext';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DestroyContext(dpy: x_p_display; ctx: glx_context) :=
z_DestroyContext_ovr_0(dpy, ctx);
// added in glx1.0
private static procedure z_DestroyGLXPixmap_ovr_0(dpy: x_p_display; pixmap: glx_pixmap);
external 'opengl32.dll' name 'glXDestroyGLXPixmap';
external 'libGL.so.1' name 'glXDestroyGLXPixmap';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DestroyGLXPixmap(dpy: x_p_display; pixmap: glx_pixmap) :=
z_DestroyGLXPixmap_ovr_0(dpy, pixmap);
// added in glx1.3
private static procedure z_DestroyPbuffer_ovr_0(dpy: x_p_display; pbuf: glx_pbuffer);
external 'opengl32.dll' name 'glXDestroyPbuffer';
external 'libGL.so.1' name 'glXDestroyPbuffer';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DestroyPbuffer(dpy: x_p_display; pbuf: glx_pbuffer) :=
z_DestroyPbuffer_ovr_0(dpy, pbuf);
// added in glx1.3
private static procedure z_DestroyPixmap_ovr_0(dpy: x_p_display; pixmap: glx_pixmap);
external 'opengl32.dll' name 'glXDestroyPixmap';
external 'libGL.so.1' name 'glXDestroyPixmap';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DestroyPixmap(dpy: x_p_display; pixmap: glx_pixmap) :=
z_DestroyPixmap_ovr_0(dpy, pixmap);
// added in glx1.3
private static procedure z_DestroyWindow_ovr_0(dpy: x_p_display; win: glx_window);
external 'opengl32.dll' name 'glXDestroyWindow';
external 'libGL.so.1' name 'glXDestroyWindow';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure DestroyWindow(dpy: x_p_display; win: glx_window) :=
z_DestroyWindow_ovr_0(dpy, win);
// added in glx1.1
private static function z_GetClientString_ovr_0(dpy: x_p_display; name: Int32): IntPtr;
external 'opengl32.dll' name 'glXGetClientString';
external 'libGL.so.1' name 'glXGetClientString';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetClientString(dpy: x_p_display; name: Int32): string;
begin
var res_str_ptr: IntPtr;
@ -32572,9 +32572,9 @@ type
// added in glx1.0
private static function z_GetConfig_ovr_0(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; var value: Int32): Int32;
external 'opengl32.dll' name 'glXGetConfig';
external 'libGL.so.1' name 'glXGetConfig';
private static function z_GetConfig_ovr_0_anh00001(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; value: IntPtr): Int32;
external 'opengl32.dll' name 'glXGetConfig';
external 'libGL.so.1' name 'glXGetConfig';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetConfig(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; value: array of Int32): Int32 :=
if (value<>nil) and (value.Length<>0) then
z_GetConfig_ovr_0(dpy, visual, attrib, value[0]) else
@ -32582,39 +32582,39 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetConfig(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; var value: Int32): Int32 :=
z_GetConfig_ovr_0(dpy, visual, attrib, value);
private static function z_GetConfig_ovr_2(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; value: IntPtr): Int32;
external 'opengl32.dll' name 'glXGetConfig';
external 'libGL.so.1' name 'glXGetConfig';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetConfig(dpy: x_p_display; visual: x_p_visual_info; attrib: Int32; value: IntPtr): Int32 :=
z_GetConfig_ovr_2(dpy, visual, attrib, value);
// added in glx1.0
private static function z_GetCurrentContext_ovr_0: glx_context;
external 'opengl32.dll' name 'glXGetCurrentContext';
external 'libGL.so.1' name 'glXGetCurrentContext';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentContext: glx_context :=
z_GetCurrentContext_ovr_0;
// added in glx1.2
private static function z_GetCurrentDisplay_ovr_0: x_p_display;
external 'opengl32.dll' name 'glXGetCurrentDisplay';
external 'libGL.so.1' name 'glXGetCurrentDisplay';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentDisplay: x_p_display :=
z_GetCurrentDisplay_ovr_0;
// added in glx1.0
private static function z_GetCurrentDrawable_ovr_0: glx_drawable;
external 'opengl32.dll' name 'glXGetCurrentDrawable';
external 'libGL.so.1' name 'glXGetCurrentDrawable';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentDrawable: glx_drawable :=
z_GetCurrentDrawable_ovr_0;
// added in glx1.3
private static function z_GetCurrentReadDrawable_ovr_0: glx_drawable;
external 'opengl32.dll' name 'glXGetCurrentReadDrawable';
external 'libGL.so.1' name 'glXGetCurrentReadDrawable';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetCurrentReadDrawable: glx_drawable :=
z_GetCurrentReadDrawable_ovr_0;
// added in glx1.3
private static function z_GetFBConfigAttrib_ovr_0(dpy: x_p_display; config: glx_fb_config; attribute: Int32; var value: Int32): Int32;
external 'opengl32.dll' name 'glXGetFBConfigAttrib';
external 'libGL.so.1' name 'glXGetFBConfigAttrib';
private static function z_GetFBConfigAttrib_ovr_0_anh00001(dpy: x_p_display; config: glx_fb_config; attribute: Int32; value: IntPtr): Int32;
external 'opengl32.dll' name 'glXGetFBConfigAttrib';
external 'libGL.so.1' name 'glXGetFBConfigAttrib';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigAttrib(dpy: x_p_display; config: glx_fb_config; attribute: Int32; value: array of Int32): Int32 :=
if (value<>nil) and (value.Length<>0) then
z_GetFBConfigAttrib_ovr_0(dpy, config, attribute, value[0]) else
@ -32622,15 +32622,15 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigAttrib(dpy: x_p_display; config: glx_fb_config; attribute: Int32; var value: Int32): Int32 :=
z_GetFBConfigAttrib_ovr_0(dpy, config, attribute, value);
private static function z_GetFBConfigAttrib_ovr_2(dpy: x_p_display; config: glx_fb_config; attribute: Int32; value: IntPtr): Int32;
external 'opengl32.dll' name 'glXGetFBConfigAttrib';
external 'libGL.so.1' name 'glXGetFBConfigAttrib';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigAttrib(dpy: x_p_display; config: glx_fb_config; attribute: Int32; value: IntPtr): Int32 :=
z_GetFBConfigAttrib_ovr_2(dpy, config, attribute, value);
// added in glx1.3
private static function z_GetFBConfigs_ovr_0(dpy: x_p_display; screen: Int32; var nelements: Int32): ^glx_fb_config;
external 'opengl32.dll' name 'glXGetFBConfigs';
external 'libGL.so.1' name 'glXGetFBConfigs';
private static function z_GetFBConfigs_ovr_0_anh0001(dpy: x_p_display; screen: Int32; nelements: IntPtr): ^glx_fb_config;
external 'opengl32.dll' name 'glXGetFBConfigs';
external 'libGL.so.1' name 'glXGetFBConfigs';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigs(dpy: x_p_display; screen: Int32; nelements: array of Int32): ^glx_fb_config :=
if (nelements<>nil) and (nelements.Length<>0) then
z_GetFBConfigs_ovr_0(dpy, screen, nelements[0]) else
@ -32638,13 +32638,13 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigs(dpy: x_p_display; screen: Int32; var nelements: Int32): ^glx_fb_config :=
z_GetFBConfigs_ovr_0(dpy, screen, nelements);
private static function z_GetFBConfigs_ovr_2(dpy: x_p_display; screen: Int32; nelements: IntPtr): ^glx_fb_config;
external 'opengl32.dll' name 'glXGetFBConfigs';
external 'libGL.so.1' name 'glXGetFBConfigs';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetFBConfigs(dpy: x_p_display; screen: Int32; nelements: IntPtr): ^glx_fb_config :=
z_GetFBConfigs_ovr_2(dpy, screen, nelements);
// added in glx1.4
private static function z_GetProcAddress_ovr_0(procName: IntPtr): IntPtr;
external 'opengl32.dll' name 'glXGetProcAddress';
external 'libGL.so.1' name 'glXGetProcAddress';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetProcAddress(procName: string): IntPtr;
begin
var par_1_str_ptr: IntPtr;
@ -32660,9 +32660,9 @@ type
// added in glx1.3
private static procedure z_GetSelectedEvent_ovr_0(dpy: x_p_display; draw: glx_drawable; var event_mask: UInt64);
external 'opengl32.dll' name 'glXGetSelectedEvent';
external 'libGL.so.1' name 'glXGetSelectedEvent';
private static procedure z_GetSelectedEvent_ovr_0_anh0001(dpy: x_p_display; draw: glx_drawable; event_mask: IntPtr);
external 'opengl32.dll' name 'glXGetSelectedEvent';
external 'libGL.so.1' name 'glXGetSelectedEvent';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure GetSelectedEvent(dpy: x_p_display; draw: glx_drawable; event_mask: array of UInt64) :=
if (event_mask<>nil) and (event_mask.Length<>0) then
z_GetSelectedEvent_ovr_0(dpy, draw, event_mask[0]) else
@ -32670,39 +32670,39 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure GetSelectedEvent(dpy: x_p_display; draw: glx_drawable; var event_mask: UInt64) :=
z_GetSelectedEvent_ovr_0(dpy, draw, event_mask);
private static procedure z_GetSelectedEvent_ovr_2(dpy: x_p_display; draw: glx_drawable; event_mask: IntPtr);
external 'opengl32.dll' name 'glXGetSelectedEvent';
external 'libGL.so.1' name 'glXGetSelectedEvent';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure GetSelectedEvent(dpy: x_p_display; draw: glx_drawable; event_mask: IntPtr) :=
z_GetSelectedEvent_ovr_2(dpy, draw, event_mask);
// added in glx1.3
private static function z_GetVisualFromFBConfig_ovr_0(dpy: x_p_display; config: glx_fb_config): x_p_visual_info;
external 'opengl32.dll' name 'glXGetVisualFromFBConfig';
external 'libGL.so.1' name 'glXGetVisualFromFBConfig';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetVisualFromFBConfig(dpy: x_p_display; config: glx_fb_config): x_p_visual_info :=
z_GetVisualFromFBConfig_ovr_0(dpy, config);
// added in glx1.0
private static function z_IsDirect_ovr_0(dpy: x_p_display; ctx: glx_context): Bool;
external 'opengl32.dll' name 'glXIsDirect';
external 'libGL.so.1' name 'glXIsDirect';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function IsDirect(dpy: x_p_display; ctx: glx_context): Bool :=
z_IsDirect_ovr_0(dpy, ctx);
// added in glx1.3
private static function z_MakeContextCurrent_ovr_0(dpy: x_p_display; draw: glx_drawable; read: glx_drawable; ctx: glx_context): Bool;
external 'opengl32.dll' name 'glXMakeContextCurrent';
external 'libGL.so.1' name 'glXMakeContextCurrent';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function MakeContextCurrent(dpy: x_p_display; draw: glx_drawable; read: glx_drawable; ctx: glx_context): Bool :=
z_MakeContextCurrent_ovr_0(dpy, draw, read, ctx);
// added in glx1.0
private static function z_MakeCurrent_ovr_0(dpy: x_p_display; drawable: glx_drawable; ctx: glx_context): Bool;
external 'opengl32.dll' name 'glXMakeCurrent';
external 'libGL.so.1' name 'glXMakeCurrent';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function MakeCurrent(dpy: x_p_display; drawable: glx_drawable; ctx: glx_context): Bool :=
z_MakeCurrent_ovr_0(dpy, drawable, ctx);
// added in glx1.3
private static function z_QueryContext_ovr_0(dpy: x_p_display; ctx: glx_context; attribute: Int32; var value: Int32): Int32;
external 'opengl32.dll' name 'glXQueryContext';
external 'libGL.so.1' name 'glXQueryContext';
private static function z_QueryContext_ovr_0_anh00001(dpy: x_p_display; ctx: glx_context; attribute: Int32; value: IntPtr): Int32;
external 'opengl32.dll' name 'glXQueryContext';
external 'libGL.so.1' name 'glXQueryContext';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryContext(dpy: x_p_display; ctx: glx_context; attribute: Int32; value: array of Int32): Int32 :=
if (value<>nil) and (value.Length<>0) then
z_QueryContext_ovr_0(dpy, ctx, attribute, value[0]) else
@ -32710,15 +32710,15 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryContext(dpy: x_p_display; ctx: glx_context; attribute: Int32; var value: Int32): Int32 :=
z_QueryContext_ovr_0(dpy, ctx, attribute, value);
private static function z_QueryContext_ovr_2(dpy: x_p_display; ctx: glx_context; attribute: Int32; value: IntPtr): Int32;
external 'opengl32.dll' name 'glXQueryContext';
external 'libGL.so.1' name 'glXQueryContext';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryContext(dpy: x_p_display; ctx: glx_context; attribute: Int32; value: IntPtr): Int32 :=
z_QueryContext_ovr_2(dpy, ctx, attribute, value);
// added in glx1.3
private static procedure z_QueryDrawable_ovr_0(dpy: x_p_display; draw: glx_drawable; attribute: Int32; var value: UInt32);
external 'opengl32.dll' name 'glXQueryDrawable';
external 'libGL.so.1' name 'glXQueryDrawable';
private static procedure z_QueryDrawable_ovr_0_anh00001(dpy: x_p_display; draw: glx_drawable; attribute: Int32; value: IntPtr);
external 'opengl32.dll' name 'glXQueryDrawable';
external 'libGL.so.1' name 'glXQueryDrawable';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure QueryDrawable(dpy: x_p_display; draw: glx_drawable; attribute: Int32; value: array of UInt32) :=
if (value<>nil) and (value.Length<>0) then
z_QueryDrawable_ovr_0(dpy, draw, attribute, value[0]) else
@ -32726,19 +32726,19 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure QueryDrawable(dpy: x_p_display; draw: glx_drawable; attribute: Int32; var value: UInt32) :=
z_QueryDrawable_ovr_0(dpy, draw, attribute, value);
private static procedure z_QueryDrawable_ovr_2(dpy: x_p_display; draw: glx_drawable; attribute: Int32; value: IntPtr);
external 'opengl32.dll' name 'glXQueryDrawable';
external 'libGL.so.1' name 'glXQueryDrawable';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure QueryDrawable(dpy: x_p_display; draw: glx_drawable; attribute: Int32; value: IntPtr) :=
z_QueryDrawable_ovr_2(dpy, draw, attribute, value);
// added in glx1.0
private static function z_QueryExtension_ovr_0(dpy: x_p_display; var errorb: Int32; var &event: Int32): Bool;
external 'opengl32.dll' name 'glXQueryExtension';
external 'libGL.so.1' name 'glXQueryExtension';
private static function z_QueryExtension_ovr_0_anh0010(dpy: x_p_display; errorb: IntPtr; var &event: Int32): Bool;
external 'opengl32.dll' name 'glXQueryExtension';
external 'libGL.so.1' name 'glXQueryExtension';
private static function z_QueryExtension_ovr_0_anh0001(dpy: x_p_display; var errorb: Int32; &event: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryExtension';
external 'libGL.so.1' name 'glXQueryExtension';
private static function z_QueryExtension_ovr_0_anh0011(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryExtension';
external 'libGL.so.1' name 'glXQueryExtension';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: array of Int32; &event: array of Int32): Bool :=
if (errorb<>nil) and (errorb.Length<>0) then
if (&event<>nil) and (&event.Length<>0) then
@ -32748,15 +32748,15 @@ type
z_QueryExtension_ovr_0_anh0010(dpy, IntPtr.Zero, &event[0]) else
z_QueryExtension_ovr_0_anh0011(dpy, IntPtr.Zero, IntPtr.Zero);
private static function z_QueryExtension_ovr_1_anh0010(dpy: x_p_display; errorb: IntPtr; var &event: Int32): Bool;
external 'opengl32.dll' name 'glXQueryExtension';
external 'libGL.so.1' name 'glXQueryExtension';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: array of Int32; var &event: Int32): Bool :=
if (errorb<>nil) and (errorb.Length<>0) then
z_QueryExtension_ovr_0(dpy, errorb[0], &event) else
z_QueryExtension_ovr_0_anh0010(dpy, IntPtr.Zero, &event);
private static function z_QueryExtension_ovr_2(dpy: x_p_display; var errorb: Int32; &event: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryExtension';
external 'libGL.so.1' name 'glXQueryExtension';
private static function z_QueryExtension_ovr_2_anh0010(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryExtension';
external 'libGL.so.1' name 'glXQueryExtension';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: array of Int32; &event: IntPtr): Bool :=
if (errorb<>nil) and (errorb.Length<>0) then
z_QueryExtension_ovr_2(dpy, errorb[0], &event) else
@ -32770,9 +32770,9 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; var errorb: Int32; &event: IntPtr): Bool :=
z_QueryExtension_ovr_2(dpy, errorb, &event);
private static function z_QueryExtension_ovr_6(dpy: x_p_display; errorb: IntPtr; var &event: Int32): Bool;
external 'opengl32.dll' name 'glXQueryExtension';
external 'libGL.so.1' name 'glXQueryExtension';
private static function z_QueryExtension_ovr_6_anh0001(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryExtension';
external 'libGL.so.1' name 'glXQueryExtension';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: IntPtr; &event: array of Int32): Bool :=
if (&event<>nil) and (&event.Length<>0) then
z_QueryExtension_ovr_6(dpy, errorb, &event[0]) else
@ -32780,13 +32780,13 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: IntPtr; var &event: Int32): Bool :=
z_QueryExtension_ovr_6(dpy, errorb, &event);
private static function z_QueryExtension_ovr_8(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryExtension';
external 'libGL.so.1' name 'glXQueryExtension';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtension(dpy: x_p_display; errorb: IntPtr; &event: IntPtr): Bool :=
z_QueryExtension_ovr_8(dpy, errorb, &event);
// added in glx1.1
private static function z_QueryExtensionsString_ovr_0(dpy: x_p_display; screen: Int32): IntPtr;
external 'opengl32.dll' name 'glXQueryExtensionsString';
external 'libGL.so.1' name 'glXQueryExtensionsString';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryExtensionsString(dpy: x_p_display; screen: Int32): string;
begin
var res_str_ptr: IntPtr;
@ -32796,7 +32796,7 @@ type
// added in glx1.1
private static function z_QueryServerString_ovr_0(dpy: x_p_display; screen: Int32; name: Int32): IntPtr;
external 'opengl32.dll' name 'glXQueryServerString';
external 'libGL.so.1' name 'glXQueryServerString';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryServerString(dpy: x_p_display; screen: Int32; name: Int32): string;
begin
var res_str_ptr: IntPtr;
@ -32806,13 +32806,13 @@ type
// added in glx1.0
private static function z_QueryVersion_ovr_0(dpy: x_p_display; var maj: Int32; var min: Int32): Bool;
external 'opengl32.dll' name 'glXQueryVersion';
external 'libGL.so.1' name 'glXQueryVersion';
private static function z_QueryVersion_ovr_0_anh0010(dpy: x_p_display; maj: IntPtr; var min: Int32): Bool;
external 'opengl32.dll' name 'glXQueryVersion';
external 'libGL.so.1' name 'glXQueryVersion';
private static function z_QueryVersion_ovr_0_anh0001(dpy: x_p_display; var maj: Int32; min: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryVersion';
external 'libGL.so.1' name 'glXQueryVersion';
private static function z_QueryVersion_ovr_0_anh0011(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryVersion';
external 'libGL.so.1' name 'glXQueryVersion';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: array of Int32; min: array of Int32): Bool :=
if (maj<>nil) and (maj.Length<>0) then
if (min<>nil) and (min.Length<>0) then
@ -32822,15 +32822,15 @@ type
z_QueryVersion_ovr_0_anh0010(dpy, IntPtr.Zero, min[0]) else
z_QueryVersion_ovr_0_anh0011(dpy, IntPtr.Zero, IntPtr.Zero);
private static function z_QueryVersion_ovr_1_anh0010(dpy: x_p_display; maj: IntPtr; var min: Int32): Bool;
external 'opengl32.dll' name 'glXQueryVersion';
external 'libGL.so.1' name 'glXQueryVersion';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: array of Int32; var min: Int32): Bool :=
if (maj<>nil) and (maj.Length<>0) then
z_QueryVersion_ovr_0(dpy, maj[0], min) else
z_QueryVersion_ovr_0_anh0010(dpy, IntPtr.Zero, min);
private static function z_QueryVersion_ovr_2(dpy: x_p_display; var maj: Int32; min: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryVersion';
external 'libGL.so.1' name 'glXQueryVersion';
private static function z_QueryVersion_ovr_2_anh0010(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryVersion';
external 'libGL.so.1' name 'glXQueryVersion';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: array of Int32; min: IntPtr): Bool :=
if (maj<>nil) and (maj.Length<>0) then
z_QueryVersion_ovr_2(dpy, maj[0], min) else
@ -32844,9 +32844,9 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; var maj: Int32; min: IntPtr): Bool :=
z_QueryVersion_ovr_2(dpy, maj, min);
private static function z_QueryVersion_ovr_6(dpy: x_p_display; maj: IntPtr; var min: Int32): Bool;
external 'opengl32.dll' name 'glXQueryVersion';
external 'libGL.so.1' name 'glXQueryVersion';
private static function z_QueryVersion_ovr_6_anh0001(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryVersion';
external 'libGL.so.1' name 'glXQueryVersion';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: IntPtr; min: array of Int32): Bool :=
if (min<>nil) and (min.Length<>0) then
z_QueryVersion_ovr_6(dpy, maj, min[0]) else
@ -32854,37 +32854,37 @@ type
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: IntPtr; var min: Int32): Bool :=
z_QueryVersion_ovr_6(dpy, maj, min);
private static function z_QueryVersion_ovr_8(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool;
external 'opengl32.dll' name 'glXQueryVersion';
external 'libGL.so.1' name 'glXQueryVersion';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function QueryVersion(dpy: x_p_display; maj: IntPtr; min: IntPtr): Bool :=
z_QueryVersion_ovr_8(dpy, maj, min);
// added in glx1.3
private static procedure z_SelectEvent_ovr_0(dpy: x_p_display; draw: glx_drawable; event_mask: UInt64);
external 'opengl32.dll' name 'glXSelectEvent';
external 'libGL.so.1' name 'glXSelectEvent';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure SelectEvent(dpy: x_p_display; draw: glx_drawable; event_mask: UInt64) :=
z_SelectEvent_ovr_0(dpy, draw, event_mask);
// added in glx1.0
private static procedure z_SwapBuffers_ovr_0(dpy: x_p_display; drawable: glx_drawable);
external 'opengl32.dll' name 'glXSwapBuffers';
external 'libGL.so.1' name 'glXSwapBuffers';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure SwapBuffers(dpy: x_p_display; drawable: glx_drawable) :=
z_SwapBuffers_ovr_0(dpy, drawable);
// added in glx1.0
private static procedure z_UseXFont_ovr_0(font: x_font; first: Int32; count: Int32; list: Int32);
external 'opengl32.dll' name 'glXUseXFont';
external 'libGL.so.1' name 'glXUseXFont';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure UseXFont(font: x_font; first: Int32; count: Int32; list: Int32) :=
z_UseXFont_ovr_0(font, first, count, list);
// added in glx1.0
private static procedure z_WaitGL_ovr_0;
external 'opengl32.dll' name 'glXWaitGL';
external 'libGL.so.1' name 'glXWaitGL';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure WaitGL :=
z_WaitGL_ovr_0;
// added in glx1.0
private static procedure z_WaitX_ovr_0;
external 'opengl32.dll' name 'glXWaitX';
external 'libGL.so.1' name 'glXWaitX';
public [MethodImpl(MethodImplOptions.AggressiveInlining)] static procedure WaitX :=
z_WaitX_ovr_0;
@ -58202,9 +58202,17 @@ type
z_StencilThenCoverStrokePathInstancedNV_ovr_2(numPaths, pathNameType, paths, pathBase, reference, mask, coverMode, transformType, transformValues);
private z_PathGlyphIndexRangeNV_adr := GetFuncAdr('glPathGlyphIndexRangeNV');
private z_PathGlyphIndexRangeNV_ovr_0 := GetFuncOrNil&<function(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: UInt32): DummyEnum>(z_PathGlyphIndexRangeNV_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PathGlyphIndexRangeNV(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: UInt32): DummyEnum :=
private z_PathGlyphIndexRangeNV_ovr_0 := GetFuncOrNil&<function(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; var baseAndCount: UInt32): DummyEnum>(z_PathGlyphIndexRangeNV_adr);
private z_PathGlyphIndexRangeNV_ovr_0_anh0000001 := GetFuncOrNil&<function(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: IntPtr): DummyEnum>(z_PathGlyphIndexRangeNV_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PathGlyphIndexRangeNV(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: array of UInt32): DummyEnum :=
if (baseAndCount<>nil) and (baseAndCount.Length<>0) then
z_PathGlyphIndexRangeNV_ovr_0(fontTarget, fontName, fontStyle, pathParameterTemplate, emScale, baseAndCount[0]) else
z_PathGlyphIndexRangeNV_ovr_0_anh0000001(fontTarget, fontName, fontStyle, pathParameterTemplate, emScale, IntPtr.Zero);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PathGlyphIndexRangeNV(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; var baseAndCount: UInt32): DummyEnum :=
z_PathGlyphIndexRangeNV_ovr_0(fontTarget, fontName, fontStyle, pathParameterTemplate, emScale, baseAndCount);
private z_PathGlyphIndexRangeNV_ovr_2 := GetFuncOrNil&<function(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: IntPtr): DummyEnum>(z_PathGlyphIndexRangeNV_adr);
public [MethodImpl(MethodImplOptions.AggressiveInlining)] function PathGlyphIndexRangeNV(fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; pathParameterTemplate: UInt32; emScale: single; baseAndCount: IntPtr): DummyEnum :=
z_PathGlyphIndexRangeNV_ovr_2(fontTarget, fontName, fontStyle, pathParameterTemplate, emScale, baseAndCount);
private z_PathGlyphIndexArrayNV_adr := GetFuncAdr('glPathGlyphIndexArrayNV');
private z_PathGlyphIndexArrayNV_ovr_0 := GetFuncOrNil&<function(firstPathName: UInt32; fontTarget: DummyEnum; fontName: IntPtr; fontStyle: PathFontStyle; firstGlyphIndex: UInt32; numGlyphs: Int32; pathParameterTemplate: UInt32; emScale: single): DummyEnum>(z_PathGlyphIndexArrayNV_adr);

1
TestSuite/CompilationSamples/OpenGLABC.pas
View file

@ -6,7 +6,6 @@ unit OpenGLABC;
interface
uses OpenGL;
uses OpenGLABCBase;
implementation

5
TestSuite/HatIndexInMultiArray.pas Normal file
View file

@ -0,0 +1,5 @@
begin
var a := Matr(2, 3, 1, 2, 3, 4, 5, 6);
var b := a[^1, ^1];
Assert(b = 6);
end.