FPPS4/sys/test/ps4_libscembus.pas

49 lines
916 B
Plaintext

unit ps4_libSceMbus;
{$mode ObjFPC}{$H+}
{$CALLING SysV_ABI_CDecl}
{$WARN 4110 off}
interface
uses
subr_dynlib;
implementation
function ps4_sceMbusInit:Integer;
begin
Result:=0;
end;
function ps4_sceMbusAddHandleByUserId(unk1 :Integer;
handle:Integer;
userId:Integer;
_type :Integer;
index :Integer;
unk2 :qword):Integer;
begin
Result:=0;
end;
function Load_libSceMbus(name:pchar):p_lib_info;
var
lib:TLIBRARY;
begin
Result:=obj_new_int('libSceMbus');
lib:=Result^.add_lib('libSceMbus');
lib.set_proc($C113D7306B643AAD,@ps4_sceMbusInit);
lib.set_proc($0B00D5B063BA5374,@ps4_sceMbusAddHandleByUserId);
end;
var
stub:t_int_file;
initialization
reg_int_file(stub,'libSceMbus.prx',@Load_libSceMbus);
end.