From b4049e52081312c25fdbeeb478d29a7fc2df0698 Mon Sep 17 00:00:00 2001 From: Sun Serega Date: Sat, 28 Sep 2024 12:49:40 +0200 Subject: [PATCH] Pull upstream --- DataScraping/Reps/OpenCL-Docs | 2 +- DataScraping/XML/OpenCL/funcs.bin | Bin 146272 -> 146259 bytes LastPack.log | 213 ------------------ Modules.Packed/OpenCL.pas | 114 +++++----- Modules.Packed/OpenCLABC.pas | 172 ++++---------- Packing/Descriptions/OpenCL.predoc | 114 +++++----- Packing/Descriptions/OpenCLABC.predoc | 172 ++++---------- .../!Def/WrapperProperties/07#CLMemory.dat | 5 - .../!Def/WrapperProperties/09#CLValue.dat | 5 - .../!Def/WrapperProperties/10#CLArray.dat | 5 - .../OpenCLABC/WrapperProperties.template | 172 ++++---------- .../OpenCL/Extension.Interface.template | 44 +++- .../LowLvl/OpenCL/Feature.Interface.template | 40 ---- .../OpenCL/Log/All EnumToTypeBinding's.log | 30 +-- .../LowLvl/OpenCL/Log/All Extension's.log | 1 - .../Template/LowLvl/OpenCL/Log/All Func's.log | 80 +++---- .../LowLvl/OpenCL/Log/All Group's.log | 22 +- .../LowLvl/OpenCL/Log/All ObjPropList's.log | 2 +- .../LowLvl/OpenCL/Types.Interface.template | 30 +-- 19 files changed, 362 insertions(+), 861 deletions(-) diff --git a/DataScraping/Reps/OpenCL-Docs b/DataScraping/Reps/OpenCL-Docs index b22efd5f..67ed79da 160000 --- a/DataScraping/Reps/OpenCL-Docs +++ b/DataScraping/Reps/OpenCL-Docs @@ -1 +1 @@ -Subproject commit b22efd5f505fa1ba6207aba8b5062bda849331be +Subproject commit 67ed79dae78e5361811bb790f4cfbb7dd5641e77 diff --git a/DataScraping/XML/OpenCL/funcs.bin b/DataScraping/XML/OpenCL/funcs.bin index cc1cd2e5006abd8cec318f209d2c581426ad6fd1..3ad287c62596437b8fca8616916d12dfb09c9f28 100644 GIT binary patch delta 638 zcmZWlUr3Wt6yLcnnOo6rb8~)+HXT!wmW+Zn2$b|Ou%h-9!5rVh5(gP7v8TwO=w+VZ zJ{t4~q6dpR`9}L{MUCdCvLYd0f@OX76qpY_MRo5dqlXUM^W&c1IlpuG)wdlVw;fMc z3+Oc{*0~*Q{P04u31WPvxJJ;iL~*?2L`A1~tCWXc4Cp$9`I^25Bne6UVHVrPaRCNeqcu~h2 zMT(n?P77Uzh2$t;uGmg~Sb*n^2!^W^XN>`jS15ipBF7>PWr3D>d}qD*{zskrM`8bx zj-PZoYudSc`5IWBNOSqz%4G=ohDK8t$FmbxN7G65%1CxXJ*iHrV{*PtE<$A?VBbA7 zoxppW?Yz78%kA`t`lTjGvY(H@%TLrdK&tcg4||=>qORJl$=a3|2iM1hrTKY<-`{%T zhnP0(f}97UEZ+iN*6V~28<~L)tuqLBVi02;eo-!)kYbV3kVf+bWwnPetM#viBS8XBiU)nQ98UQO#)S@6Z(o2fH040qt>+l$u*&mUH4p_T>=q QYS+8S0}w}b_mG6=FOWpaD*ylh delta 600 zcmX|;O=wd=5XbX>CNU-lv#o{XCHjogG#6v51?xc(YC%LW73rZ;p_Cv+Z6t}skCO*K z4h1Q5SgZ#xf`Wl68+hVN{Rol77fY2EL68unHKiAAj72I1_f_n|Z)ay`=0D5M?24

ylEz-F^GNfe1) z@>5cmG$hMnDciS+Hk(ZJJ})U~Bh^r8waBQ)7^hByQO(GZUS{+#w-#)Z75|r|YU{Ih zSi)^$YRW`Y)bb_PvaW5FMM0GA7FDX{8NDdBO0QZ}v4{Q?!)T{nr5rV6{r6Ia z=CX`3@7$Jk*4H0EAF?gZ&W$6j{fm;%Y{gzWY{uw-tbJg%lHXwHBCq_5AEw*#$WzYH zs>$ee#V+2LuK_!(0f;lx=OHlTXYh$Y)vnO*<=g8yyT5+i>abcxXnax?6ZI!P?Bjze zXnNd(fo4Q`$b%NHIuPRhH?dRqYZ&XWauzYlgS{9+g!j(lj_x{z(}VyYSU@*5W*PT> zfrG~$Bgnlq9OspJsnhWd!+icS7{9oH{W2tFuIv3ZguAeX-_VqR5`jLUDN{~<->n4n PWLSA52cfGGparam_value_sz) then raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(memobj: cl_mem; var param_value: clMemAllocFlagsINTEL; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_FLAGS_INTEL, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_TYPE(memobj: cl_mem; var param_value: clUnifiedSharedMemoryType; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_TYPE, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_BASE_PTR(memobj: cl_mem; var param_value: IntPtr; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_BASE_PTR, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_SIZE(memobj: cl_mem; var param_value: UIntPtr; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_SIZE, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_DEVICE(memobj: cl_mem; var param_value: cl_device_id; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_DEVICE, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; // added in cl2.0 private static function ntv_GetPipeInfo_1(pipe: cl_mem; param_name: clPipeInfo; param_value_size: UIntPtr; var param_value: Byte; var param_value_size_ret: UIntPtr): clErrorCode; @@ -16031,6 +15991,46 @@ cl_queue_family_properties = record begin Result := ntv_GetMemAllocInfoINTEL_2(context, ptr, param_name, param_value_size, PByte(pointer(@param_value))^, param_value_size_ret); end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_FLAGS_INTEL(context: cl_context; ptr: IntPtr; var param_value: clMemAllocFlagsINTEL; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_FLAGS_INTEL, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_TYPE(context: cl_context; ptr: IntPtr; var param_value: clUnifiedSharedMemoryType; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_TYPE, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_BASE_PTR(context: cl_context; ptr: IntPtr; var param_value: IntPtr; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_BASE_PTR, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_SIZE(context: cl_context; ptr: IntPtr; var param_value: UIntPtr; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_SIZE, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_DEVICE(context: cl_context; ptr: IntPtr; var param_value: cl_device_id; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_DEVICE, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_BUFFER_LOCATION(context: cl_context; ptr: IntPtr; var param_value: UInt32; param_value_validate_size: boolean := false): clErrorCode; begin var param_value_sz := new UIntPtr(Marshal.SizeOf&); @@ -18463,7 +18463,7 @@ cl_queue_family_properties = record {$endif DEBUG} [PCUNotRestore] /// id: cl_khr_external_memory - /// version: 1.0.0 + /// version: 1.0.1 /// core dependency: cl 3.0 clExternalMemoryKHR = sealed partial class public constructor(pl: cl_platform_id); @@ -19185,7 +19185,7 @@ cl_queue_family_properties = record {$endif DEBUG} [PCUNotRestore] /// id: cl_khr_external_semaphore - /// version: 1.0.0 + /// version: 1.0.1 /// core dependency: cl 1.2 /// ext dependencies: /// - cl_khr_semaphore (clSemaphoreKHR) diff --git a/Modules.Packed/OpenCLABC.pas b/Modules.Packed/OpenCLABC.pas index da1e7054..a5e6b23e 100644 --- a/Modules.Packed/OpenCLABC.pas +++ b/Modules.Packed/OpenCLABC.pas @@ -2974,44 +2974,19 @@ CLMemoryProperties = class begin cl.GetMemObjectInfo_MEM_USES_SVM_POINTER_ARM(self.ntv, Result).RaiseIfError; end; - private function GetAllocFlagsIntel: clMemAllocFlagsINTEL; - begin - cl.GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(self.ntv, Result).RaiseIfError; - end; - private function GetAllocType: clUnifiedSharedMemoryType; - begin - cl.GetMemObjectInfo_MEM_ALLOC_TYPE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocBasePtr: IntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_BASE_PTR(self.ntv, Result).RaiseIfError; - end; - private function GetAllocSize: UIntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_SIZE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocDevice: cl_device_id; - begin - cl.GetMemObjectInfo_MEM_ALLOC_DEVICE(self.ntv, Result).RaiseIfError; - end; - public property Flags: clMemFlags read GetFlags; - public property HostPtr: IntPtr read GetHostPtr; - public property UsesSvmPointer: clBool read GetUsesSvmPointer; - public property Properties: array of clMemProperties read GetProperties; - public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; - public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; - public property D3d10Resource: IntPtr read GetD3d10Resource; - public property D3d11Resource: IntPtr read GetD3d11Resource; - public property Dx9Resource: IntPtr read GetDx9Resource; - public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; - public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; - public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; - public property AllocFlagsIntel: clMemAllocFlagsINTEL read GetAllocFlagsIntel; - public property AllocType: clUnifiedSharedMemoryType read GetAllocType; - public property AllocBasePtr: IntPtr read GetAllocBasePtr; - public property AllocSize: UIntPtr read GetAllocSize; - public property AllocDevice: cl_device_id read GetAllocDevice; + public property Flags: clMemFlags read GetFlags; + public property HostPtr: IntPtr read GetHostPtr; + public property UsesSvmPointer: clBool read GetUsesSvmPointer; + public property Properties: array of clMemProperties read GetProperties; + public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; + public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; + public property D3d10Resource: IntPtr read GetD3d10Resource; + public property D3d11Resource: IntPtr read GetD3d11Resource; + public property Dx9Resource: IntPtr read GetDx9Resource; + public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; + public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; + public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; private static procedure AddProp(res: StringBuilder; get_prop: ()->T) := try @@ -3033,12 +3008,7 @@ CLMemoryProperties = class res += 'Dx9Resource = '; AddProp(res, GetDx9Resource ); res += #10; res += 'Dx9SharedHandle = '; AddProp(res, GetDx9SharedHandle ); res += #10; res += 'VaApiMediaSurface = '; AddProp(res, GetVaApiMediaSurface ); res += #10; - res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); res += #10; - res += 'AllocFlagsIntel = '; AddProp(res, GetAllocFlagsIntel ); res += #10; - res += 'AllocType = '; AddProp(res, GetAllocType ); res += #10; - res += 'AllocBasePtr = '; AddProp(res, GetAllocBasePtr ); res += #10; - res += 'AllocSize = '; AddProp(res, GetAllocSize ); res += #10; - res += 'AllocDevice = '; AddProp(res, GetAllocDevice ); + res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); end; public function ToString: string; override; begin @@ -3130,26 +3100,6 @@ CLValueProperties = class begin cl.GetMemObjectInfo_MEM_USES_SVM_POINTER_ARM(self.ntv, Result).RaiseIfError; end; - private function GetAllocFlagsIntel: clMemAllocFlagsINTEL; - begin - cl.GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(self.ntv, Result).RaiseIfError; - end; - private function GetAllocType: clUnifiedSharedMemoryType; - begin - cl.GetMemObjectInfo_MEM_ALLOC_TYPE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocBasePtr: IntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_BASE_PTR(self.ntv, Result).RaiseIfError; - end; - private function GetAllocSize: UIntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_SIZE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocDevice: cl_device_id; - begin - cl.GetMemObjectInfo_MEM_ALLOC_DEVICE(self.ntv, Result).RaiseIfError; - end; private function GetAssociatedMemobject: cl_mem; begin cl.GetMemObjectInfo_MEM_ASSOCIATED_MEMOBJECT(self.ntv, Result).RaiseIfError; @@ -3159,25 +3109,20 @@ CLValueProperties = class cl.GetMemObjectInfo_MEM_OFFSET(self.ntv, Result).RaiseIfError; end; - public property Flags: clMemFlags read GetFlags; - public property HostPtr: IntPtr read GetHostPtr; - public property UsesSvmPointer: clBool read GetUsesSvmPointer; - public property Properties: array of clMemProperties read GetProperties; - public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; - public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; - public property D3d10Resource: IntPtr read GetD3d10Resource; - public property D3d11Resource: IntPtr read GetD3d11Resource; - public property Dx9Resource: IntPtr read GetDx9Resource; - public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; - public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; - public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; - public property AllocFlagsIntel: clMemAllocFlagsINTEL read GetAllocFlagsIntel; - public property AllocType: clUnifiedSharedMemoryType read GetAllocType; - public property AllocBasePtr: IntPtr read GetAllocBasePtr; - public property AllocSize: UIntPtr read GetAllocSize; - public property AllocDevice: cl_device_id read GetAllocDevice; - public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; - public property Offset: UIntPtr read GetOffset; + public property Flags: clMemFlags read GetFlags; + public property HostPtr: IntPtr read GetHostPtr; + public property UsesSvmPointer: clBool read GetUsesSvmPointer; + public property Properties: array of clMemProperties read GetProperties; + public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; + public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; + public property D3d10Resource: IntPtr read GetD3d10Resource; + public property D3d11Resource: IntPtr read GetD3d11Resource; + public property Dx9Resource: IntPtr read GetDx9Resource; + public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; + public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; + public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; + public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; + public property Offset: UIntPtr read GetOffset; private static procedure AddProp(res: StringBuilder; get_prop: ()->T) := try @@ -3200,11 +3145,6 @@ CLValueProperties = class res += 'Dx9SharedHandle = '; AddProp(res, GetDx9SharedHandle ); res += #10; res += 'VaApiMediaSurface = '; AddProp(res, GetVaApiMediaSurface ); res += #10; res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); res += #10; - res += 'AllocFlagsIntel = '; AddProp(res, GetAllocFlagsIntel ); res += #10; - res += 'AllocType = '; AddProp(res, GetAllocType ); res += #10; - res += 'AllocBasePtr = '; AddProp(res, GetAllocBasePtr ); res += #10; - res += 'AllocSize = '; AddProp(res, GetAllocSize ); res += #10; - res += 'AllocDevice = '; AddProp(res, GetAllocDevice ); res += #10; res += 'AssociatedMemobject = '; AddProp(res, GetAssociatedMemobject); res += #10; res += 'Offset = '; AddProp(res, GetOffset ); end; @@ -3276,26 +3216,6 @@ CLArrayProperties = class begin cl.GetMemObjectInfo_MEM_USES_SVM_POINTER_ARM(self.ntv, Result).RaiseIfError; end; - private function GetAllocFlagsIntel: clMemAllocFlagsINTEL; - begin - cl.GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(self.ntv, Result).RaiseIfError; - end; - private function GetAllocType: clUnifiedSharedMemoryType; - begin - cl.GetMemObjectInfo_MEM_ALLOC_TYPE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocBasePtr: IntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_BASE_PTR(self.ntv, Result).RaiseIfError; - end; - private function GetAllocSize: UIntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_SIZE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocDevice: cl_device_id; - begin - cl.GetMemObjectInfo_MEM_ALLOC_DEVICE(self.ntv, Result).RaiseIfError; - end; private function GetAssociatedMemobject: cl_mem; begin cl.GetMemObjectInfo_MEM_ASSOCIATED_MEMOBJECT(self.ntv, Result).RaiseIfError; @@ -3305,25 +3225,20 @@ CLArrayProperties = class cl.GetMemObjectInfo_MEM_OFFSET(self.ntv, Result).RaiseIfError; end; - public property Flags: clMemFlags read GetFlags; - public property HostPtr: IntPtr read GetHostPtr; - public property UsesSvmPointer: clBool read GetUsesSvmPointer; - public property Properties: array of clMemProperties read GetProperties; - public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; - public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; - public property D3d10Resource: IntPtr read GetD3d10Resource; - public property D3d11Resource: IntPtr read GetD3d11Resource; - public property Dx9Resource: IntPtr read GetDx9Resource; - public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; - public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; - public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; - public property AllocFlagsIntel: clMemAllocFlagsINTEL read GetAllocFlagsIntel; - public property AllocType: clUnifiedSharedMemoryType read GetAllocType; - public property AllocBasePtr: IntPtr read GetAllocBasePtr; - public property AllocSize: UIntPtr read GetAllocSize; - public property AllocDevice: cl_device_id read GetAllocDevice; - public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; - public property Offset: UIntPtr read GetOffset; + public property Flags: clMemFlags read GetFlags; + public property HostPtr: IntPtr read GetHostPtr; + public property UsesSvmPointer: clBool read GetUsesSvmPointer; + public property Properties: array of clMemProperties read GetProperties; + public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; + public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; + public property D3d10Resource: IntPtr read GetD3d10Resource; + public property D3d11Resource: IntPtr read GetD3d11Resource; + public property Dx9Resource: IntPtr read GetDx9Resource; + public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; + public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; + public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; + public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; + public property Offset: UIntPtr read GetOffset; private static procedure AddProp(res: StringBuilder; get_prop: ()->T) := try @@ -3346,11 +3261,6 @@ CLArrayProperties = class res += 'Dx9SharedHandle = '; AddProp(res, GetDx9SharedHandle ); res += #10; res += 'VaApiMediaSurface = '; AddProp(res, GetVaApiMediaSurface ); res += #10; res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); res += #10; - res += 'AllocFlagsIntel = '; AddProp(res, GetAllocFlagsIntel ); res += #10; - res += 'AllocType = '; AddProp(res, GetAllocType ); res += #10; - res += 'AllocBasePtr = '; AddProp(res, GetAllocBasePtr ); res += #10; - res += 'AllocSize = '; AddProp(res, GetAllocSize ); res += #10; - res += 'AllocDevice = '; AddProp(res, GetAllocDevice ); res += #10; res += 'AssociatedMemobject = '; AddProp(res, GetAssociatedMemobject); res += #10; res += 'Offset = '; AddProp(res, GetOffset ); end; diff --git a/Packing/Descriptions/OpenCL.predoc b/Packing/Descriptions/OpenCL.predoc index 3e6ef4f2..2f127d7f 100644 --- a/Packing/Descriptions/OpenCL.predoc +++ b/Packing/Descriptions/OpenCL.predoc @@ -4292,11 +4292,6 @@ type public static property MEM_DX9_SHARED_HANDLE: clMemInfo read new clMemInfo($4074); public static property MEM_VA_API_MEDIA_SURFACE: clMemInfo read new clMemInfo($4098); public static property MEM_USES_SVM_POINTER_ARM: clMemInfo read new clMemInfo($40B7); - public static property MEM_ALLOC_FLAGS_INTEL: clMemInfo read new clMemInfo($4195); - public static property MEM_ALLOC_TYPE: clMemInfo read new clMemInfo($419A); - public static property MEM_ALLOC_BASE_PTR: clMemInfo read new clMemInfo($419B); - public static property MEM_ALLOC_SIZE: clMemInfo read new clMemInfo($419C); - public static property MEM_ALLOC_DEVICE: clMemInfo read new clMemInfo($419D); public function ToString: string; override; begin @@ -4338,16 +4333,6 @@ type Result := 'MEM_VA_API_MEDIA_SURFACE' else if MEM_USES_SVM_POINTER_ARM = self then Result := 'MEM_USES_SVM_POINTER_ARM' else - if MEM_ALLOC_FLAGS_INTEL = self then - Result := 'MEM_ALLOC_FLAGS_INTEL' else - if MEM_ALLOC_TYPE = self then - Result := 'MEM_ALLOC_TYPE' else - if MEM_ALLOC_BASE_PTR = self then - Result := 'MEM_ALLOC_BASE_PTR' else - if MEM_ALLOC_SIZE = self then - Result := 'MEM_ALLOC_SIZE' else - if MEM_ALLOC_DEVICE = self then - Result := 'MEM_ALLOC_DEVICE' else Result := $'clMemInfo[{self.val}]'; end; @@ -5458,10 +5443,25 @@ type public val: UInt32; public constructor(val: UInt32) := self.val := val; + public static property MEM_ALLOC_FLAGS_INTEL: clMemInfoINTEL read new clMemInfoINTEL($4195); + public static property MEM_ALLOC_TYPE: clMemInfoINTEL read new clMemInfoINTEL($419A); + public static property MEM_ALLOC_BASE_PTR: clMemInfoINTEL read new clMemInfoINTEL($419B); + public static property MEM_ALLOC_SIZE: clMemInfoINTEL read new clMemInfoINTEL($419C); + public static property MEM_ALLOC_DEVICE: clMemInfoINTEL read new clMemInfoINTEL($419D); public static property MEM_ALLOC_BUFFER_LOCATION: clMemInfoINTEL read new clMemInfoINTEL($419E); public function ToString: string; override; begin + if MEM_ALLOC_FLAGS_INTEL = self then + Result := 'MEM_ALLOC_FLAGS_INTEL' else + if MEM_ALLOC_TYPE = self then + Result := 'MEM_ALLOC_TYPE' else + if MEM_ALLOC_BASE_PTR = self then + Result := 'MEM_ALLOC_BASE_PTR' else + if MEM_ALLOC_SIZE = self then + Result := 'MEM_ALLOC_SIZE' else + if MEM_ALLOC_DEVICE = self then + Result := 'MEM_ALLOC_DEVICE' else if MEM_ALLOC_BUFFER_LOCATION = self then Result := 'MEM_ALLOC_BUFFER_LOCATION' else Result := $'clMemInfoINTEL[{self.val}]'; @@ -12521,46 +12521,6 @@ type if param_value_validate_size and (param_value_ret_size<>param_value_sz) then raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(memobj: cl_mem; var param_value: clMemAllocFlagsINTEL; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_FLAGS_INTEL, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_TYPE(memobj: cl_mem; var param_value: clUnifiedSharedMemoryType; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_TYPE, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_BASE_PTR(memobj: cl_mem; var param_value: IntPtr; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_BASE_PTR, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_SIZE(memobj: cl_mem; var param_value: UIntPtr; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_SIZE, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_DEVICE(memobj: cl_mem; var param_value: cl_device_id; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_DEVICE, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; // added in cl2.0 private static function ntv_GetPipeInfo_1(pipe: cl_mem; param_name: clPipeInfo; param_value_size: UIntPtr; var param_value: Byte; var param_value_size_ret: UIntPtr): clErrorCode; @@ -16019,6 +15979,46 @@ type begin Result := ntv_GetMemAllocInfoINTEL_2(context, ptr, param_name, param_value_size, PByte(pointer(@param_value))^, param_value_size_ret); end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_FLAGS_INTEL(context: cl_context; ptr: IntPtr; var param_value: clMemAllocFlagsINTEL; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_FLAGS_INTEL, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_TYPE(context: cl_context; ptr: IntPtr; var param_value: clUnifiedSharedMemoryType; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_TYPE, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_BASE_PTR(context: cl_context; ptr: IntPtr; var param_value: IntPtr; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_BASE_PTR, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_SIZE(context: cl_context; ptr: IntPtr; var param_value: UIntPtr; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_SIZE, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_DEVICE(context: cl_context; ptr: IntPtr; var param_value: cl_device_id; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_DEVICE, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_BUFFER_LOCATION(context: cl_context; ptr: IntPtr; var param_value: UInt32; param_value_validate_size: boolean := false): clErrorCode; begin var param_value_sz := new UIntPtr(Marshal.SizeOf&); @@ -18451,7 +18451,7 @@ type {$endif DEBUG} [PCUNotRestore] /// id: cl_khr_external_memory - /// version: 1.0.0 + /// version: 1.0.1 /// core dependency: cl 3.0 clExternalMemoryKHR = sealed partial class public constructor(pl: cl_platform_id); @@ -19173,7 +19173,7 @@ type {$endif DEBUG} [PCUNotRestore] /// id: cl_khr_external_semaphore - /// version: 1.0.0 + /// version: 1.0.1 /// core dependency: cl 1.2 /// ext dependencies: /// - cl_khr_semaphore (clSemaphoreKHR) diff --git a/Packing/Descriptions/OpenCLABC.predoc b/Packing/Descriptions/OpenCLABC.predoc index 2e9d1de6..fb51869d 100644 --- a/Packing/Descriptions/OpenCLABC.predoc +++ b/Packing/Descriptions/OpenCLABC.predoc @@ -2863,44 +2863,19 @@ type begin cl.GetMemObjectInfo_MEM_USES_SVM_POINTER_ARM(self.ntv, Result).RaiseIfError; end; - private function GetAllocFlagsIntel: clMemAllocFlagsINTEL; - begin - cl.GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(self.ntv, Result).RaiseIfError; - end; - private function GetAllocType: clUnifiedSharedMemoryType; - begin - cl.GetMemObjectInfo_MEM_ALLOC_TYPE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocBasePtr: IntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_BASE_PTR(self.ntv, Result).RaiseIfError; - end; - private function GetAllocSize: UIntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_SIZE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocDevice: cl_device_id; - begin - cl.GetMemObjectInfo_MEM_ALLOC_DEVICE(self.ntv, Result).RaiseIfError; - end; - public property Flags: clMemFlags read GetFlags; - public property HostPtr: IntPtr read GetHostPtr; - public property UsesSvmPointer: clBool read GetUsesSvmPointer; - public property Properties: array of clMemProperties read GetProperties; - public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; - public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; - public property D3d10Resource: IntPtr read GetD3d10Resource; - public property D3d11Resource: IntPtr read GetD3d11Resource; - public property Dx9Resource: IntPtr read GetDx9Resource; - public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; - public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; - public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; - public property AllocFlagsIntel: clMemAllocFlagsINTEL read GetAllocFlagsIntel; - public property AllocType: clUnifiedSharedMemoryType read GetAllocType; - public property AllocBasePtr: IntPtr read GetAllocBasePtr; - public property AllocSize: UIntPtr read GetAllocSize; - public property AllocDevice: cl_device_id read GetAllocDevice; + public property Flags: clMemFlags read GetFlags; + public property HostPtr: IntPtr read GetHostPtr; + public property UsesSvmPointer: clBool read GetUsesSvmPointer; + public property Properties: array of clMemProperties read GetProperties; + public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; + public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; + public property D3d10Resource: IntPtr read GetD3d10Resource; + public property D3d11Resource: IntPtr read GetD3d11Resource; + public property Dx9Resource: IntPtr read GetDx9Resource; + public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; + public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; + public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; private static procedure AddProp(res: StringBuilder; get_prop: ()->T) := try @@ -2922,12 +2897,7 @@ type res += 'Dx9Resource = '; AddProp(res, GetDx9Resource ); res += #10; res += 'Dx9SharedHandle = '; AddProp(res, GetDx9SharedHandle ); res += #10; res += 'VaApiMediaSurface = '; AddProp(res, GetVaApiMediaSurface ); res += #10; - res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); res += #10; - res += 'AllocFlagsIntel = '; AddProp(res, GetAllocFlagsIntel ); res += #10; - res += 'AllocType = '; AddProp(res, GetAllocType ); res += #10; - res += 'AllocBasePtr = '; AddProp(res, GetAllocBasePtr ); res += #10; - res += 'AllocSize = '; AddProp(res, GetAllocSize ); res += #10; - res += 'AllocDevice = '; AddProp(res, GetAllocDevice ); + res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); end; public function ToString: string; override; begin @@ -3019,26 +2989,6 @@ type begin cl.GetMemObjectInfo_MEM_USES_SVM_POINTER_ARM(self.ntv, Result).RaiseIfError; end; - private function GetAllocFlagsIntel: clMemAllocFlagsINTEL; - begin - cl.GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(self.ntv, Result).RaiseIfError; - end; - private function GetAllocType: clUnifiedSharedMemoryType; - begin - cl.GetMemObjectInfo_MEM_ALLOC_TYPE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocBasePtr: IntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_BASE_PTR(self.ntv, Result).RaiseIfError; - end; - private function GetAllocSize: UIntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_SIZE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocDevice: cl_device_id; - begin - cl.GetMemObjectInfo_MEM_ALLOC_DEVICE(self.ntv, Result).RaiseIfError; - end; private function GetAssociatedMemobject: cl_mem; begin cl.GetMemObjectInfo_MEM_ASSOCIATED_MEMOBJECT(self.ntv, Result).RaiseIfError; @@ -3048,25 +2998,20 @@ type cl.GetMemObjectInfo_MEM_OFFSET(self.ntv, Result).RaiseIfError; end; - public property Flags: clMemFlags read GetFlags; - public property HostPtr: IntPtr read GetHostPtr; - public property UsesSvmPointer: clBool read GetUsesSvmPointer; - public property Properties: array of clMemProperties read GetProperties; - public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; - public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; - public property D3d10Resource: IntPtr read GetD3d10Resource; - public property D3d11Resource: IntPtr read GetD3d11Resource; - public property Dx9Resource: IntPtr read GetDx9Resource; - public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; - public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; - public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; - public property AllocFlagsIntel: clMemAllocFlagsINTEL read GetAllocFlagsIntel; - public property AllocType: clUnifiedSharedMemoryType read GetAllocType; - public property AllocBasePtr: IntPtr read GetAllocBasePtr; - public property AllocSize: UIntPtr read GetAllocSize; - public property AllocDevice: cl_device_id read GetAllocDevice; - public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; - public property Offset: UIntPtr read GetOffset; + public property Flags: clMemFlags read GetFlags; + public property HostPtr: IntPtr read GetHostPtr; + public property UsesSvmPointer: clBool read GetUsesSvmPointer; + public property Properties: array of clMemProperties read GetProperties; + public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; + public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; + public property D3d10Resource: IntPtr read GetD3d10Resource; + public property D3d11Resource: IntPtr read GetD3d11Resource; + public property Dx9Resource: IntPtr read GetDx9Resource; + public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; + public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; + public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; + public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; + public property Offset: UIntPtr read GetOffset; private static procedure AddProp(res: StringBuilder; get_prop: ()->T) := try @@ -3089,11 +3034,6 @@ type res += 'Dx9SharedHandle = '; AddProp(res, GetDx9SharedHandle ); res += #10; res += 'VaApiMediaSurface = '; AddProp(res, GetVaApiMediaSurface ); res += #10; res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); res += #10; - res += 'AllocFlagsIntel = '; AddProp(res, GetAllocFlagsIntel ); res += #10; - res += 'AllocType = '; AddProp(res, GetAllocType ); res += #10; - res += 'AllocBasePtr = '; AddProp(res, GetAllocBasePtr ); res += #10; - res += 'AllocSize = '; AddProp(res, GetAllocSize ); res += #10; - res += 'AllocDevice = '; AddProp(res, GetAllocDevice ); res += #10; res += 'AssociatedMemobject = '; AddProp(res, GetAssociatedMemobject); res += #10; res += 'Offset = '; AddProp(res, GetOffset ); end; @@ -3165,26 +3105,6 @@ type begin cl.GetMemObjectInfo_MEM_USES_SVM_POINTER_ARM(self.ntv, Result).RaiseIfError; end; - private function GetAllocFlagsIntel: clMemAllocFlagsINTEL; - begin - cl.GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(self.ntv, Result).RaiseIfError; - end; - private function GetAllocType: clUnifiedSharedMemoryType; - begin - cl.GetMemObjectInfo_MEM_ALLOC_TYPE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocBasePtr: IntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_BASE_PTR(self.ntv, Result).RaiseIfError; - end; - private function GetAllocSize: UIntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_SIZE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocDevice: cl_device_id; - begin - cl.GetMemObjectInfo_MEM_ALLOC_DEVICE(self.ntv, Result).RaiseIfError; - end; private function GetAssociatedMemobject: cl_mem; begin cl.GetMemObjectInfo_MEM_ASSOCIATED_MEMOBJECT(self.ntv, Result).RaiseIfError; @@ -3194,25 +3114,20 @@ type cl.GetMemObjectInfo_MEM_OFFSET(self.ntv, Result).RaiseIfError; end; - public property Flags: clMemFlags read GetFlags; - public property HostPtr: IntPtr read GetHostPtr; - public property UsesSvmPointer: clBool read GetUsesSvmPointer; - public property Properties: array of clMemProperties read GetProperties; - public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; - public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; - public property D3d10Resource: IntPtr read GetD3d10Resource; - public property D3d11Resource: IntPtr read GetD3d11Resource; - public property Dx9Resource: IntPtr read GetDx9Resource; - public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; - public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; - public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; - public property AllocFlagsIntel: clMemAllocFlagsINTEL read GetAllocFlagsIntel; - public property AllocType: clUnifiedSharedMemoryType read GetAllocType; - public property AllocBasePtr: IntPtr read GetAllocBasePtr; - public property AllocSize: UIntPtr read GetAllocSize; - public property AllocDevice: cl_device_id read GetAllocDevice; - public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; - public property Offset: UIntPtr read GetOffset; + public property Flags: clMemFlags read GetFlags; + public property HostPtr: IntPtr read GetHostPtr; + public property UsesSvmPointer: clBool read GetUsesSvmPointer; + public property Properties: array of clMemProperties read GetProperties; + public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; + public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; + public property D3d10Resource: IntPtr read GetD3d10Resource; + public property D3d11Resource: IntPtr read GetD3d11Resource; + public property Dx9Resource: IntPtr read GetDx9Resource; + public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; + public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; + public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; + public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; + public property Offset: UIntPtr read GetOffset; private static procedure AddProp(res: StringBuilder; get_prop: ()->T) := try @@ -3235,11 +3150,6 @@ type res += 'Dx9SharedHandle = '; AddProp(res, GetDx9SharedHandle ); res += #10; res += 'VaApiMediaSurface = '; AddProp(res, GetVaApiMediaSurface ); res += #10; res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); res += #10; - res += 'AllocFlagsIntel = '; AddProp(res, GetAllocFlagsIntel ); res += #10; - res += 'AllocType = '; AddProp(res, GetAllocType ); res += #10; - res += 'AllocBasePtr = '; AddProp(res, GetAllocBasePtr ); res += #10; - res += 'AllocSize = '; AddProp(res, GetAllocSize ); res += #10; - res += 'AllocDevice = '; AddProp(res, GetAllocDevice ); res += #10; res += 'AssociatedMemobject = '; AddProp(res, GetAssociatedMemobject); res += #10; res += 'Offset = '; AddProp(res, GetOffset ); end; diff --git a/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/07#CLMemory.dat b/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/07#CLMemory.dat index 833465e8..15e2a23a 100644 --- a/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/07#CLMemory.dat +++ b/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/07#CLMemory.dat @@ -16,11 +16,6 @@ cl.GetMemObjectInfo # DX9_SHARED_HANDLE # VA_API_MEDIA_SURFACE # USES_SVM_POINTER_ARM -# ALLOC_FLAGS_INTEL -# ALLOC_TYPE -# ALLOC_BASE_PTR -# ALLOC_SIZE -# ALLOC_DEVICE Flat diff --git a/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/09#CLValue.dat b/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/09#CLValue.dat index dc664727..d73a9ca5 100644 --- a/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/09#CLValue.dat +++ b/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/09#CLValue.dat @@ -16,11 +16,6 @@ cl.GetMemObjectInfo # DX9_SHARED_HANDLE # VA_API_MEDIA_SURFACE # USES_SVM_POINTER_ARM -# ALLOC_FLAGS_INTEL -# ALLOC_TYPE -# ALLOC_BASE_PTR -# ALLOC_SIZE -# ALLOC_DEVICE # ASSOCIATED_MEMOBJECT # OFFSET Flat diff --git a/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/10#CLArray.dat b/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/10#CLArray.dat index 519ff756..2ef1237f 100644 --- a/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/10#CLArray.dat +++ b/Packing/Template/HighLvl/OpenCLABC/!Def/WrapperProperties/10#CLArray.dat @@ -16,11 +16,6 @@ cl.GetMemObjectInfo # DX9_SHARED_HANDLE # VA_API_MEDIA_SURFACE # USES_SVM_POINTER_ARM -# ALLOC_FLAGS_INTEL -# ALLOC_TYPE -# ALLOC_BASE_PTR -# ALLOC_SIZE -# ALLOC_DEVICE # ASSOCIATED_MEMOBJECT # OFFSET Flat diff --git a/Packing/Template/HighLvl/OpenCLABC/WrapperProperties.template b/Packing/Template/HighLvl/OpenCLABC/WrapperProperties.template index 8140836f..efc4146a 100644 --- a/Packing/Template/HighLvl/OpenCLABC/WrapperProperties.template +++ b/Packing/Template/HighLvl/OpenCLABC/WrapperProperties.template @@ -1343,44 +1343,19 @@ begin cl.GetMemObjectInfo_MEM_USES_SVM_POINTER_ARM(self.ntv, Result).RaiseIfError; end; - private function GetAllocFlagsIntel: clMemAllocFlagsINTEL; - begin - cl.GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(self.ntv, Result).RaiseIfError; - end; - private function GetAllocType: clUnifiedSharedMemoryType; - begin - cl.GetMemObjectInfo_MEM_ALLOC_TYPE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocBasePtr: IntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_BASE_PTR(self.ntv, Result).RaiseIfError; - end; - private function GetAllocSize: UIntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_SIZE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocDevice: cl_device_id; - begin - cl.GetMemObjectInfo_MEM_ALLOC_DEVICE(self.ntv, Result).RaiseIfError; - end; - public property Flags: clMemFlags read GetFlags; - public property HostPtr: IntPtr read GetHostPtr; - public property UsesSvmPointer: clBool read GetUsesSvmPointer; - public property Properties: array of clMemProperties read GetProperties; - public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; - public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; - public property D3d10Resource: IntPtr read GetD3d10Resource; - public property D3d11Resource: IntPtr read GetD3d11Resource; - public property Dx9Resource: IntPtr read GetDx9Resource; - public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; - public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; - public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; - public property AllocFlagsIntel: clMemAllocFlagsINTEL read GetAllocFlagsIntel; - public property AllocType: clUnifiedSharedMemoryType read GetAllocType; - public property AllocBasePtr: IntPtr read GetAllocBasePtr; - public property AllocSize: UIntPtr read GetAllocSize; - public property AllocDevice: cl_device_id read GetAllocDevice; + public property Flags: clMemFlags read GetFlags; + public property HostPtr: IntPtr read GetHostPtr; + public property UsesSvmPointer: clBool read GetUsesSvmPointer; + public property Properties: array of clMemProperties read GetProperties; + public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; + public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; + public property D3d10Resource: IntPtr read GetD3d10Resource; + public property D3d11Resource: IntPtr read GetD3d11Resource; + public property Dx9Resource: IntPtr read GetDx9Resource; + public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; + public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; + public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; private static procedure AddProp(res: StringBuilder; get_prop: ()->T) := try @@ -1402,12 +1377,7 @@ res += 'Dx9Resource = '; AddProp(res, GetDx9Resource ); res += #10; res += 'Dx9SharedHandle = '; AddProp(res, GetDx9SharedHandle ); res += #10; res += 'VaApiMediaSurface = '; AddProp(res, GetVaApiMediaSurface ); res += #10; - res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); res += #10; - res += 'AllocFlagsIntel = '; AddProp(res, GetAllocFlagsIntel ); res += #10; - res += 'AllocType = '; AddProp(res, GetAllocType ); res += #10; - res += 'AllocBasePtr = '; AddProp(res, GetAllocBasePtr ); res += #10; - res += 'AllocSize = '; AddProp(res, GetAllocSize ); res += #10; - res += 'AllocDevice = '; AddProp(res, GetAllocDevice ); + res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); end; public function ToString: string; override; begin @@ -1499,26 +1469,6 @@ begin cl.GetMemObjectInfo_MEM_USES_SVM_POINTER_ARM(self.ntv, Result).RaiseIfError; end; - private function GetAllocFlagsIntel: clMemAllocFlagsINTEL; - begin - cl.GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(self.ntv, Result).RaiseIfError; - end; - private function GetAllocType: clUnifiedSharedMemoryType; - begin - cl.GetMemObjectInfo_MEM_ALLOC_TYPE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocBasePtr: IntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_BASE_PTR(self.ntv, Result).RaiseIfError; - end; - private function GetAllocSize: UIntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_SIZE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocDevice: cl_device_id; - begin - cl.GetMemObjectInfo_MEM_ALLOC_DEVICE(self.ntv, Result).RaiseIfError; - end; private function GetAssociatedMemobject: cl_mem; begin cl.GetMemObjectInfo_MEM_ASSOCIATED_MEMOBJECT(self.ntv, Result).RaiseIfError; @@ -1528,25 +1478,20 @@ cl.GetMemObjectInfo_MEM_OFFSET(self.ntv, Result).RaiseIfError; end; - public property Flags: clMemFlags read GetFlags; - public property HostPtr: IntPtr read GetHostPtr; - public property UsesSvmPointer: clBool read GetUsesSvmPointer; - public property Properties: array of clMemProperties read GetProperties; - public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; - public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; - public property D3d10Resource: IntPtr read GetD3d10Resource; - public property D3d11Resource: IntPtr read GetD3d11Resource; - public property Dx9Resource: IntPtr read GetDx9Resource; - public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; - public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; - public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; - public property AllocFlagsIntel: clMemAllocFlagsINTEL read GetAllocFlagsIntel; - public property AllocType: clUnifiedSharedMemoryType read GetAllocType; - public property AllocBasePtr: IntPtr read GetAllocBasePtr; - public property AllocSize: UIntPtr read GetAllocSize; - public property AllocDevice: cl_device_id read GetAllocDevice; - public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; - public property Offset: UIntPtr read GetOffset; + public property Flags: clMemFlags read GetFlags; + public property HostPtr: IntPtr read GetHostPtr; + public property UsesSvmPointer: clBool read GetUsesSvmPointer; + public property Properties: array of clMemProperties read GetProperties; + public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; + public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; + public property D3d10Resource: IntPtr read GetD3d10Resource; + public property D3d11Resource: IntPtr read GetD3d11Resource; + public property Dx9Resource: IntPtr read GetDx9Resource; + public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; + public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; + public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; + public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; + public property Offset: UIntPtr read GetOffset; private static procedure AddProp(res: StringBuilder; get_prop: ()->T) := try @@ -1569,11 +1514,6 @@ res += 'Dx9SharedHandle = '; AddProp(res, GetDx9SharedHandle ); res += #10; res += 'VaApiMediaSurface = '; AddProp(res, GetVaApiMediaSurface ); res += #10; res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); res += #10; - res += 'AllocFlagsIntel = '; AddProp(res, GetAllocFlagsIntel ); res += #10; - res += 'AllocType = '; AddProp(res, GetAllocType ); res += #10; - res += 'AllocBasePtr = '; AddProp(res, GetAllocBasePtr ); res += #10; - res += 'AllocSize = '; AddProp(res, GetAllocSize ); res += #10; - res += 'AllocDevice = '; AddProp(res, GetAllocDevice ); res += #10; res += 'AssociatedMemobject = '; AddProp(res, GetAssociatedMemobject); res += #10; res += 'Offset = '; AddProp(res, GetOffset ); end; @@ -1645,26 +1585,6 @@ begin cl.GetMemObjectInfo_MEM_USES_SVM_POINTER_ARM(self.ntv, Result).RaiseIfError; end; - private function GetAllocFlagsIntel: clMemAllocFlagsINTEL; - begin - cl.GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(self.ntv, Result).RaiseIfError; - end; - private function GetAllocType: clUnifiedSharedMemoryType; - begin - cl.GetMemObjectInfo_MEM_ALLOC_TYPE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocBasePtr: IntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_BASE_PTR(self.ntv, Result).RaiseIfError; - end; - private function GetAllocSize: UIntPtr; - begin - cl.GetMemObjectInfo_MEM_ALLOC_SIZE(self.ntv, Result).RaiseIfError; - end; - private function GetAllocDevice: cl_device_id; - begin - cl.GetMemObjectInfo_MEM_ALLOC_DEVICE(self.ntv, Result).RaiseIfError; - end; private function GetAssociatedMemobject: cl_mem; begin cl.GetMemObjectInfo_MEM_ASSOCIATED_MEMOBJECT(self.ntv, Result).RaiseIfError; @@ -1674,25 +1594,20 @@ cl.GetMemObjectInfo_MEM_OFFSET(self.ntv, Result).RaiseIfError; end; - public property Flags: clMemFlags read GetFlags; - public property HostPtr: IntPtr read GetHostPtr; - public property UsesSvmPointer: clBool read GetUsesSvmPointer; - public property Properties: array of clMemProperties read GetProperties; - public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; - public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; - public property D3d10Resource: IntPtr read GetD3d10Resource; - public property D3d11Resource: IntPtr read GetD3d11Resource; - public property Dx9Resource: IntPtr read GetDx9Resource; - public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; - public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; - public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; - public property AllocFlagsIntel: clMemAllocFlagsINTEL read GetAllocFlagsIntel; - public property AllocType: clUnifiedSharedMemoryType read GetAllocType; - public property AllocBasePtr: IntPtr read GetAllocBasePtr; - public property AllocSize: UIntPtr read GetAllocSize; - public property AllocDevice: cl_device_id read GetAllocDevice; - public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; - public property Offset: UIntPtr read GetOffset; + public property Flags: clMemFlags read GetFlags; + public property HostPtr: IntPtr read GetHostPtr; + public property UsesSvmPointer: clBool read GetUsesSvmPointer; + public property Properties: array of clMemProperties read GetProperties; + public property Dx9MediaAdapterType: clDx9MediaAdapterType read GetDx9MediaAdapterType; + public property Dx9MediaSurfaceInfo: cl_dx9_surface_info read GetDx9MediaSurfaceInfo; + public property D3d10Resource: IntPtr read GetD3d10Resource; + public property D3d11Resource: IntPtr read GetD3d11Resource; + public property Dx9Resource: IntPtr read GetDx9Resource; + public property Dx9SharedHandle: IntPtr read GetDx9SharedHandle; + public property VaApiMediaSurface: IntPtr read GetVaApiMediaSurface; + public property UsesSvmPointerArm: clBool read GetUsesSvmPointerArm; + public property AssociatedMemobject: cl_mem read GetAssociatedMemobject; + public property Offset: UIntPtr read GetOffset; private static procedure AddProp(res: StringBuilder; get_prop: ()->T) := try @@ -1715,11 +1630,6 @@ res += 'Dx9SharedHandle = '; AddProp(res, GetDx9SharedHandle ); res += #10; res += 'VaApiMediaSurface = '; AddProp(res, GetVaApiMediaSurface ); res += #10; res += 'UsesSvmPointerArm = '; AddProp(res, GetUsesSvmPointerArm ); res += #10; - res += 'AllocFlagsIntel = '; AddProp(res, GetAllocFlagsIntel ); res += #10; - res += 'AllocType = '; AddProp(res, GetAllocType ); res += #10; - res += 'AllocBasePtr = '; AddProp(res, GetAllocBasePtr ); res += #10; - res += 'AllocSize = '; AddProp(res, GetAllocSize ); res += #10; - res += 'AllocDevice = '; AddProp(res, GetAllocDevice ); res += #10; res += 'AssociatedMemobject = '; AddProp(res, GetAssociatedMemobject); res += #10; res += 'Offset = '; AddProp(res, GetOffset ); end; diff --git a/Packing/Template/LowLvl/OpenCL/Extension.Interface.template b/Packing/Template/LowLvl/OpenCL/Extension.Interface.template index 48450b8e..31cf499b 100644 --- a/Packing/Template/LowLvl/OpenCL/Extension.Interface.template +++ b/Packing/Template/LowLvl/OpenCL/Extension.Interface.template @@ -2366,6 +2366,46 @@ begin Result := ntv_GetMemAllocInfoINTEL_2(context, ptr, param_name, param_value_size, PByte(pointer(@param_value))^, param_value_size_ret); end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_FLAGS_INTEL(context: cl_context; ptr: IntPtr; var param_value: clMemAllocFlagsINTEL; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_FLAGS_INTEL, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_TYPE(context: cl_context; ptr: IntPtr; var param_value: clUnifiedSharedMemoryType; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_TYPE, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_BASE_PTR(context: cl_context; ptr: IntPtr; var param_value: IntPtr; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_BASE_PTR, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_SIZE(context: cl_context; ptr: IntPtr; var param_value: UIntPtr; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_SIZE, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; + public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_DEVICE(context: cl_context; ptr: IntPtr; var param_value: cl_device_id; param_value_validate_size: boolean := false): clErrorCode; + begin + var param_value_sz := new UIntPtr(Marshal.SizeOf&); + var param_value_ret_size: UIntPtr; + Result := GetMemAllocInfoINTEL(context, ptr, clMemInfoINTEL.MEM_ALLOC_DEVICE, param_value_sz,param_value,param_value_ret_size); + if param_value_validate_size and (param_value_ret_size<>param_value_sz) then + raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); + end; public [MethodImpl(MethodImplOptions.AggressiveInlining)] function GetMemAllocInfoINTEL_MEM_ALLOC_BUFFER_LOCATION(context: cl_context; ptr: IntPtr; var param_value: UInt32; param_value_validate_size: boolean := false): clErrorCode; begin var param_value_sz := new UIntPtr(Marshal.SizeOf&); @@ -4798,7 +4838,7 @@ {$endif DEBUG} [PCUNotRestore] /// id: cl_khr_external_memory - /// version: 1.0.0 + /// version: 1.0.1 /// core dependency: cl 3.0 clExternalMemoryKHR = sealed partial class public constructor(pl: cl_platform_id); @@ -5520,7 +5560,7 @@ {$endif DEBUG} [PCUNotRestore] /// id: cl_khr_external_semaphore - /// version: 1.0.0 + /// version: 1.0.1 /// core dependency: cl 1.2 /// ext dependencies: /// - cl_khr_semaphore (clSemaphoreKHR) diff --git a/Packing/Template/LowLvl/OpenCL/Feature.Interface.template b/Packing/Template/LowLvl/OpenCL/Feature.Interface.template index ac6d9f74..3c6e8d42 100644 --- a/Packing/Template/LowLvl/OpenCL/Feature.Interface.template +++ b/Packing/Template/LowLvl/OpenCL/Feature.Interface.template @@ -6159,46 +6159,6 @@ if param_value_validate_size and (param_value_ret_size<>param_value_sz) then raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_FLAGS_INTEL(memobj: cl_mem; var param_value: clMemAllocFlagsINTEL; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_FLAGS_INTEL, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_TYPE(memobj: cl_mem; var param_value: clUnifiedSharedMemoryType; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_TYPE, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_BASE_PTR(memobj: cl_mem; var param_value: IntPtr; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_BASE_PTR, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_SIZE(memobj: cl_mem; var param_value: UIntPtr; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_SIZE, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; - public [MethodImpl(MethodImplOptions.AggressiveInlining)] static function GetMemObjectInfo_MEM_ALLOC_DEVICE(memobj: cl_mem; var param_value: cl_device_id; param_value_validate_size: boolean := false): clErrorCode; - begin - var param_value_sz := new UIntPtr(Marshal.SizeOf&); - var param_value_ret_size: UIntPtr; - Result := GetMemObjectInfo(memobj, clMemInfo.MEM_ALLOC_DEVICE, param_value_sz,param_value,param_value_ret_size); - if param_value_validate_size and (param_value_ret_size<>param_value_sz) then - raise new InvalidOperationException($'Implementation returned a size of {param_value_ret_size} instead of {param_value_sz}'); - end; // added in cl2.0 private static function ntv_GetPipeInfo_1(pipe: cl_mem; param_name: clPipeInfo; param_value_size: UIntPtr; var param_value: Byte; var param_value_size_ret: UIntPtr): clErrorCode; diff --git a/Packing/Template/LowLvl/OpenCL/Log/All EnumToTypeBinding's.log b/Packing/Template/LowLvl/OpenCL/Log/All EnumToTypeBinding's.log index f1d99424..e3350a90 100644 --- a/Packing/Template/LowLvl/OpenCL/Log/All EnumToTypeBinding's.log +++ b/Packing/Template/LowLvl/OpenCL/Log/All EnumToTypeBinding's.log @@ -919,21 +919,6 @@ IntPtr --- MEM_USES_SVM_POINTER_ARM !output clBool ---- MEM_ALLOC_FLAGS_INTEL -!output -clMemAllocFlagsINTEL ---- MEM_ALLOC_TYPE -!output -clUnifiedSharedMemoryType ---- MEM_ALLOC_BASE_PTR -!output -IntPtr ---- MEM_ALLOC_SIZE -!output -UIntPtr ---- MEM_ALLOC_DEVICE -!output -cl_device_id # cl.GetPipeInfo 2 @@ -1206,6 +1191,21 @@ UInt32 4 5 6 +--- MEM_ALLOC_FLAGS_INTEL +!output +clMemAllocFlagsINTEL +--- MEM_ALLOC_TYPE +!output +clUnifiedSharedMemoryType +--- MEM_ALLOC_BASE_PTR +!output +IntPtr +--- MEM_ALLOC_SIZE +!output +UIntPtr +--- MEM_ALLOC_DEVICE +!output +cl_device_id --- MEM_ALLOC_BUFFER_LOCATION !output UInt32 diff --git a/Packing/Template/LowLvl/OpenCL/Log/All Extension's.log b/Packing/Template/LowLvl/OpenCL/Log/All Extension's.log index f71269ca..c7af3951 100644 --- a/Packing/Template/LowLvl/OpenCL/Log/All Extension's.log +++ b/Packing/Template/LowLvl/OpenCL/Log/All Extension's.log @@ -661,7 +661,6 @@ Enum [cl::COMMAND_BUFFER_DEVICE_SIDE_SYNC] Enum [cl::COMMAND_BUFFER_CAPABILITY_MULTIPLE_QUEUE] Enum [cl::PLATFORM_COMMAND_BUFFER_CAPABILITIES] - Enum [cl::DEVICE_COMMAND_BUFFER_CAPABILITIES] Enum [cl::DEVICE_COMMAND_BUFFER_NUM_SYNC_DEVICES] Enum [cl::DEVICE_COMMAND_BUFFER_SYNC_DEVICES] Func [cl::RemapCommandBuffer + KHR] diff --git a/Packing/Template/LowLvl/OpenCL/Log/All Func's.log b/Packing/Template/LowLvl/OpenCL/Log/All Func's.log index 8bb2f20d..3bb3768d 100644 --- a/Packing/Template/LowLvl/OpenCL/Log/All Func's.log +++ b/Packing/Template/LowLvl/OpenCL/Log/All Func's.log @@ -2044,38 +2044,33 @@ param_value_size: UIntPtr param_value: pointer param_value_size_ret: var UIntPtr / IntPtr !ffo -29 - clErrorCode | cl_mem | clMemInfo | UIntPtr | var T | var UIntPtr | - clErrorCode | cl_mem | clMemInfo | UIntPtr | var T | IntPtr | - clErrorCode | cl_mem | clMemInfo | UIntPtr | pointer | var UIntPtr | - clErrorCode | cl_mem | clMemInfo | UIntPtr | pointer | IntPtr | - clErrorCode | cl_mem | clMemInfo.MEM_TYPE | * | var clMemObjectType | * | - clErrorCode | cl_mem | clMemInfo.MEM_FLAGS | * | var clMemFlags | * | - clErrorCode | cl_mem | clMemInfo.MEM_SIZE | * | var UIntPtr | * | - clErrorCode | cl_mem | clMemInfo.MEM_HOST_PTR | * | var IntPtr | * | - clErrorCode | cl_mem | clMemInfo.MEM_MAP_COUNT | * | var UInt32 | * | - clErrorCode | cl_mem | clMemInfo.MEM_REFERENCE_COUNT | * | var UInt32 | * | - clErrorCode | cl_mem | clMemInfo.MEM_CONTEXT | * | var cl_context | * | - clErrorCode | cl_mem | clMemInfo.MEM_ASSOCIATED_MEMOBJECT | * | var cl_mem | * | - clErrorCode | cl_mem | clMemInfo.MEM_OFFSET | * | var UIntPtr | * | - clErrorCode | cl_mem | clMemInfo.MEM_USES_SVM_POINTER | * | var clBool | * | - clErrorCode | cl_mem | clMemInfo.MEM_PROPERTIES | * | var array of clMemProperties | * | - clErrorCode | cl_mem | clMemInfo.MEM_PROPERTIES | UInt32 | var clMemProperties | * | - clErrorCode | cl_mem | clMemInfo.MEM_DX9_MEDIA_ADAPTER_TYPE | * | var clDx9MediaAdapterType | * | - clErrorCode | cl_mem | clMemInfo.MEM_DX9_MEDIA_SURFACE_INFO | * | var cl_dx9_surface_info | * | - clErrorCode | cl_mem | clMemInfo.MEM_D3D10_RESOURCE | * | var IntPtr | * | - clErrorCode | cl_mem | clMemInfo.MEM_D3D11_RESOURCE | * | var IntPtr | * | - clErrorCode | cl_mem | clMemInfo.MEM_DX9_RESOURCE | * | var IntPtr | * | - clErrorCode | cl_mem | clMemInfo.MEM_DX9_SHARED_HANDLE | * | var IntPtr | * | - clErrorCode | cl_mem | clMemInfo.MEM_VA_API_MEDIA_SURFACE | * | var IntPtr | * | - clErrorCode | cl_mem | clMemInfo.MEM_USES_SVM_POINTER_ARM | * | var clBool | * | - clErrorCode | cl_mem | clMemInfo.MEM_ALLOC_FLAGS_INTEL | * | var clMemAllocFlagsINTEL | * | - clErrorCode | cl_mem | clMemInfo.MEM_ALLOC_TYPE | * | var clUnifiedSharedMemoryType | * | - clErrorCode | cl_mem | clMemInfo.MEM_ALLOC_BASE_PTR | * | var IntPtr | * | - clErrorCode | cl_mem | clMemInfo.MEM_ALLOC_SIZE | * | var UIntPtr | * | - clErrorCode | cl_mem | clMemInfo.MEM_ALLOC_DEVICE | * | var cl_device_id | * | - ----------- | ------ | ------------------------------------ | ---------------- | ----------------------------- | -------------------- | - | memobj | param_name | param_value_size | param_value | param_value_size_ret | +24 + clErrorCode | cl_mem | clMemInfo | UIntPtr | var T | var UIntPtr | + clErrorCode | cl_mem | clMemInfo | UIntPtr | var T | IntPtr | + clErrorCode | cl_mem | clMemInfo | UIntPtr | pointer | var UIntPtr | + clErrorCode | cl_mem | clMemInfo | UIntPtr | pointer | IntPtr | + clErrorCode | cl_mem | clMemInfo.MEM_TYPE | * | var clMemObjectType | * | + clErrorCode | cl_mem | clMemInfo.MEM_FLAGS | * | var clMemFlags | * | + clErrorCode | cl_mem | clMemInfo.MEM_SIZE | * | var UIntPtr | * | + clErrorCode | cl_mem | clMemInfo.MEM_HOST_PTR | * | var IntPtr | * | + clErrorCode | cl_mem | clMemInfo.MEM_MAP_COUNT | * | var UInt32 | * | + clErrorCode | cl_mem | clMemInfo.MEM_REFERENCE_COUNT | * | var UInt32 | * | + clErrorCode | cl_mem | clMemInfo.MEM_CONTEXT | * | var cl_context | * | + clErrorCode | cl_mem | clMemInfo.MEM_ASSOCIATED_MEMOBJECT | * | var cl_mem | * | + clErrorCode | cl_mem | clMemInfo.MEM_OFFSET | * | var UIntPtr | * | + clErrorCode | cl_mem | clMemInfo.MEM_USES_SVM_POINTER | * | var clBool | * | + clErrorCode | cl_mem | clMemInfo.MEM_PROPERTIES | * | var array of clMemProperties | * | + clErrorCode | cl_mem | clMemInfo.MEM_PROPERTIES | UInt32 | var clMemProperties | * | + clErrorCode | cl_mem | clMemInfo.MEM_DX9_MEDIA_ADAPTER_TYPE | * | var clDx9MediaAdapterType | * | + clErrorCode | cl_mem | clMemInfo.MEM_DX9_MEDIA_SURFACE_INFO | * | var cl_dx9_surface_info | * | + clErrorCode | cl_mem | clMemInfo.MEM_D3D10_RESOURCE | * | var IntPtr | * | + clErrorCode | cl_mem | clMemInfo.MEM_D3D11_RESOURCE | * | var IntPtr | * | + clErrorCode | cl_mem | clMemInfo.MEM_DX9_RESOURCE | * | var IntPtr | * | + clErrorCode | cl_mem | clMemInfo.MEM_DX9_SHARED_HANDLE | * | var IntPtr | * | + clErrorCode | cl_mem | clMemInfo.MEM_VA_API_MEDIA_SURFACE | * | var IntPtr | * | + clErrorCode | cl_mem | clMemInfo.MEM_USES_SVM_POINTER_ARM | * | var clBool | * | + ----------- | ------ | ------------------------------------ | ---------------- | ---------------------------- | -------------------- | + | memobj | param_name | param_value_size | param_value | param_value_size_ret | # cl::GetPipeInfo !ppt @@ -3583,14 +3578,19 @@ param_value_size: UIntPtr param_value: pointer param_value_size_ret: var UIntPtr / IntPtr !ffo -5 - clErrorCode | cl_context | IntPtr const | clMemInfoINTEL | UIntPtr | var T | var UIntPtr | - clErrorCode | cl_context | IntPtr const | clMemInfoINTEL | UIntPtr | var T | IntPtr | - clErrorCode | cl_context | IntPtr const | clMemInfoINTEL.MEM_ALLOC_BUFFER_LOCATION | * | var UInt32 | * | - clErrorCode | cl_context | IntPtr const | clMemInfoINTEL | UIntPtr | pointer | var UIntPtr | - clErrorCode | cl_context | IntPtr const | clMemInfoINTEL | UIntPtr | pointer | IntPtr | - ----------- | ---------- | ------------ | ---------------------------------------- | ---------------- | ----------- | -------------------- | - | context | ptr | param_name | param_value_size | param_value | param_value_size_ret | +10 + clErrorCode | cl_context | IntPtr const | clMemInfoINTEL | UIntPtr | var T | var UIntPtr | + clErrorCode | cl_context | IntPtr const | clMemInfoINTEL | UIntPtr | var T | IntPtr | + clErrorCode | cl_context | IntPtr const | clMemInfoINTEL.MEM_ALLOC_FLAGS_INTEL | * | var clMemAllocFlagsINTEL | * | + clErrorCode | cl_context | IntPtr const | clMemInfoINTEL.MEM_ALLOC_TYPE | * | var clUnifiedSharedMemoryType | * | + clErrorCode | cl_context | IntPtr const | clMemInfoINTEL.MEM_ALLOC_BASE_PTR | * | var IntPtr | * | + clErrorCode | cl_context | IntPtr const | clMemInfoINTEL.MEM_ALLOC_SIZE | * | var UIntPtr | * | + clErrorCode | cl_context | IntPtr const | clMemInfoINTEL.MEM_ALLOC_DEVICE | * | var cl_device_id | * | + clErrorCode | cl_context | IntPtr const | clMemInfoINTEL.MEM_ALLOC_BUFFER_LOCATION | * | var UInt32 | * | + clErrorCode | cl_context | IntPtr const | clMemInfoINTEL | UIntPtr | pointer | var UIntPtr | + clErrorCode | cl_context | IntPtr const | clMemInfoINTEL | UIntPtr | pointer | IntPtr | + ----------- | ---------- | ------------ | ---------------------------------------- | ---------------- | ----------------------------- | -------------------- | + | context | ptr | param_name | param_value_size | param_value | param_value_size_ret | # cl::GetSupportedD3D10TextureFormats + INTEL !ppt diff --git a/Packing/Template/LowLvl/OpenCL/Log/All Group's.log b/Packing/Template/LowLvl/OpenCL/Log/All Group's.log index f9b485e4..4de12bd8 100644 --- a/Packing/Template/LowLvl/OpenCL/Log/All Group's.log +++ b/Packing/Template/LowLvl/OpenCL/Log/All Group's.log @@ -277,12 +277,6 @@ PRINTF_BUFFERSIZE[$40B1] CONTEXT_SHOW_DIAGNOSTICS[$4106] -# clContextPropertyDiagnosticsLevel (cl::ContextPropertyDiagnosticsLevel) : IntPtr (Bitfield) - CONTEXT_DIAGNOSTICS_LEVEL_GOOD[1 shl 0] - CONTEXT_DIAGNOSTICS_LEVEL_BAD[1 shl 1] - CONTEXT_DIAGNOSTICS_LEVEL_NEUTRAL[1 shl 2] - CONTEXT_DIAGNOSTICS_LEVEL_ALL[$00FF] - # clD3D10DeviceSet (cl::D3D10DeviceSet) : UInt32 PREFERRED_DEVICES_FOR_D3D10[$4012] ALL_DEVICES_FOR_D3D10[$4013] @@ -631,6 +625,12 @@ UNIFIED_SHARED_MEMORY_CONCURRENT_ACCESS[1 shl 2] UNIFIED_SHARED_MEMORY_CONCURRENT_ATOMIC_ACCESS[1 shl 3] +# clDiagnosticVerboseLevel (cl::DiagnosticVerboseLevel) : UInt64 + CONTEXT_DIAGNOSTICS_LEVEL_GOOD[$0001] + CONTEXT_DIAGNOSTICS_LEVEL_BAD[$0002] + CONTEXT_DIAGNOSTICS_LEVEL_NEUTRAL[$0004] + CONTEXT_DIAGNOSTICS_LEVEL_ALL[$00FF] + # clDx9DeviceSet (cl::Dx9DeviceSet) : UInt32 PREFERRED_DEVICES_FOR_DX9[$4024] ALL_DEVICES_FOR_DX9[$4025] @@ -988,11 +988,6 @@ MEM_DX9_SHARED_HANDLE[$4074] MEM_VA_API_MEDIA_SURFACE[$4098] MEM_USES_SVM_POINTER + ARM[$40B7] - MEM_ALLOC_FLAGS + INTEL[$4195] - MEM_ALLOC_TYPE[$419A] - MEM_ALLOC_BASE_PTR[$419B] - MEM_ALLOC_SIZE[$419C] - MEM_ALLOC_DEVICE[$419D] # clMemMigrationFlags (cl::MemMigrationFlags) : UInt64 (Bitfield) MIGRATE_MEM_OBJECT_HOST[1 shl 0] @@ -1227,6 +1222,11 @@ MEM_ALLOC_INITIAL_PLACEMENT_HOST[1 shl 2] # clMemInfoINTEL (cl::MemInfo + intel) : UInt32 + MEM_ALLOC_FLAGS + INTEL[$4195] + MEM_ALLOC_TYPE[$419A] + MEM_ALLOC_BASE_PTR[$419B] + MEM_ALLOC_SIZE[$419C] + MEM_ALLOC_DEVICE[$419D] MEM_ALLOC_BUFFER_LOCATION[$419E] # clMemPropertiesINTEL (cl::MemProperties + intel) : UInt64 diff --git a/Packing/Template/LowLvl/OpenCL/Log/All ObjPropList's.log b/Packing/Template/LowLvl/OpenCL/Log/All ObjPropList's.log index bdba18a5..2bde79c4 100644 --- a/Packing/Template/LowLvl/OpenCL/Log/All ObjPropList's.log +++ b/Packing/Template/LowLvl/OpenCL/Log/All ObjPropList's.log @@ -77,7 +77,7 @@ clPrintfCallbackArm UIntPtr --- CONTEXT_SHOW_DIAGNOSTICS !type -clContextPropertyDiagnosticsLevel +clDiagnosticVerboseLevel # clDevicePartitionProperty --- DEVICE_PARTITION_EQUALLY diff --git a/Packing/Template/LowLvl/OpenCL/Types.Interface.template b/Packing/Template/LowLvl/OpenCL/Types.Interface.template index df2cca13..73ca8476 100644 --- a/Packing/Template/LowLvl/OpenCL/Types.Interface.template +++ b/Packing/Template/LowLvl/OpenCL/Types.Interface.template @@ -4268,11 +4268,6 @@ public static property MEM_DX9_SHARED_HANDLE: clMemInfo read new clMemInfo($4074); public static property MEM_VA_API_MEDIA_SURFACE: clMemInfo read new clMemInfo($4098); public static property MEM_USES_SVM_POINTER_ARM: clMemInfo read new clMemInfo($40B7); - public static property MEM_ALLOC_FLAGS_INTEL: clMemInfo read new clMemInfo($4195); - public static property MEM_ALLOC_TYPE: clMemInfo read new clMemInfo($419A); - public static property MEM_ALLOC_BASE_PTR: clMemInfo read new clMemInfo($419B); - public static property MEM_ALLOC_SIZE: clMemInfo read new clMemInfo($419C); - public static property MEM_ALLOC_DEVICE: clMemInfo read new clMemInfo($419D); public function ToString: string; override; begin @@ -4314,16 +4309,6 @@ Result := 'MEM_VA_API_MEDIA_SURFACE' else if MEM_USES_SVM_POINTER_ARM = self then Result := 'MEM_USES_SVM_POINTER_ARM' else - if MEM_ALLOC_FLAGS_INTEL = self then - Result := 'MEM_ALLOC_FLAGS_INTEL' else - if MEM_ALLOC_TYPE = self then - Result := 'MEM_ALLOC_TYPE' else - if MEM_ALLOC_BASE_PTR = self then - Result := 'MEM_ALLOC_BASE_PTR' else - if MEM_ALLOC_SIZE = self then - Result := 'MEM_ALLOC_SIZE' else - if MEM_ALLOC_DEVICE = self then - Result := 'MEM_ALLOC_DEVICE' else Result := $'clMemInfo[{self.val}]'; end; @@ -5434,10 +5419,25 @@ public val: UInt32; public constructor(val: UInt32) := self.val := val; + public static property MEM_ALLOC_FLAGS_INTEL: clMemInfoINTEL read new clMemInfoINTEL($4195); + public static property MEM_ALLOC_TYPE: clMemInfoINTEL read new clMemInfoINTEL($419A); + public static property MEM_ALLOC_BASE_PTR: clMemInfoINTEL read new clMemInfoINTEL($419B); + public static property MEM_ALLOC_SIZE: clMemInfoINTEL read new clMemInfoINTEL($419C); + public static property MEM_ALLOC_DEVICE: clMemInfoINTEL read new clMemInfoINTEL($419D); public static property MEM_ALLOC_BUFFER_LOCATION: clMemInfoINTEL read new clMemInfoINTEL($419E); public function ToString: string; override; begin + if MEM_ALLOC_FLAGS_INTEL = self then + Result := 'MEM_ALLOC_FLAGS_INTEL' else + if MEM_ALLOC_TYPE = self then + Result := 'MEM_ALLOC_TYPE' else + if MEM_ALLOC_BASE_PTR = self then + Result := 'MEM_ALLOC_BASE_PTR' else + if MEM_ALLOC_SIZE = self then + Result := 'MEM_ALLOC_SIZE' else + if MEM_ALLOC_DEVICE = self then + Result := 'MEM_ALLOC_DEVICE' else if MEM_ALLOC_BUFFER_LOCATION = self then Result := 'MEM_ALLOC_BUFFER_LOCATION' else Result := $'clMemInfoINTEL[{self.val}]';