+

fpPS4.lpi

@@ -1548,6 +1548,16 @@
         <Filename Value="src\playgo\playgo_chunk_ipc.pas"/>
         <IsPartOfProject Value="True"/>
       </Unit>
+      <Unit>
+        <Filename Value="src\param_sfo\ps4_libsceplaygo.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="ps4_libScePlayGo"/>
+      </Unit>
+      <Unit>
+        <Filename Value="src\np\ps4_libscenpgameintent.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="ps4_libSceNpGameIntent"/>
+      </Unit>
     </Units>
   </ProjectOptions>
   <CompilerOptions>

gui/game_run.pas

@@ -80,6 +80,9 @@ uses
  ps4_libSceNpScoreRanking,
  ps4_libSceNpUtility,
  ps4_libSceNpTus,
+ ps4_libSceNpGameIntent,
+ ps4_libSceNpWebApi,
+ ps4_libSceNpWebApi2,
  ps4_libSceScreenShot,
  ps4_libSceSaveData,
  ps4_libSceAudioOut,
@@ -88,8 +91,6 @@ uses
  ps4_libSceGameLiveStreaming,
  ps4_libSceVideoRecording,
  ps4_libSceIme,
- ps4_libSceNpWebApi,
- ps4_libSceNpWebApi2,
  ps4_libSceMove,
  ps4_libSceSharePlay,
  ps4_libScePlayGo,

src/np/ps4_libscenpgameintent.pas

@@ -1,11 +1,12 @@
 unit ps4_libSceNpGameIntent;
 
 {$mode objfpc}{$H+}
+{$CALLING SysV_ABI_CDecl}
 
 interface
 
 uses
-  ps4_program;
+ subr_dynlib;
 
 implementation
 
@@ -59,20 +60,23 @@ begin
 end;
 
 
-function Load_libSceNpGameIntent(Const name:RawByteString):TElf_node;
+function Load_libSceNpGameIntent(name:pchar):p_lib_info;
 var
- lib:PLIBRARY;
+ lib:TLIBRARY;
 begin
- Result:=TElf_node.Create;
- Result.pFileName:=name;
- lib:=Result._add_lib('libSceNpGameIntent');
- lib^.set_proc($9BCEC11F1B7F1FAD,@ps4_sceNpGameIntentInitialize);
- lib^.set_proc($8C4217500AFD5C4F,@ps4_sceNpGameIntentReceiveIntent);
- lib^.set_proc($ACF97420D35CFCCF,@ps4_sceNpGameIntentGetPropertyValueString);
+ Result:=obj_new_int('libSceNpGameIntent');
+
+ lib:=Result^.add_lib('libSceNpGameIntent');
+ lib.set_proc($9BCEC11F1B7F1FAD,@ps4_sceNpGameIntentInitialize);
+ lib.set_proc($8C4217500AFD5C4F,@ps4_sceNpGameIntentReceiveIntent);
+ lib.set_proc($ACF97420D35CFCCF,@ps4_sceNpGameIntentGetPropertyValueString);
 end;
 
+var
+ stub:t_int_file;
+
 initialization
- ps4_app.RegistredPreLoad('libSceNpGameIntent.prx',@Load_libSceNpGameIntent);
+ RegisteredInternalFile(stub,'libSceNpGameIntent.prx',@Load_libSceNpGameIntent);
 
 end.