This commit is contained in:
Pavel 2022-09-28 13:19:45 +03:00
parent a50174f929
commit 202547205f
3 changed files with 12 additions and 45 deletions

View File

@ -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

View File

@ -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

View File

@ -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;