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

Fix compilation

This commit is contained in:
Pavel 2024-02-27 12:57:19 +03:00
parent 566abbaf61
commit ae897da738
14 changed files with 42 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
spirv/srCacheOp.pas
View File

@ -15,9 +15,10 @@ uses
type
PsrCacheOp=^TsrCacheOp;
TsrCacheOp=object
private
public
pLeft,pRight:PsrCacheOp;
//----
function c(n1,n2:PsrCacheOp):Integer; static;
private
key:packed record
place:PsrOpBlock;
OpId:DWORD;
@ -25,7 +26,6 @@ type
count:DWORD;
end;
pData:PPsrRegNode;
function c(n1,n2:PsrCacheOp):Integer; static;
public
pDst:PsrNode;
end;

6
spirv/srConst.pas
View File

@ -32,15 +32,15 @@ type
PPsrConst=^PsrConst;
PsrConst=^TsrConst;
TsrConst=packed object(TsrNode)
private
public
pPrev,pNext,pLeft,pRight:PsrConst;
//--
function c(n1,n2:PsrConst):Integer; static;
private
ID:TsrRefId; //post id
fOpId:WORD;
fCount:WORD;
FType:PsrType;
pData:PPsrNode;
function c(n1,n2:PsrConst):Integer; static;
public
property pType:PsrType read FType;
property OpId:WORD read fOpId;

6
spirv/srDecorate.pas
View File

@ -19,14 +19,14 @@ type
PsrDecorate=^TsrDecorate;
TsrDecorate=object
private
public
pLeft,pRight:PsrDecorate;
//----
function c(n1,n2:PsrDecorate):Integer; static;
private
key:packed record
data:PsrNode;
param:array[0..2] of DWORD;
end;
function c(n1,n2:PsrDecorate):Integer; static;
public
node:PSpirvOp;
end;

6
spirv/srFragLayout.pas
View File

@ -33,11 +33,11 @@ type
PsrFragLayout=^TsrFragLayout;
TsrFragLayout=object(TsrDescriptor)
private
public
pLeft,pRight:PsrFragLayout;
//----
itype:TpsslInputType;
function c(n1,n2:PsrFragLayout):Integer; static;
private
itype:TpsslInputType;
public
pReg:PsrRegNode;
Procedure Init; inline;

6
spirv/srInput.pas
View File

@ -69,14 +69,14 @@ type
PsrInput=^TsrInput;
TsrInput=object(TsrDescriptor)
private
public
pLeft,pRight:PsrInput;
//----
function c(n1,n2:PsrInput):Integer; static;
private
key:packed record
itype:TpsslInputType;
typeid:Byte;
end;
function c(n1,n2:PsrInput):Integer; static;
public
pReg:PsrRegNode;
property itype:TpsslInputType read key.itype;

6
spirv/srLayout.pas
View File

@ -73,9 +73,10 @@ type
pLine:PspirvOp;
end;
TNodeList=specialize TNodeList<PVNode>;
private
public
pLeft,pRight:PsrChain;
//--
function c(n1,n2:PsrChain):Integer; static;
private
fwrite_count:DWORD;
//--
ID:TsrRefId; //post id
@ -88,7 +89,6 @@ type
FWriter:PsrNode;
Fdtype:TsrDataType;
FList:TNodeList;
function c(n1,n2:PsrChain):Integer; static;
Procedure SetWriter(t:PsrNode);
Function GetWriter:PsrNode;
Procedure SetBuffer(t:PsrNode);

2
spirv/srLiteral.pas
View File

@ -29,7 +29,7 @@ type
PsrLiteral=^TsrLiteral;
TsrLiteral=object(TsrNode)
private
public
pLeft,pRight:PsrLiteral;
public
dtype:TsrDataType;

12
spirv/srOp.pas
View File

@ -50,8 +50,9 @@ type
POpParamNode=^TOpParamNode;
TOpParamNode=packed object
private
public
pNext:POpParamNode;
private
pParent:PspirvOp;
pValue:PsrNode;
procedure SetValue(v:PsrNode);
@ -69,8 +70,9 @@ type
PsrOpCustom=^TsrOpCustom;
TsrOpCustom=object(TsrNode)
private
public
pPrev,pNext:PsrOpCustom;
private
pParent:PsrOpBlock;
end;
@ -181,14 +183,14 @@ type
PSpirvFunc=^TSpirvFunc;
TSpirvFunc=object(TsrNode)
private
public
pPrev,pNext,pLeft,pRight:PSpirvFunc;
//----
function c(n1,n2:PSpirvFunc):Integer; static;
private
FName:RawByteString;
FTop:TsrOpBlock;
FBlock:PsrOpBlock;
ID:TsrRefId; //post id
function c(n1,n2:PSpirvFunc):Integer; static;
public
property Name:RawByteString read FName;
property pBlock:PsrOpBlock read FBlock;

6
spirv/srPrivate.pas
View File

@ -66,16 +66,16 @@ type
end;
TNodeList=specialize TNodeList<PVNode>;
TVoltList=specialize TNodeList<PsrVolatile>;
private
public
pLeft,pRight:PsrPrivate;
//----
function c(n1,n2:PsrPrivate):Integer; static;
private
fwrite_count:DWORD;
//
FSource:PsrRegSlot;
//
FLineList:TNodeList;
FVoltList:TVoltList;
function c(n1,n2:PsrPrivate):Integer; static;
Procedure SetRegType(rtype:TsrDataType);
function GetRegType:TsrDataType;
public

4
spirv/srReg.pas
View File

@ -46,9 +46,9 @@ type
TRegDNodeList=specialize TNodeStack<PRegDNode>;
TsrRegNode=packed object(TsrNode)
private
public
pPrev,pNext:PsrRegNode;
//
private
ID:TsrRefId; //post id
F:bitpacked record
dtype:TsrDataType;

6
spirv/srTypes.pas
View File

@ -26,16 +26,16 @@ type
PPsrType=^PsrType;
PsrType=^TsrType;
TsrType=packed object(TsrNode)
private
public
pPrev,pNext,pLeft,pRight:PsrType;
//
function c(n1,n2:PsrType):Integer; static;
private
ID:TsrRefId; //post id
fdtype:TsrDataType;
fsize:DWORD;
fOpId:WORD;
fcount:WORD;
pData:PPsrNode;
function c(n1,n2:PsrType):Integer; static;
public
property size:DWORD read fsize;
property OpId:WORD read fOpId;

6
spirv/srUniform.pas
View File

@ -52,15 +52,15 @@ type
PsrUniform=^TsrUniform;
TsrUniform=object(TsrDescriptor)
private
public
pLeft,pRight:PsrUniform;
//----
function c(n1,n2:PsrUniform):Integer; static;
private
pLayout:PsrDataLayout;
//
fwrite_count:DWORD;
//
FReg:TsrRegUniform;
function c(n1,n2:PsrUniform):Integer; static;
public
Procedure Init; inline;
function pReg:PsrRegUniform; inline;

4
spirv/srVariable.pas
View File

@ -30,9 +30,9 @@ type
PsrVariable=^TsrVariable;
TsrVariable=packed object(TsrNode)
private
public
pPrev,pNext:PsrVariable;
//
private
fwrite_count:DWORD;
ID:TsrRefId; //post id
FType:PsrType;

6
spirv/srVertLayout.pas
View File

@ -23,11 +23,11 @@ type
PsrVertLayout=^TsrVertLayout;
TsrVertLayout=object(TsrDescriptor)
private
public
pLeft,pRight:PsrVertLayout;
//----
pLayout:PsrDataLayout;
function c(n1,n2:PsrVertLayout):Integer; static;
private
pLayout:PsrDataLayout;
public
pReg:PsrRegNode;
procedure Init(p:PsrDataLayout); inline;