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

+

This commit is contained in:
Pavel 2025-06-11 23:09:13 +03:00
parent b4448ddb43
commit 178509bfd9
4 changed files with 24 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
spirv/emit_mimg.pas
View File

@ -1251,9 +1251,13 @@ begin
pLayout_Sgrp:=nil;
pLayout_Tgrp:=nil;
Sgrp:=nil;
Tgrp:=nil;
Case FSPI.MIMG.OP of
IMAGE_SAMPLE ..IMAGE_SAMPLE_C_LZ_O, //sampled
IMAGE_GATHER4..IMAGE_GATHER4_C_LZ_O: //sampled gather
IMAGE_GATHER4..IMAGE_GATHER4_C_LZ_O, //sampled gather
IMAGE_GET_LOD:
begin
if not get_srsrc(FSPI.MIMG.SSAMP,4,@src) then Assert(false);

7
spirv/emit_post_op.pas
View File

@ -6,6 +6,7 @@ interface
uses
sysutils,
math,
bittype,
Half16,
spirv,
@ -1368,6 +1369,8 @@ var
src:array[0..1] of TsrRegNode;
pCon:array[0..1] of TsrConst;
s:Single;
procedure _SetConst_s(dtype:TsrDataType;value:Single);
begin
Assert(dtype=dtFloat32);
@ -1396,7 +1399,9 @@ begin
Case src[0].dtype of
dtFloat32:
begin
_SetConst_s(dst.dtype,pCon[0].AsFloat32/pCon[1].AsFloat32);
s:=pCon[1].AsFloat32;
if IsZero(s) or IsNan(s) or IsInfinite(s) then Exit(0);
_SetConst_s(dst.dtype,pCon[0].AsFloat32/s);
end;
else;
end;

15
spirv/srBuffer.pas
View File

@ -169,6 +169,9 @@ type
procedure AllocName;
end;
Const
MAX_BUF_SIZE=QWORD(High(DWORD)+1);
operator := (i:TObject):TsrField; inline;
implementation
@ -278,7 +281,7 @@ begin
//update only struct
if (node.Fdtype<>dtTypeStruct) then Exit;
//dont clear max size
if (node.FFSize=High(PtrUint)) then Exit;
if (node.FFSize=MAX_BUF_SIZE) then Exit;
//
node.FFSize:=0;
//
@ -519,13 +522,13 @@ begin
end;
//find intersec
node:=FindIntersect(_offset,High(PtrUint)-offset);
node:=FindIntersect(_offset,MAX_BUF_SIZE-offset);
if (node=nil) then
begin
//new
node:=Fetch(_offset);
node.FFSize:=High(PtrUint); //fixed size
node.FFSize:=MAX_BUF_SIZE; //fixed size
node.stride:=_stride;
node.count :=node.FFSize div _stride;
node.Fdtype :=dtTypeRuntimeArray;
@ -617,7 +620,7 @@ begin
if (Fdtype=dtTypeRuntimeArray) then
begin
//runtame array
FFSize:=High(Ptruint);
FFSize:=MAX_BUF_SIZE;
end else
begin
//struct
@ -626,7 +629,7 @@ begin
begin
FFSize:=node.size;
//check max
if (FFSize=High(PtrUint)) then Exit;
if (FFSize=MAX_BUF_SIZE) then Exit;
FFSize:=node.offset+FFSize;
end;
end;
@ -1178,7 +1181,7 @@ begin
Writer.Header(GetTypeStr);
//
Writer.IntOpt('BND',FBinding);
if (GetSize<>High(PtrUint)) then
if (GetSize<>MAX_BUF_SIZE) then
begin
Writer.HexOpt('LEN',GetSize);
end;

8
spirv/srTypes.pas
View File

@ -81,8 +81,8 @@ type
function FetchPointer(child:TsrType;storage_class:DWORD):TsrType;
function FetchFunction(ret:TsrType):TsrType;
function FetchFunction(copy:Boolean;count:Byte;pData:PPsrType):TsrType;
function FetchStruct (count:Word;pData:PPsrType;copy:Boolean;_size:DWORD):TsrType;
function InsertStruct(count:Word;pData:PPsrType;copy:Boolean;_size:DWORD):TsrType;
function FetchStruct (count:Word;pData:PPsrType;copy:Boolean;_size:QWORD):TsrType;
function InsertStruct(count:Word;pData:PPsrType;copy:Boolean;_size:QWORD):TsrType;
function FetchArray(child:TsrType;array_count:DWORD):TsrType;
function FetchRuntimeArray(child:TsrType):TsrType;
function FetchImage(child:TsrType;image_info:TsrTypeImageInfo):TsrType;
@ -666,7 +666,7 @@ begin
Result:=_Fetch(@key,copy);
end;
function TsrTypeList.FetchStruct(count:Word;pData:PPsrType;copy:Boolean;_size:DWORD):TsrType;
function TsrTypeList.FetchStruct(count:Word;pData:PPsrType;copy:Boolean;_size:QWORD):TsrType;
var
key:TsrTypeKey;
begin
@ -684,7 +684,7 @@ begin
Result:=_Fetch(@key,copy);
end;
function TsrTypeList.InsertStruct(count:Word;pData:PPsrType;copy:Boolean;_size:DWORD):TsrType;
function TsrTypeList.InsertStruct(count:Word;pData:PPsrType;copy:Boolean;_size:QWORD):TsrType;
var
key:TsrTypeKey;
begin