+

src/ps4_libscedialogs.pas

@@ -167,7 +167,7 @@ const
 
 function ps4_sceSaveDataDialogGetResult(_result:pSceSaveDataDialogResult):Integer; SysV_ABI_CDecl;
 begin
- Writeln('sceSaveDataDialogGetResult');
+ //Writeln('sceSaveDataDialogGetResult');
  Result:=0;
 end;
 
@@ -303,7 +303,7 @@ type
 
 function ps4_sceMsgDialogGetResult(pResult:pSceMsgDialogResult):Integer; SysV_ABI_CDecl;
 begin
- Writeln('sceMsgDialogGetResult');
+ //Writeln('sceMsgDialogGetResult');
  if (pResult<>nil) then
  begin
   pResult^.result:=0;
@@ -372,7 +372,7 @@ type
 
 function ps4_sceNpCommerceDialogGetResult(pResult:pSceNpCommerceDialogResult):Integer; SysV_ABI_CDecl;
 begin
- Writeln('sceNpCommerceDialogGetResult');
+ //Writeln('sceNpCommerceDialogGetResult');
  if (pResult<>nil) then
  begin
   pResult^.result:=1; //SCE_COMMON_DIALOG_RESULT_USER_CANCELED

src/ps4_libscevideoout.pas

@@ -1018,7 +1018,6 @@ Const
 var
  H:TVideoOut;
 begin
- Writeln('sceVideoOutSetFlipRate:',rate);
  case rate of
   0..2:
     begin
@@ -1026,9 +1025,14 @@ begin
      H:=TVideoOut(FVideoOutMap.Acqure(hVideo));
      _sig_unlock;
      if (H=nil) then Exit(SCE_VIDEO_OUT_ERROR_INVALID_HANDLE);
+
+     if (H.FlipRate<>rateTable[rate]) then
+     begin
+      Writeln('sceVideoOutSetFlipRate:',rateTable[rate]);
+     end;
+
      H.FlipRate:=rateTable[rate];
      H.Release;
-     Writeln('Rate:',rateTable[rate]);
      Result:=0;
     end;
   else

vulkan/vMemory.pas

@@ -103,28 +103,6 @@ begin
  if (Result<>0) then Exit;
  //3 FBlockId
  Result:=Integer(a.FBlockId>b.FBlockId)-Integer(a.FBlockId<b.FBlockId);
- {
- if (a.FmType=b.FmType) then
- begin
-  if (a.FSize=b.FSize) then
-  begin
-   if (a.FBlockId=b.FBlockId) then
-    Result:=0
-   else
-   if (a.FBlockId<b.FBlockId) then
-    Result:=-1
-   else
-    Result:=1;
-  end else
-  if (a.FSize<b.FSize) then
-   Result:=-1
-  else
-   Result:=1;
- end else
- if (a.FmType<b.FmType) then
-  Result:=-1
- else
-  Result:=1;}
 end;
 
 //alloc: [FBlockId]|[FOffset]
@@ -133,23 +111,8 @@ begin
  //1 FBlockId
  Result:=Integer(a.FBlockId>b.FBlockId)-Integer(a.FBlockId<b.FBlockId);
  if (Result<>0) then Exit;
- //2 FBlockId
+ //2 FOffset
  Result:=Integer(a.FOffset>b.FOffset)-Integer(a.FOffset<b.FOffset);
- {
- if (a.FBlockId=b.FBlockId) then
- begin
-  if (a.FOffset=b.FOffset) then
-   Result:=0
-  else
-  if (a.FOffset<b.FOffset) then
-   Result:=-1
-  else
-   Result:=1;
- end else
- if (a.FBlockId<b.FBlockId) then
-  Result:=-1
- else
-  Result:=1;}
 end;
 
 const
@@ -398,7 +361,7 @@ end;
 //alloc: [FBlockId]|[FOffset]
 Function TvMemManager._FetchFree_l(key:TDevNode;var R:TDevNode):Boolean;
 var
- It:TFreeDevNodeSet.Iterator;
+ It:TAllcDevNodeSet.Iterator;
  key2:TDevNode;
 begin
  Result:=false;
@@ -417,7 +380,7 @@ end;
 //alloc: [FBlockId]|[FOffset]
 Function TvMemManager._FetchFree_b(key:TDevNode;var R:TDevNode):Boolean;
 var
- It:TFreeDevNodeSet.Iterator;
+ It:TAllcDevNodeSet.Iterator;
  key2:TDevNode;
 begin
  Result:=false;