opengl
/
Vulkan
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Browse Source

* finished implementation of vkuPhysicalDevice

master
Bergmann89 10 years ago
parent
ea7ba57a75
commit
6253294e07
6 changed files with 642 additions and 166 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +2
    -1
      projects/triangle/triangle.lpr
  2. +106
    -97
      projects/triangle/triangle.lps
  3. +41
    -7
      projects/triangle/uMainForm.pas
  4. +28
    -9
      projects/utils/uvkuInstance.pas
  5. +46
    -52
      projects/utils/uvkuPhysicalDevice.pas
  6. +419
    -0
      projects/utils/uvkuUtils.pas

+ 2
- 1
projects/triangle/triangle.lpr View File

@@ -1,12 +1,13 @@
program triangle; program triangle;


{$mode objfpc}{$H+} {$mode objfpc}{$H+}
{$APPTYPE CONSOLE}


uses uses
{$IFDEF UNIX}{$IFDEF UseCThreads} {$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, Dialogs, Forms, uMainForm, Vulkan, uvkuInstance, uvkuUtils, uvkuInstanceEx, uvkuPhysicalDevice;
Interfaces, Dialogs, Forms, uMainForm, Vulkan;


{$R *.res} {$R *.res}




+ 106
- 97
projects/triangle/triangle.lps View File

@@ -4,13 +4,14 @@
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="9"/> <Version Value="9"/>
<BuildModes Active="Default"/> <BuildModes Active="Default"/>
<Units Count="11">
<Units Count="12">
<Unit0> <Unit0>
<Filename Value="triangle.lpr"/> <Filename Value="triangle.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<CursorPos X="47" Y="22"/>
<UsageCount Value="29"/>
<EditorIndex Value="1"/>
<CursorPos X="48" Y="10"/>
<UsageCount Value="32"/>
<Loaded Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="uMainForm.pas"/> <Filename Value="uMainForm.pas"/>
@@ -18,208 +19,216 @@
<ComponentName Value="MainForm"/> <ComponentName Value="MainForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<TopLine Value="30"/>
<CursorPos X="25" Y="9"/>
<UsageCount Value="29"/>
<CursorPos X="56" Y="9"/>
<UsageCount Value="32"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="..\Vulkan.pas"/> <Filename Value="..\Vulkan.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="2500"/>
<CursorPos X="3" Y="2516"/>
<UsageCount Value="29"/>
<EditorIndex Value="6"/>
<TopLine Value="1417"/>
<CursorPos X="3" Y="1433"/>
<UsageCount Value="32"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="..\utils\uvkuInstance.pas"/> <Filename Value="..\utils\uvkuInstance.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="3"/>
<TopLine Value="59"/>
<CursorPos X="10" Y="85"/>
<UsageCount Value="27"/>
<EditorIndex Value="4"/>
<TopLine Value="43"/>
<CursorPos Y="50"/>
<UsageCount Value="30"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\utils\uvkuUtils.pas"/> <Filename Value="..\utils\uvkuUtils.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<EditorIndex Value="6"/>
<CursorPos X="16" Y="13"/>
<UsageCount Value="24"/>
<EditorIndex Value="8"/>
<TopLine Value="28"/>
<CursorPos Y="40"/>
<UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\utils\uvkuInstanceEx.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="2"/>
<CursorPos X="56" Y="212"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="5"/>
<TopLine Value="17"/>
<CursorPos X="14" Y="32"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="..\..\data\Vulkan.tpl"/> <Filename Value="..\..\data\Vulkan.tpl"/>
<EditorIndex Value="1"/>
<EditorIndex Value="3"/>
<TopLine Value="44"/> <TopLine Value="44"/>
<CursorPos X="27" Y="22"/> <CursorPos X="27" Y="22"/>
<UsageCount Value="13"/>
<UsageCount Value="14"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<DefaultSyntaxHighlighter Value="None"/> <DefaultSyntaxHighlighter Value="None"/>
</Unit5>
<Unit6>
</Unit7>
<Unit8>
<Filename Value="C:\Zusatzprogramme\Lazarus\fpc\3.1.1\source\packages\fcl-base\src\custapp.pp"/> <Filename Value="C:\Zusatzprogramme\Lazarus\fpc\3.1.1\source\packages\fcl-base\src\custapp.pp"/>
<UnitName Value="CustApp"/> <UnitName Value="CustApp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="72"/> <TopLine Value="72"/>
<CursorPos X="14" Y="86"/> <CursorPos X="14" Y="86"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit6>
<Unit7>
</Unit8>
<Unit9>
<Filename Value="C:\Zusatzprogramme\Lazarus\fpc\3.1.1\source\rtl\inc\objpash.inc"/> <Filename Value="C:\Zusatzprogramme\Lazarus\fpc\3.1.1\source\rtl\inc\objpash.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="213"/> <TopLine Value="213"/>
<CursorPos X="21" Y="224"/> <CursorPos X="21" Y="224"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit7>
<Unit8>
</Unit9>
<Unit10>
<Filename Value="C:\Zusatzprogramme\Lazarus\lcl\include\customform.inc"/> <Filename Value="C:\Zusatzprogramme\Lazarus\lcl\include\customform.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="138"/> <TopLine Value="138"/>
<CursorPos Y="154"/> <CursorPos Y="154"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="..\utils\uvkuInstanceEx.pas"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="5"/>
<TopLine Value="46"/>
<CursorPos X="23" Y="9"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit9>
<Unit10>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="4"/>
<TopLine Value="61"/>
<CursorPos Y="77"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit10> </Unit10>
<Unit11>
<Filename Value="C:\Zusatzprogramme\Lazarus\fpc\3.1.1\source\rtl\objpas\sysutils\sysstrh.inc"/>
<EditorIndex Value="7"/>
<TopLine Value="96"/>
<CursorPos X="10" Y="112"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit11>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="27"> <JumpHistory Count="30" HistoryIndex="27">
<Position1> <Position1>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2569" Column="3" TopLine="2553"/>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="273" Column="36" TopLine="258"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="..\Vulkan.pas"/>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="268" Column="19" TopLine="249"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="1193" Column="36" TopLine="1179"/>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="274" Column="29" TopLine="253"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="1200" Column="73" TopLine="1179"/>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="511" Column="8" TopLine="490"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="1750" Column="51" TopLine="1724"/>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="517" Column="77" TopLine="503"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="1751" Column="52" TopLine="1725"/>
<Filename Value="uMainForm.pas"/>
<Caret Line="59" Column="46" TopLine="36"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="1981" Column="28" TopLine="1968"/>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="524" Column="35" TopLine="507"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2327" Column="103" TopLine="2301"/>
<Filename Value="uMainForm.pas"/>
<Caret Line="16" Column="60"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2328" Column="24" TopLine="2313"/>
<Filename Value="uMainForm.pas"/>
<Caret Line="52" Column="10" TopLine="36"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2372" TopLine="2346"/>
<Filename Value="uMainForm.pas"/>
<Caret Line="18"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2373" TopLine="2346"/>
<Filename Value="uMainForm.pas"/>
<Caret Line="85" Column="7" TopLine="57"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2374" TopLine="2348"/>
<Filename Value="uMainForm.pas"/>
<Caret Line="83" Column="70" TopLine="64"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2377" Column="23" TopLine="2351"/>
<Filename Value="uMainForm.pas"/>
<Caret Line="84" Column="64" TopLine="64"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2378" Column="4" TopLine="2351"/>
<Filename Value="uMainForm.pas"/>
<Caret Line="83" Column="19" TopLine="64"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/> <Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="28" Column="39" TopLine="11"/>
<Caret Line="223" Column="17" TopLine="204"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/> <Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="39" Column="103" TopLine="11"/>
<Caret Line="515" Column="7" TopLine="386"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2245" Column="33" TopLine="2231"/>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="213" Column="52" TopLine="197"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2328" Column="9" TopLine="2312"/>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="515" Column="7" TopLine="493"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2373" Column="19" TopLine="2354"/>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="213" Column="52" TopLine="197"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2375" Column="18" TopLine="2354"/>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="516" Column="10" TopLine="489"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="..\Vulkan.pas"/>
<Caret Line="2386" TopLine="2373"/>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="213" Column="52" TopLine="197"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/> <Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="52" Column="5" TopLine="44"/>
<Caret Line="526" Column="46" TopLine="500"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/> <Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="24" Column="12" TopLine="8"/>
<Caret Line="137" TopLine="127"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="41" Column="73" TopLine="26"/>
<Filename Value="uMainForm.pas"/>
<Caret Line="83" Column="19" TopLine="64"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="43" Column="51" TopLine="27"/>
<Filename Value="uMainForm.pas"/>
<Caret Line="84" Column="16" TopLine="64"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="34" Column="51" TopLine="16"/>
<Filename Value="triangle.lpr"/>
<Caret Line="10" Column="40"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="106" Column="40" TopLine="90"/>
<Filename Value="..\utils\uvkuInstanceEx.pas"/>
<Caret Line="9" Column="23" TopLine="37"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="..\utils\uvkuPhysicalDevice.pas"/> <Filename Value="..\utils\uvkuPhysicalDevice.pas"/>
<Caret Line="77" Column="34" TopLine="61"/>
<Caret Line="136" TopLine="14"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="..\Vulkan.pas"/> <Filename Value="..\Vulkan.pas"/>
<Caret Line="2516" Column="3" TopLine="2500"/>
<Caret Line="1433" Column="3" TopLine="1417"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="..\Vulkan.pas"/> <Filename Value="..\Vulkan.pas"/>
<Caret Line="2377" Column="3" TopLine="2361"/>
<Caret Line="1443" Column="22" TopLine="1426"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectSession> </ProjectSession>


+ 41
- 7
projects/triangle/uMainForm.pas View File

@@ -6,15 +6,18 @@ interface


uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
Vulkan, uvkuInstanceEx;
Vulkan, uvkuInstanceEx, uvkuPhysicalDevice, uvkuUtils;


type type
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
TCustomAllocHandler = class(TvkuAllocationHandler) TCustomAllocHandler = class(TvkuAllocationHandler)
protected protected
procedure InternalAllocationNotification(const aSize: VkSize; const aType: TVkInternalAllocationType; const aScope: TVkSystemAllocationScope);
procedure InternalFreeNotification(const aSize: VkSize; const aType: TVkInternalAllocationType; const aScope: TVkSystemAllocationScope);
function AllocateMemory(const aSize: VkSize; const aAlignment: VkSize; const aScope: TVkSystemAllocationScope): PVkVoid; override;
function ReallocateMemory(const aOriginal: PVkVoid; const aSize: VkSize; const aAlignment: VkSize; const aScope: TVkSystemAllocationScope): PVkVoid; override;
procedure FreeMemory(const aMemory: PVkVoid); override;
end; end;


/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
TMainForm = class(TForm) TMainForm = class(TForm)
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
@@ -31,18 +34,40 @@ implementation


{$R *.lfm} {$R *.lfm}


procedure TCustomAllocHandler.InternalAllocationNotification(const aSize: VkSize; const aType: TVkInternalAllocationType; const aScope: TVkSystemAllocationScope);
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//TCustomAllocHandler////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TCustomAllocHandler.AllocateMemory(const aSize: VkSize; const aAlignment: VkSize; const aScope: TVkSystemAllocationScope): PVkVoid;
begin begin
inherited InternalAllocationNotification(aSize, aType, aScope);
result := inherited AllocateMemory(aSize, aAlignment, aScope);
WriteLn(Format('%d bytes of memory allocated at %p', [ aSize, result ]));
end; end;


procedure TCustomAllocHandler.InternalFreeNotification(const aSize: VkSize; const aType: TVkInternalAllocationType; const aScope: TVkSystemAllocationScope);
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TCustomAllocHandler.ReallocateMemory(const aOriginal: PVkVoid; const aSize: VkSize; const aAlignment: VkSize; const aScope: TVkSystemAllocationScope): PVkVoid;
var p: PVkVoid;
begin begin
inherited InternalFreeNotification(aSize, aType, aScope);
p := aOriginal;
result := inherited ReallocateMemory(aOriginal, aSize, aAlignment, aScope);
WriteLn(Format('%d bytes of memory (from %p) reallocated at %p', [ aSize, p, result ]));
end; end;


/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TCustomAllocHandler.FreeMemory(const aMemory: PVkVoid);
begin
WriteLn(Format('free memory at %p', [ aMemory ]));
inherited FreeMemory(aMemory);
end;

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//TMainForm//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TMainForm.FormCreate(Sender: TObject); procedure TMainForm.FormCreate(Sender: TObject);
var
i: Integer;
d: TvkuPhysicalDevice;
begin begin
WriteLn('create vulkan instance');
fIntance := TvkuInstanceEx.Create( fIntance := TvkuInstanceEx.Create(
0, 0,
[], [],
@@ -50,8 +75,17 @@ begin
TvkuInstanceEx.DefaultApplicationInfo, TvkuInstanceEx.DefaultApplicationInfo,
TvkuAllocationHandler.Create, TvkuAllocationHandler.Create,
true); true);

WriteLn('read vulkan devices:');
for i := 0 to fIntance.PhysicalDeviceCount-1 do begin
d := fIntance.PhysicalDevices[i];
WriteLn(vkuMakeString(d.GetFeatures, ', '));
WriteLn(vkuMakeString(d.GetProperties, true, true));
WriteLn(vkuMakeString(d.GetMemoryProperties));
end;
end; end;


/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TMainForm.FormDestroy(Sender: TObject); procedure TMainForm.FormDestroy(Sender: TObject);
begin begin
FreeAndNil(fIntance); FreeAndNil(fIntance);


+ 28
- 9
projects/utils/uvkuInstance.pas View File

@@ -5,7 +5,8 @@ unit uvkuInstance;
interface interface


uses uses
Classes, SysUtils, Vulkan;
Classes, SysUtils,
Vulkan, uvkuPhysicalDevice;


type type
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@@ -13,17 +14,19 @@ type
private private
fHandle: VkInstance; fHandle: VkInstance;
fAllocCallbacks: PVkAllocationCallbacks; fAllocCallbacks: PVkAllocationCallbacks;
fPhysicalDevices: array of VkPhysicalDevice;
fPhysicalDevices: array of TvkuPhysicalDevice;


function GetPhysicalDeviceCount: Integer; function GetPhysicalDeviceCount: Integer;
function GetPhysicalDevices(const aIndex: Integer): VkPhysicalDevice;
function GetPhysicalDevices(const aIndex: Integer): TvkuPhysicalDevice;
procedure UpdatePhysicalDevices; procedure UpdatePhysicalDevices;
procedure ClearPhysicalDevices;
protected protected
procedure CreateHandle(aCreateInfo: PVkInstanceCreateInfo; aAllocCallbacks: PVkAllocationCallbacks); procedure CreateHandle(aCreateInfo: PVkInstanceCreateInfo; aAllocCallbacks: PVkAllocationCallbacks);
constructor Create; constructor Create;
public public
property PhysicalDeviceCount: Integer read GetPhysicalDeviceCount;
property PhysicalDevices[const aIndex: Integer]: VkPhysicalDevice read GetPhysicalDevices;
property Handle: VkInstance read fHandle;
property PhysicalDeviceCount: Integer read GetPhysicalDeviceCount;
property PhysicalDevices[const aIndex: Integer]: TvkuPhysicalDevice read GetPhysicalDevices;


constructor Create(const aCreateInfo: TVkInstanceCreateInfo); constructor Create(const aCreateInfo: TVkInstanceCreateInfo);
constructor Create(const aCreateInfo: TVkInstanceCreateInfo; const aAllocCallbacks: TVkAllocationCallbacks); constructor Create(const aCreateInfo: TVkInstanceCreateInfo; const aAllocCallbacks: TVkAllocationCallbacks);
@@ -45,18 +48,20 @@ begin
end; end;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TvkuInstance.GetPhysicalDevices(const aIndex: Integer): VkPhysicalDevice;
function TvkuInstance.GetPhysicalDevices(const aIndex: Integer): TvkuPhysicalDevice;
begin begin
UpdatePhysicalDevices; UpdatePhysicalDevices;
if (aIndex < Low(fPhysicalDevices)) or (aIndex > High(fPhysicalDevices)) then if (aIndex < Low(fPhysicalDevices)) or (aIndex > High(fPhysicalDevices)) then
raise TvkuException.CreateFmt('index (%d) out of range (%d-%d)', [aIndex, Low(fPhysicalDevices), High(fPhysicalDevices)]);
raise TvkuException.CreateFmt('index (%d) out of range (%d : %d)', [aIndex, Low(fPhysicalDevices), High(fPhysicalDevices)]);
result := fPhysicalDevices[aIndex]; result := fPhysicalDevices[aIndex];
end; end;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TvkuInstance.UpdatePhysicalDevices; procedure TvkuInstance.UpdatePhysicalDevices;
var var
i: Integer;
c: VkUint32; c: VkUint32;
arr: array of VkPhysicalDevice;
err: TVkResult; err: TVkResult;
begin begin
if (Length(fPhysicalDevices) > 0) then if (Length(fPhysicalDevices) > 0) then
@@ -65,11 +70,24 @@ begin
err := vkEnumeratePhysicalDevices(fHandle, @c, nil); err := vkEnumeratePhysicalDevices(fHandle, @c, nil);
if (err < VK_SUCCESS) then if (err < VK_SUCCESS) then
raise TvkuErrorException.Create('unable to get physical device number', err); raise TvkuErrorException.Create('unable to get physical device number', err);
SetLength(fPhysicalDevices, c);
SetLength(arr, c);


err := vkEnumeratePhysicalDevices(fHandle, @c, @fPhysicalDevices[0]);
err := vkEnumeratePhysicalDevices(fHandle, @c, @arr[0]);
if (err < VK_SUCCESS) then if (err < VK_SUCCESS) then
raise TvkuErrorException.Create('unable to get physical devices', err); raise TvkuErrorException.Create('unable to get physical devices', err);

SetLength(fPhysicalDevices, c);
for i := 0 to c-1 do
fPhysicalDevices[i] := TvkuPhysicalDevice.Create(arr[i]);
end;

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TvkuInstance.ClearPhysicalDevices;
var i: Integer;
begin
for i := low(fPhysicalDevices) to high(fPhysicalDevices) do
FreeAndNil(fPhysicalDevices[i]);
SetLength(fPhysicalDevices, 0);
end; end;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@@ -110,6 +128,7 @@ end;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
destructor TvkuInstance.Destroy; destructor TvkuInstance.Destroy;
begin begin
ClearPhysicalDevices;
if Assigned(fHandle) then begin if Assigned(fHandle) then begin
vkDestroyInstance(fHandle, fAllocCallbacks); vkDestroyInstance(fHandle, fAllocCallbacks);
fHandle := nil; fHandle := nil;


+ 46
- 52
projects/utils/uvkuPhysicalDevice.pas View File

@@ -10,54 +10,41 @@ uses


type type
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
TVkQueueFamilyPropertiesArr = array of TVkQueueFamilyProperties;
TVkSparseImageFormatPropertiesArr = array of TVkSparseImageFormatProperties; TVkSparseImageFormatPropertiesArr = array of TVkSparseImageFormatProperties;
TvkuPhysicalDevice = class(TObject) TvkuPhysicalDevice = class(TObject)
private type
TPropertyFlag = (
pfFeatures,
pfProperties,
pfMemoryProperties
);
TPropertyFlags = set of TPropertyFlag;
private private
fHandle: VkPhysicalDevice; fHandle: VkPhysicalDevice;
fCached: TPropertyFlags;

fFeatures: TVkPhysicalDeviceFeatures;
fProperties: TVkPhysicalDeviceProperties;
fMemoryProperties: TVkPhysicalDeviceMemoryProperties;
fFormatProperties: array[TVkFormat] of PVkFormatProperties;

function GetQueueFamilyProperties(const aIndex: Integer): TVkQueueFamilyProperties;
function GetQueueFamilyPropertyCount: Integer;
public
function GetFeatures: TVkPhysicalDeviceFeatures; function GetFeatures: TVkPhysicalDeviceFeatures;
function GetProperties: TVkPhysicalDeviceProperties; function GetProperties: TVkPhysicalDeviceProperties;
function GetMemoryProperties: TVkPhysicalDeviceMemoryProperties; function GetMemoryProperties: TVkPhysicalDeviceMemoryProperties;
function GetQueueFamilyPropertyCount: Integer;
function GetQueueFamilyProperties(const aIndex: Integer): TVkQueueFamilyProperties;
function GetQueueFamilyProperties: TVkQueueFamilyPropertiesArr;
function GetFormatProperties(const aFormat: TVkFormat): TVkFormatProperties; function GetFormatProperties(const aFormat: TVkFormat): TVkFormatProperties;
public
property Handle: VkPhysicalDevice read fHandle;
property Features: TVkPhysicalDeviceFeatures read GetFeatures;
property Properties: TVkPhysicalDeviceProperties read GetProperties;
property MemoryProperties: TVkPhysicalDeviceMemoryProperties read GetMemoryProperties;

property QueueFamilyPropertyCount: Integer read GetQueueFamilyPropertyCount;
property QueueFamilyProperties[const aIndex: Integer]: TVkQueueFamilyProperties read GetQueueFamilyProperties;

property FormatProperties[const aFormat: TVkFormat]: TVkFormatProperties read GetFormatProperties;

function GetImageFormatProperties( function GetImageFormatProperties(
const aFormat: TVkFormat; const aFormat: TVkFormat;
const aImageType: TVkImageType; const aImageType: TVkImageType;
const aTiling: TVkImageTiling; const aTiling: TVkImageTiling;
const aUsage: VkImageUsageFlags; const aUsage: VkImageUsageFlags;
const aFlags: VkImageCreateFlags): TVkImageFormatProperties; const aFlags: VkImageCreateFlags): TVkImageFormatProperties;

function GetSparseImageFormatProperties( function GetSparseImageFormatProperties(
const aFormat: TVkFormat; const aFormat: TVkFormat;
const aImageType: TVkImageType; const aImageType: TVkImageType;
const aSamples: TVkSampleCountFlagBits; const aSamples: TVkSampleCountFlagBits;
const aUsage: VkImageUsageFlags; const aUsage: VkImageUsageFlags;
const aTiling: TVkImageTiling): TVkSparseImageFormatPropertiesArr; const aTiling: TVkImageTiling): TVkSparseImageFormatPropertiesArr;
public
property Handle: VkPhysicalDevice read fHandle;
property Features: TVkPhysicalDeviceFeatures read GetFeatures;
property Properties: TVkPhysicalDeviceProperties read GetProperties;
property MemoryProperties: TVkPhysicalDeviceMemoryProperties read GetMemoryProperties;

property QueueFamilyPropertyCount: Integer read GetQueueFamilyPropertyCount;
property QueueFamilyProperties[const aIndex: Integer]: TVkQueueFamilyProperties read GetQueueFamilyProperties;

property FormatProperties[const aFormat: TVkFormat]: TVkFormatProperties read GetFormatProperties;


constructor Create(const aHandle: VkPhysicalDevice); constructor Create(const aHandle: VkPhysicalDevice);
end; end;
@@ -70,65 +57,72 @@ uses
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//TvkuPhysicalDevice///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //TvkuPhysicalDevice/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TvkuPhysicalDevice.GetFeatures: TVkPhysicalDeviceFeatures;
function TvkuPhysicalDevice.GetQueueFamilyProperties(const aIndex: Integer): TVkQueueFamilyProperties;
var arr: TVkQueueFamilyPropertiesArr;
begin begin
if not (pfFeatures in fCached) then begin
vkGetPhysicalDeviceFeatures(fHandle, @fFeatures);
Include(fCached, pfFeatures);
end;
result := fFeatures;
arr := GetQueueFamilyProperties();
if (aIndex < Low(arr)) or (aIndex > High(arr)) then
raise TvkuException.CreateFmt('index (%) out of range (%d : %d)', [aIndex, Low(arr), High(arr)]);
result := arr[aIndex];
end; end;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TvkuPhysicalDevice.GetProperties: TVkPhysicalDeviceProperties;
function TvkuPhysicalDevice.GetQueueFamilyPropertyCount: Integer;
begin begin
if not (pfProperties in fCached) then begin
vkGetPhysicalDeviceProperties(fHandle, @fProperties);
Include(fCached, pfProperties);
end;
result := fProperties;
result := Length(GetQueueFamilyProperties);
end; end;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TvkuPhysicalDevice.GetMemoryProperties: TVkPhysicalDeviceMemoryProperties;
function TvkuPhysicalDevice.GetFeatures: TVkPhysicalDeviceFeatures;
begin begin
if not (pfMemoryProperties in fCached) then begin
vkGetPhysicalDeviceMemoryProperties(fHandle, @fMemoryProperties);
Include(fCached, pfMemoryProperties);
end;
result := fMemoryProperties;
vkGetPhysicalDeviceFeatures(fHandle, @result);
end; end;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TvkuPhysicalDevice.GetQueueFamilyPropertyCount: Integer;
function TvkuPhysicalDevice.GetProperties: TVkPhysicalDeviceProperties;
begin begin
vkGetPhysicalDeviceProperties(fHandle, @result);
end; end;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TvkuPhysicalDevice.GetQueueFamilyProperties(const aIndex: Integer): TVkQueueFamilyProperties;
function TvkuPhysicalDevice.GetMemoryProperties: TVkPhysicalDeviceMemoryProperties;
begin begin
vkGetPhysicalDeviceMemoryProperties(fHandle, @result);
end;


/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TvkuPhysicalDevice.GetQueueFamilyProperties: TVkQueueFamilyPropertiesArr;
var c: VkUint32;
begin
vkGetPhysicalDeviceQueueFamilyProperties(fHandle, @c, nil);
SetLength(result, c);
vkGetPhysicalDeviceQueueFamilyProperties(fHandle, @c, @result[0]);
end; end;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TvkuPhysicalDevice.GetFormatProperties(const aFormat: TVkFormat): TVkFormatProperties; function TvkuPhysicalDevice.GetFormatProperties(const aFormat: TVkFormat): TVkFormatProperties;
begin begin

vkGetPhysicalDeviceFormatProperties(fHandle, aFormat, @result);
end; end;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TvkuPhysicalDevice.GetImageFormatProperties(const aFormat: TVkFormat; const aImageType: TVkImageType; function TvkuPhysicalDevice.GetImageFormatProperties(const aFormat: TVkFormat; const aImageType: TVkImageType;
const aTiling: TVkImageTiling; const aUsage: VkImageUsageFlags; const aFlags: VkImageCreateFlags): TVkImageFormatProperties; const aTiling: TVkImageTiling; const aUsage: VkImageUsageFlags; const aFlags: VkImageCreateFlags): TVkImageFormatProperties;
var err: TVkResult;
begin begin

err := vkGetPhysicalDeviceImageFormatProperties(fHandle, aFormat, aImageType, aTiling, aUsage, aFlags, @result);
if (err < VK_SUCCESS) then
raise TvkuErrorException.Create('unable to get physical device image format properties', err);
end; end;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function TvkuPhysicalDevice.GetSparseImageFormatProperties(const aFormat: TVkFormat; const aImageType: TVkImageType; function TvkuPhysicalDevice.GetSparseImageFormatProperties(const aFormat: TVkFormat; const aImageType: TVkImageType;
const aSamples: TVkSampleCountFlagBits; const aUsage: VkImageUsageFlags; const aTiling: TVkImageTiling): TVkSparseImageFormatPropertiesArr; const aSamples: TVkSampleCountFlagBits; const aUsage: VkImageUsageFlags; const aTiling: TVkImageTiling): TVkSparseImageFormatPropertiesArr;
var c: VkUint32;
begin begin

vkGetPhysicalDeviceSparseImageFormatProperties(fHandle, aFormat, aImageType, aSamples, aUsage, aTiling, @c, nil);
SetLength(result, c);
vkGetPhysicalDeviceSparseImageFormatProperties(fHandle, aFormat, aImageType, aSamples, aUsage, aTiling, @c, @result[0]);
end; end;


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////


+ 419
- 0
projects/utils/uvkuUtils.pas View File

@@ -19,6 +19,10 @@ type
constructor Create(const msg: string; const aError: TVkResult); constructor Create(const msg: string; const aError: TVkResult);
end; end;


function vkuMakeString(const aFeatures: TVkPhysicalDeviceFeatures; const aSeperator: String = sLineBreak): String;
function vkuMakeString(const aProperties: TVkPhysicalDeviceProperties; const aPrintLimits, aPrintSparseProps: Boolean): String;
function vkuMakeString(const aMemoryProperties: TVkPhysicalDeviceMemoryProperties): String;

implementation implementation


///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
@@ -30,5 +34,420 @@ begin
fError := aError; fError := aError;
end; end;


/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function vkuMakeString(const aFeatures: TVkPhysicalDeviceFeatures; const aSeperator: String): String;

procedure AddToResult(const b: VkBool32; const aName: String);
begin
if (b = 0) then
exit;
if (result <> '') then
result := result + aSeperator;
result := result + aName;
end;

begin
result := '';
AddToResult(aFeatures.robustBufferAccess, 'RobustBufferAccess');
AddToResult(aFeatures.fullDrawIndexUint32, 'FullDrawIndexUint32');
AddToResult(aFeatures.imageCubeArray, 'ImageCubeArray');
AddToResult(aFeatures.independentBlend, 'IndependentBlend');
AddToResult(aFeatures.geometryShader, 'GeometryShader');
AddToResult(aFeatures.tessellationShader, 'TessellationShader');
AddToResult(aFeatures.sampleRateShading, 'SampleRateShading');
AddToResult(aFeatures.dualSrcBlend, 'DualSrcBlend');
AddToResult(aFeatures.logicOp, 'LogicOp');
AddToResult(aFeatures.multiDrawIndirect, 'MultiDrawIndirect');
AddToResult(aFeatures.drawIndirectFirstInstance, 'DrawIndirectFirstInstance');
AddToResult(aFeatures.depthClamp, 'DepthClamp');
AddToResult(aFeatures.depthBiasClamp, 'DepthBiasClamp');
AddToResult(aFeatures.fillModeNonSolid, 'FillModeNonSolid');
AddToResult(aFeatures.depthBounds, 'DepthBounds');
AddToResult(aFeatures.wideLines, 'WideLines');
AddToResult(aFeatures.largePoints, 'LargePoints');
AddToResult(aFeatures.alphaToOne, 'AlphaToOne');
AddToResult(aFeatures.multiViewport, 'MultiViewport');
AddToResult(aFeatures.samplerAnisotropy, 'SamplerAnisotropy');
AddToResult(aFeatures.textureCompressionETC2, 'TextureCompressionETC2');
AddToResult(aFeatures.textureCompressionASTC_LDR, 'TextureCompressionASTC_LDR');
AddToResult(aFeatures.textureCompressionBC, 'TextureCompressionBC');
AddToResult(aFeatures.occlusionQueryPrecise, 'OcclusionQueryPrecise');
AddToResult(aFeatures.pipelineStatisticsQuery, 'PipelineStatisticsQuery');
AddToResult(aFeatures.vertexPipelineStoresAndAtomics, 'VertexPipelineStoresAndAtomics');
AddToResult(aFeatures.fragmentStoresAndAtomics, 'FragmentStoresAndAtomics');
AddToResult(aFeatures.shaderTessellationAndGeometryPointSize, 'ShaderTessellationAndGeometryPointSize');
AddToResult(aFeatures.shaderImageGatherExtended, 'ShaderImageGatherExtended');
AddToResult(aFeatures.shaderStorageImageExtendedFormats, 'ShaderStorageImageExtendedFormats');
AddToResult(aFeatures.shaderStorageImageMultisample, 'ShaderStorageImageMultisample');
AddToResult(aFeatures.shaderStorageImageReadWithoutFormat, 'ShaderStorageImageReadWithoutFormat');
AddToResult(aFeatures.shaderStorageImageWriteWithoutFormat, 'ShaderStorageImageWriteWithoutFormat');
AddToResult(aFeatures.shaderUniformBufferArrayDynamicIndexing, 'ShaderUniformBufferArrayDynamicIndexing');
AddToResult(aFeatures.shaderSampledImageArrayDynamicIndexing, 'ShaderSampledImageArrayDynamicIndexing');
AddToResult(aFeatures.shaderStorageBufferArrayDynamicIndexing, 'ShaderStorageBufferArrayDynamicIndexing');
AddToResult(aFeatures.shaderStorageImageArrayDynamicIndexing, 'ShaderStorageImageArrayDynamicIndexing');
AddToResult(aFeatures.shaderClipDistance, 'ShaderClipDistance');
AddToResult(aFeatures.shaderCullDistance, 'ShaderCullDistance');
AddToResult(aFeatures.shaderFloat64, 'ShaderFloat64');
AddToResult(aFeatures.shaderInt64, 'ShaderInt64');
AddToResult(aFeatures.shaderInt16, 'ShaderInt16');
AddToResult(aFeatures.shaderResourceResidency, 'ShaderResourceResidency');
AddToResult(aFeatures.shaderResourceMinLod, 'ShaderResourceMinLod');
AddToResult(aFeatures.sparseBinding, 'SparseBinding');
AddToResult(aFeatures.sparseResidencyBuffer, 'SparseResidencyBuffer');
AddToResult(aFeatures.sparseResidencyImage2D, 'SparseResidencyImage2D');
AddToResult(aFeatures.sparseResidencyImage3D, 'SparseResidencyImage3D');
AddToResult(aFeatures.sparseResidency2Samples, 'SparseResidency2Samples');
AddToResult(aFeatures.sparseResidency4Samples, 'SparseResidency4Samples');
AddToResult(aFeatures.sparseResidency8Samples, 'SparseResidency8Samples');
AddToResult(aFeatures.sparseResidency16Samples, 'SparseResidency16Samples');
AddToResult(aFeatures.sparseResidencyAliased, 'SparseResidencyAliased');
AddToResult(aFeatures.variableMultisampleRate, 'VariableMultisampleRate');
AddToResult(aFeatures.inheritedQueries, 'InheritedQueries');
end;

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function vkuMakeString(const aProperties: TVkPhysicalDeviceProperties; const aPrintLimits,
aPrintSparseProps: Boolean): String;

function UUIDtoStr: String;
var i: Integer;
begin
result := '';
for i := low(aProperties.pipelineCacheUUID) to High(aProperties.pipelineCacheUUID) do begin
if (result <> '') then
result := result + ':';
result := result + IntToHex(aProperties.pipelineCacheUUID[i], 2);
end;
end;

function toString(const i: Int64): String;
begin
result := IntToStr(i);
end;

function toString(const e: Extended): String;
begin
result := Format('%.3f', [e]);
end;

function toString(const arr: array of VkUint32): String;
var i: Integer;
begin
result := '';
for i := low(arr) to high(arr) do begin
if (i <> low(arr)) then
result := result + '; ';
result := result + toString(arr[i]);
end;
end;

function toString(const arr: array of VkFloat): String;
var i: Integer;
begin
result := '';
for i := low(arr) to high(arr) do begin
if (i <> low(arr)) then
result := result + '; ';
result := result + toString(arr[i]);
end;
end;

function toString(const aType: TVkPhysicalDeviceType): String;
begin
case aType of
VK_PHYSICAL_DEVICE_TYPE_OTHER: result := 'Other';
VK_PHYSICAL_DEVICE_TYPE_INTEGRATED_GPU: result := 'IntegratedGPU';
VK_PHYSICAL_DEVICE_TYPE_DISCRETE_GPU: result := 'DiscreteGPU';
VK_PHYSICAL_DEVICE_TYPE_VIRTUAL_GPU: result := 'VirtualGPU';
VK_PHYSICAL_DEVICE_TYPE_CPU: result := 'CPU';
else
result := 'Unknown';
end;
end;

function toString(const aChar: PVkChar): String;
begin
result := String(aChar);
end;

begin
result := Format(
'ApiVersion: %x (v%d.%d.%d)' + sLineBreak +
'DriverVersion: %s' + sLineBreak +
'VendorID: %s' + sLineBreak +
'DeviceID: %s' + sLineBreak +
'DeviceType: %s' + sLineBreak +
'deviceName: %s' + sLineBreak +
'PipelineCacheUUID: %s' + sLineBreak
,[
aProperties.apiVersion, vkGetVersionMajor(aProperties.apiVersion), vkGetVersionMinor(aProperties.apiVersion), vkgetVersionPatch(aProperties.apiVersion),
toString(aProperties.driverVersion),
toString(aProperties.vendorID),
toString(aProperties.deviceID),
toString(aProperties.deviceType),
toString(@aProperties.deviceName[0]),
UUIDtoStr
]);
if aPrintLimits then begin
result := result + Format(
'Limits:' + sLineBreak +
' MaxImageDimension1D: %s' + sLineBreak +
' MaxImageDimension2D: %s' + sLineBreak +
' MaxImageDimension3D: %s' + sLineBreak +
' MaxImageDimensionCube: %s' + sLineBreak +
' MaxImageArrayLayers: %s' + sLineBreak +
' MaxTexelBufferElements: %s' + sLineBreak +
' MaxUniformBufferRange: %s' + sLineBreak +
' MaxStorageBufferRange: %s' + sLineBreak +
' MaxPushConstantsSize: %s' + sLineBreak +
' MaxMemoryAllocationCount: %s' + sLineBreak +
' MaxSamplerAllocationCount: %s' + sLineBreak +
' BufferImageGranularity: %s' + sLineBreak +
' SparseAddressSpaceSize: %s' + sLineBreak +
' MaxBoundDescriptorSets: %s' + sLineBreak +
' MaxPerStageDescriptorSamplers: %s' + sLineBreak +
' MaxPerStageDescriptorUniformBuffers: %s' + sLineBreak +
' MaxPerStageDescriptorStorageBuffers: %s' + sLineBreak +
' MaxPerStageDescriptorSampledImages: %s' + sLineBreak +
' MaxPerStageDescriptorStorageImages: %s' + sLineBreak +
' MaxPerStageDescriptorInputAttachments: %s' + sLineBreak +
' MaxPerStageResources: %s' + sLineBreak +
' MaxDescriptorSetSamplers: %s' + sLineBreak +
' MaxDescriptorSetUniformBuffers: %s' + sLineBreak +
' MaxDescriptorSetUniformBuffersDynamic: %s' + sLineBreak +
' MaxDescriptorSetStorageBuffers: %s' + sLineBreak +
' MaxDescriptorSetStorageBuffersDynamic: %s' + sLineBreak +
' MaxDescriptorSetSampledImages: %s' + sLineBreak +
' MaxDescriptorSetStorageImages: %s' + sLineBreak +
' MaxDescriptorSetInputAttachments: %s' + sLineBreak +
' MaxVertexInputAttributes: %s' + sLineBreak +
' MaxVertexInputBindings: %s' + sLineBreak +
' MaxVertexInputAttributeOffset: %s' + sLineBreak +
' MaxVertexInputBindingStride: %s' + sLineBreak +
' MaxVertexOutputComponents: %s' + sLineBreak +
' MaxTessellationGenerationLevel: %s' + sLineBreak +
' MaxTessellationPatchSize: %s' + sLineBreak +
' MaxTessellationControlPerVertexInputComponents: %s' + sLineBreak +
' MaxTessellationControlPerVertexOutputComponents: %s' + sLineBreak +
' MaxTessellationControlPerPatchOutputComponents: %s' + sLineBreak +
' MaxTessellationControlTotalOutputComponents: %s' + sLineBreak +
' MaxTessellationEvaluationInputComponents: %s' + sLineBreak +
' MaxTessellationEvaluationOutputComponents: %s' + sLineBreak +
' MaxGeometryShaderInvocations: %s' + sLineBreak +
' MaxGeometryInputComponents: %s' + sLineBreak +
' MaxGeometryOutputComponents: %s' + sLineBreak +
' MaxGeometryOutputVertices: %s' + sLineBreak +
' MaxGeometryTotalOutputComponents: %s' + sLineBreak +
' MaxFragmentInputComponents: %s' + sLineBreak +
' MaxFragmentOutputAttachments: %s' + sLineBreak +
' MaxFragmentDualSrcAttachments: %s' + sLineBreak +
' MaxFragmentCombinedOutputResources: %s' + sLineBreak +
' MaxComputeSharedMemorySize: %s' + sLineBreak +
' MaxComputeWorkGroupCount: %s' + sLineBreak +
' MaxComputeWorkGroupInvocations: %s' + sLineBreak +
' MaxComputeWorkGroupSize: %s' + sLineBreak +
' SubPixelPrecisionBits: %s' + sLineBreak +
' SubTexelPrecisionBits: %s' + sLineBreak +
' MipmapPrecisionBits: %s' + sLineBreak +
' MaxDrawIndexedIndexValue: %s' + sLineBreak +
' MaxDrawIndirectCount: %s' + sLineBreak +
' MaxSamplerLodBias: %s' + sLineBreak +
' MaxSamplerAnisotropy: %s' + sLineBreak +
' MaxViewports: %s' + sLineBreak +
' MaxViewportDimensions: %s' + sLineBreak +
' ViewportBoundsRange: %s' + sLineBreak +
' ViewportSubPixelBits: %s' + sLineBreak +
' MinMemoryMapAlignment: %s' + sLineBreak +
' MinTexelBufferOffsetAlignment: %s' + sLineBreak +
' MinUniformBufferOffsetAlignment: %s' + sLineBreak +
' MinStorageBufferOffsetAlignment: %s' + sLineBreak +
' MinTexelOffset: %s' + sLineBreak +
' MaxTexelOffset: %s' + sLineBreak +
' MinTexelGatherOffset: %s' + sLineBreak +
' MaxTexelGatherOffset: %s' + sLineBreak +
' MinInterpolationOffset: %s' + sLineBreak +
' MaxInterpolationOffset: %s' + sLineBreak +
' SubPixelInterpolationOffsetBits: %s' + sLineBreak +
' MaxFramebufferWidth: %s' + sLineBreak +
' MaxFramebufferHeight: %s' + sLineBreak +
' MaxFramebufferLayers: %s' + sLineBreak +
' FramebufferColorSampleCounts: %s' + sLineBreak +
' FramebufferDepthSampleCounts: %s' + sLineBreak +
' FramebufferStencilSampleCounts: %s' + sLineBreak +
' FramebufferNoAttachmentsSampleCounts: %s' + sLineBreak +
' MaxColorAttachments: %s' + sLineBreak +
' SampledImageColorSampleCounts: %s' + sLineBreak +
' SampledImageIntegerSampleCounts: %s' + sLineBreak +
' SampledImageDepthSampleCounts: %s' + sLineBreak +
' SampledImageStencilSampleCounts: %s' + sLineBreak +
' StorageImageSampleCounts: %s' + sLineBreak +
' MaxSampleMaskWords: %s' + sLineBreak +
' TimestampComputeAndGraphics: %s' + sLineBreak +
' TimestampPeriod: %s' + sLineBreak +
' MaxClipDistances: %s' + sLineBreak +
' MaxCullDistances: %s' + sLineBreak +
' MaxCombinedClipAndCullDistances: %s' + sLineBreak +
' DiscreteQueuePriorities: %s' + sLineBreak +
' PointSizeRange: %s' + sLineBreak +
' LineWidthRange: %s' + sLineBreak +
' PointSizeGranularity: %s' + sLineBreak +
' LineWidthGranularity: %s' + sLineBreak +
' StrictLines: %s' + sLineBreak +
' StandardSampleLocations: %s' + sLineBreak +
' OptimalBufferCopyOffsetAlignment: %s' + sLineBreak +
' OptimalBufferCopyRowPitchAlignment: %s' + sLineBreak +
' NonCoherentAtomSize: %s' + sLineBreak
,[
toString(aProperties.limits.maxImageDimension1D),
toString(aProperties.limits.maxImageDimension2D),
toString(aProperties.limits.maxImageDimension3D),
toString(aProperties.limits.maxImageDimensionCube),
toString(aProperties.limits.maxImageArrayLayers),
toString(aProperties.limits.maxTexelBufferElements),
toString(aProperties.limits.maxUniformBufferRange),
toString(aProperties.limits.maxStorageBufferRange),
toString(aProperties.limits.maxPushConstantsSize),
toString(aProperties.limits.maxMemoryAllocationCount),
toString(aProperties.limits.maxSamplerAllocationCount),
toString(aProperties.limits.bufferImageGranularity),
toString(aProperties.limits.sparseAddressSpaceSize),
toString(aProperties.limits.maxBoundDescriptorSets),
toString(aProperties.limits.maxPerStageDescriptorSamplers),
toString(aProperties.limits.maxPerStageDescriptorUniformBuffers),
toString(aProperties.limits.maxPerStageDescriptorStorageBuffers),
toString(aProperties.limits.maxPerStageDescriptorSampledImages),
toString(aProperties.limits.maxPerStageDescriptorStorageImages),
toString(aProperties.limits.maxPerStageDescriptorInputAttachments),
toString(aProperties.limits.maxPerStageResources),
toString(aProperties.limits.maxDescriptorSetSamplers),
toString(aProperties.limits.maxDescriptorSetUniformBuffers),
toString(aProperties.limits.maxDescriptorSetUniformBuffersDynamic),
toString(aProperties.limits.maxDescriptorSetStorageBuffers),
toString(aProperties.limits.maxDescriptorSetStorageBuffersDynamic),
toString(aProperties.limits.maxDescriptorSetSampledImages),
toString(aProperties.limits.maxDescriptorSetStorageImages),
toString(aProperties.limits.maxDescriptorSetInputAttachments),
toString(aProperties.limits.maxVertexInputAttributes),
toString(aProperties.limits.maxVertexInputBindings),
toString(aProperties.limits.maxVertexInputAttributeOffset),
toString(aProperties.limits.maxVertexInputBindingStride),
toString(aProperties.limits.maxVertexOutputComponents),
toString(aProperties.limits.maxTessellationGenerationLevel),
toString(aProperties.limits.maxTessellationPatchSize),
toString(aProperties.limits.maxTessellationControlPerVertexInputComponents),
toString(aProperties.limits.maxTessellationControlPerVertexOutputComponents),
toString(aProperties.limits.maxTessellationControlPerPatchOutputComponents),
toString(aProperties.limits.maxTessellationControlTotalOutputComponents),
toString(aProperties.limits.maxTessellationEvaluationInputComponents),
toString(aProperties.limits.maxTessellationEvaluationOutputComponents),
toString(aProperties.limits.maxGeometryShaderInvocations),
toString(aProperties.limits.maxGeometryInputComponents),
toString(aProperties.limits.maxGeometryOutputComponents),
toString(aProperties.limits.maxGeometryOutputVertices),
toString(aProperties.limits.maxGeometryTotalOutputComponents),
toString(aProperties.limits.maxFragmentInputComponents),
toString(aProperties.limits.maxFragmentOutputAttachments),
toString(aProperties.limits.maxFragmentDualSrcAttachments),
toString(aProperties.limits.maxFragmentCombinedOutputResources),
toString(aProperties.limits.maxComputeSharedMemorySize),
toString(aProperties.limits.maxComputeWorkGroupCount),
toString(aProperties.limits.maxComputeWorkGroupInvocations),
toString(aProperties.limits.maxComputeWorkGroupSize),
toString(aProperties.limits.subPixelPrecisionBits),
toString(aProperties.limits.subTexelPrecisionBits),
toString(aProperties.limits.mipmapPrecisionBits),
toString(aProperties.limits.maxDrawIndexedIndexValue),
toString(aProperties.limits.maxDrawIndirectCount),
toString(aProperties.limits.maxSamplerLodBias),
toString(aProperties.limits.maxSamplerAnisotropy),
toString(aProperties.limits.maxViewports),
toString(aProperties.limits.maxViewportDimensions),
toString(aProperties.limits.viewportBoundsRange),
toString(aProperties.limits.viewportSubPixelBits),
toString(aProperties.limits.minMemoryMapAlignment),
toString(aProperties.limits.minTexelBufferOffsetAlignment),
toString(aProperties.limits.minUniformBufferOffsetAlignment),
toString(aProperties.limits.minStorageBufferOffsetAlignment),
toString(aProperties.limits.minTexelOffset),
toString(aProperties.limits.maxTexelOffset),
toString(aProperties.limits.minTexelGatherOffset),
toString(aProperties.limits.maxTexelGatherOffset),
toString(aProperties.limits.minInterpolationOffset),
toString(aProperties.limits.maxInterpolationOffset),
toString(aProperties.limits.subPixelInterpolationOffsetBits),
toString(aProperties.limits.maxFramebufferWidth),
toString(aProperties.limits.maxFramebufferHeight),
toString(aProperties.limits.maxFramebufferLayers),
toString(aProperties.limits.framebufferColorSampleCounts),
toString(aProperties.limits.framebufferDepthSampleCounts),
toString(aProperties.limits.framebufferStencilSampleCounts),
toString(aProperties.limits.framebufferNoAttachmentsSampleCounts),
toString(aProperties.limits.maxColorAttachments),
toString(aProperties.limits.sampledImageColorSampleCounts),
toString(aProperties.limits.sampledImageIntegerSampleCounts),
toString(aProperties.limits.sampledImageDepthSampleCounts),
toString(aProperties.limits.sampledImageStencilSampleCounts),
toString(aProperties.limits.storageImageSampleCounts),
toString(aProperties.limits.maxSampleMaskWords),
toString(aProperties.limits.timestampComputeAndGraphics),
toString(aProperties.limits.timestampPeriod),
toString(aProperties.limits.maxClipDistances),
toString(aProperties.limits.maxCullDistances),
toString(aProperties.limits.maxCombinedClipAndCullDistances),
toString(aProperties.limits.discreteQueuePriorities),
toString(aProperties.limits.pointSizeRange),
toString(aProperties.limits.lineWidthRange),
toString(aProperties.limits.pointSizeGranularity),
toString(aProperties.limits.lineWidthGranularity),
toString(aProperties.limits.strictLines),
toString(aProperties.limits.standardSampleLocations),
toString(aProperties.limits.optimalBufferCopyOffsetAlignment),
toString(aProperties.limits.optimalBufferCopyRowPitchAlignment),
toString(aProperties.limits.nonCoherentAtomSize)
]);
end;
if aPrintSparseProps then begin
result := result + Format(
'SparseProperties:' + sLineBreak +
' ResidencyStandard2DBlockShape: %s' + sLineBreak +
' ResidencyStandard2DMultisampleBlockShape: %s' + sLineBreak +
' ResidencyStandard3DBlockShape: %s' + sLineBreak +
' ResidencyAlignedMipSize: %s' + sLineBreak +
' ResidencyNonResidentStrict: %s' + sLineBreak,
[
toString(aProperties.sparseProperties.residencyStandard2DBlockShape),
toString(aProperties.sparseProperties.residencyStandard2DMultisampleBlockShape),
toString(aProperties.sparseProperties.residencyStandard3DBlockShape),
toString(aProperties.sparseProperties.residencyAlignedMipSize),
toString(aProperties.sparseProperties.residencyNonResidentStrict)
]);
end;
end;

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
function vkuMakeString(const aMemoryProperties: TVkPhysicalDeviceMemoryProperties): String;
var i: Integer;
begin
result := 'Types:' + sLineBreak;
for i := 0 to aMemoryProperties.memoryTypeCount-1 do begin
result := result + Format(
' Type %d:' + sLineBreak +
' PropertyFlags: 0x%.16X' + sLineBreak +
' HeapIndex: %d (0x%2:.16X)' + sLineBreak,
[i, aMemoryProperties.memoryTypes[i].propertyFlags, aMemoryProperties.memoryTypes[i].heapIndex]);
end;
result := result + 'Heaps:' + sLineBreak;
for i := 0 to aMemoryProperties.memoryHeapCount-1 do begin
result := result + Format(
' Heap %d:' + sLineBreak +
' Size: %d (0x%1:.16X)' + sLineBreak +
' Flags: 0x%.16X' + sLineBreak,
[i, aMemoryProperties.memoryHeaps[i].size, aMemoryProperties.memoryHeaps[i].flags]);
end;
end;


end. end.



Write Preview
Loading…
Cancel
Save