ShuriZma
/
FPPS4
mirror of https://github.com/red-prig/fpPS4.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

compiler shit

This commit is contained in:
Pavel 2025-05-23 15:08:30 +03:00
parent b61dc8f972
commit 8415befbfc
7 changed files with 22 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
chip/pm4_ring.pas
View File

@ -83,7 +83,7 @@ begin
Result:=0;
if (ring=nil) then Exit(-1);
size:=1 shl BsfQWORD(size);
size:=QWORD(1) shl BsfQWORD(size);
if (size<GC_RING_PADD) then size:=GC_RING_PADD;
ring^.buff:=nil;

6
spirv/emit_post_op.pas
View File

@ -2306,7 +2306,7 @@ begin
if (rBase.is_const) then
begin
data[0]:=rBase.AsConst.GetData;
data[1]:=(1 shl count)-1;
data[1]:=(QWORD(1) shl count)-1;
data[0]:=data[0] and data[1];
//
if (data[0]<>rBase.AsConst.GetData) then
@ -2315,7 +2315,7 @@ begin
end;
end else
begin
data[1]:=(1 shl count)-1;
data[1]:=(QWORD(1) shl count)-1;
num_31:=NewImm_q(dtUInt32,data[1],pLine);
//
@ -2432,7 +2432,7 @@ begin
index:=BsfQWord(data[0]);
count:=PopCnt (data[0]);
data[1]:=((1 shl count)-1) shl index;
data[1]:=((QWORD(1) shl count)-1) shl index;
if (data[0]=data[1]) then
begin

6
src/ajm/ps4_libsceajm.pas
View File

@ -24,9 +24,9 @@ const
SCE_AJM_CODEC_CELP_DEC =12;
SCE_AJM_CODEC_CELP_ENC =13;
SCE_AJM_FLAG_SIDEBAND_STREAM =(1 shl 47);
SCE_AJM_FLAG_SIDEBAND_FORMAT =(1 shl 46);
SCE_AJM_FLAG_SIDEBAND_GAPLESS_DECODE=(1 shl 45);
SCE_AJM_FLAG_SIDEBAND_STREAM =(QWORD(1) shl 47);
SCE_AJM_FLAG_SIDEBAND_FORMAT =(QWORD(1) shl 46);
SCE_AJM_FLAG_SIDEBAND_GAPLESS_DECODE=(QWORD(1) shl 45);
var
FAjmMap:t_id_desc_table;

2
src/param_sfo/ps4_libsceplaygo.pas
View File

@ -105,7 +105,7 @@ function scePlayGoConvertLanguage(systemLang:Integer):ScePlayGoLanguageMask; inl
begin
if (systemLang>=0) and (systemLang<48) then
begin
Result:=(1 shl (64-systemLang-1));
Result:=(QWORD(1) shl (64-systemLang-1));
end else
begin
Result:=0;

26
sys/dev/dev_gc.pas
View File

@ -407,7 +407,7 @@ begin
gc_map_hdq_drain(@map_queue_hqd[c_id],size);
//set sended bits
send:=send or (1 shl (c_id div 8)); //by pipe id
send:=send or (QWORD(1) shl (c_id div 8)); //by pipe id //It is necessary to force QWORD!
Dec(p_id);
end; //while
@ -416,7 +416,7 @@ begin
//end
//clear
bits:=bits and (not (1 shl c_id));
bits:=bits and (not (QWORD(1) shl c_id)); //It is necessary to force QWORD!
end; //while
if (send<>0) then
@ -430,7 +430,7 @@ begin
pfp_ctx.Flush_stream( t_pm4_stream_type(ord(stCompute0) + c_id) );
//clear
send:=send and (not (1 shl c_id));
send:=send and (not (QWORD(1) shl c_id)); //It is necessary to force QWORD!
end;
//
@ -765,7 +765,7 @@ begin
id:=(pipeHi - 1) * 32 + pipeLo * 8 + queueId;
if ((map_queue_valid and (1 shl id))<>0) then
if ((map_queue_valid and (QWORD(1) shl id))<>0) then //It is necessary to force QWORD!
begin
Exit(Integer($804c0012));
end;
@ -780,13 +780,7 @@ begin
if (Result=0) then
begin
map_queue_valid:=map_queue_valid or (1 shl id);
{
id:=(pipeHi - 1) * 4 + (pipeLo - 8);
map_pipe_valid:=map_pipe_valid or (1 shl id);
}
map_queue_valid:=map_queue_valid or (QWORD(1) shl id); //It is necessary to force QWORD!
end;
end;
@ -854,12 +848,12 @@ begin
id:=(pipeHi - 1) * 32 + pipeLo * 8 + queueId;
if ((map_queue_valid and (1 shl id))<>0) then
if ((map_queue_valid and (QWORD(1) shl id))<>0) then //It is necessary to force QWORD!
begin
gc_unmap_hqd(@map_queue_hqd[id]);
map_queue_valid:=map_queue_valid and (not (1 shl id));
map_queue_valid:=map_queue_valid and (not (QWORD(1) shl id)); //It is necessary to force QWORD!
end;
end;
@ -914,7 +908,7 @@ begin
id:=(pipeHi - 1) * 32 + pipeLo * 8 + queueId;
if ((map_queue_valid and (1 shl id))=0) then
if ((map_queue_valid and (QWORD(1) shl id))=0) then //It is necessary to force QWORD!
begin
Exit(Integer($804c0001));
end;
@ -1005,6 +999,8 @@ begin
$C0048116: //sceGnmSubmitDone
begin
start_gfx_ring;
Writeln('sceGnmSubmitDone');
//rw_wlock(ring_gfx_lock);
@ -1167,6 +1163,8 @@ begin
begin
start_gfx_ring;
Writeln('sceGnmDingDong');
gc_retrigger_watchdog_imdone;
gc_wait_GC_SRI;

2
sys/elf64.pas
View File

@ -674,7 +674,7 @@ end;
function SELF_BLOCK_SIZE(i:Int64):Int64; inline;
begin
Result:=(i shr SELF_PROPS_BLOCK_SIZE_OFFSET) and SELF_PROPS_BLOCK_SIZE_MASK;
Result:=1 shl (Result+12)
Result:=QWORD(1) shl (Result+12)
end;
function SELF_SEGMENT_INDEX(i:Int64):Integer; inline;

2
sys/kern/kern_namedobj.pas
View File

@ -133,7 +133,7 @@ begin
td^.td_retval[0]:=key;
Writeln('namedobj_create(0x',HexStr(QWORD(objp),10),',"',_name,'"):',key);
Writeln('namedobj_create("',_name,'",0x',HexStr(QWORD(objp),10),',0x',HexStr(objt,4),'):',key);
Result:=0;
end;