Emulator-Archive/fpPS4
1
0
Fork 0
mirror of https://github.com/red-prig/fpPS4.git synced 2024-11-23 06:19:57 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

sceKernelGetOpenPsId, sceKernelGetOpenPsIdForSystem

Browse Source
This commit is contained in:
Pavel 2023-03-07 14:43:52 +03:00
parent 54b6dd5767
commit 1777ad1a07
1 changed files with 74 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

74
kernel/ps4_libkernel.pas
View File

@ -962,6 +962,74 @@ begin
end;
end;
type
pSceKernelOpenPsId=^SceKernelOpenPsId;
SceKernelOpenPsId=array[0..15] of Char;
function ps4_sceKernelGetOpenPsId(id:pSceKernelOpenPsId):Integer; SysV_ABI_CDecl;
var
HW:HW_PROFILE_INFOA;
begin
//sysctlbyname:machdep.openpsid
if (id=nil) then Exit(EINVAL);
HW:=Default(HW_PROFILE_INFOA);
if GetCurrentHwProfileA(@HW) then
begin
id[ 0]:=HW.szHwProfileGuid[ 1];
id[ 1]:=HW.szHwProfileGuid[ 2];
id[ 2]:=HW.szHwProfileGuid[ 3];
id[ 3]:=HW.szHwProfileGuid[ 4];
id[ 4]:=HW.szHwProfileGuid[ 5];
id[ 5]:=HW.szHwProfileGuid[ 6];
id[ 6]:=HW.szHwProfileGuid[ 7];
id[ 7]:=HW.szHwProfileGuid[ 8];
id[ 8]:=HW.szHwProfileGuid[10];
id[ 9]:=HW.szHwProfileGuid[11];
id[10]:=HW.szHwProfileGuid[12];
id[11]:=HW.szHwProfileGuid[13];
id[12]:=HW.szHwProfileGuid[15];
id[13]:=HW.szHwProfileGuid[16];
id[14]:=HW.szHwProfileGuid[17];
id[15]:=HW.szHwProfileGuid[18];
end else
begin
FillChar(id^,SizeOf(SceKernelOpenPsId),ord('0'));
end;
end;
function ps4_sceKernelGetOpenPsIdForSystem(id:pSceKernelOpenPsId):Integer; SysV_ABI_CDecl;
var
HW:HW_PROFILE_INFOA;
begin
//sysctlbyname:machdep.openpsid_for_sys
if (id=nil) then Exit(EINVAL);
HW:=Default(HW_PROFILE_INFOA);
if GetCurrentHwProfileA(@HW) then
begin
id[ 0]:=HW.szHwProfileGuid[ 1];
id[ 1]:=HW.szHwProfileGuid[ 2];
id[ 2]:=HW.szHwProfileGuid[ 3];
id[ 3]:=HW.szHwProfileGuid[ 4];
id[ 4]:=HW.szHwProfileGuid[ 5];
id[ 5]:=HW.szHwProfileGuid[ 6];
id[ 6]:=HW.szHwProfileGuid[ 7];
id[ 7]:=HW.szHwProfileGuid[ 8];
id[ 8]:=HW.szHwProfileGuid[10];
id[ 9]:=HW.szHwProfileGuid[11];
id[10]:=HW.szHwProfileGuid[12];
id[11]:=HW.szHwProfileGuid[13];
id[12]:=HW.szHwProfileGuid[15];
id[13]:=HW.szHwProfileGuid[16];
id[14]:=HW.szHwProfileGuid[17];
id[15]:=HW.szHwProfileGuid[18];
end else
begin
FillChar(id^,SizeOf(SceKernelOpenPsId),ord('0'));
end;
end;
//
{$I libsysmodule.inc}
@ -1674,6 +1742,8 @@ begin
//file
lib^.set_proc($BA5E7B86F9BA9817,@ps4_sceKernelGetOpenPsIdForSystem);
px:=Result._add_lib('libScePosix');
px^.MapSymbol:=lib^.MapSymbol;
@ -1694,6 +1764,10 @@ begin
lib^.set_proc($F332D27C47D6E405,@ps4_sceCoredumpRegisterCoredumpHandler);
lib^.set_proc($7C59213A0CED8820,@ps4_sceCoredumpUnregisterCoredumpHandler);
lib:=Result._add_lib('libSceOpenPsId');
lib^.set_proc($0CB39172BA14A9B7,@ps4_sceKernelGetOpenPsId);
//
_kernel_init;
end;