mirror of https://github.com/red-prig/fpPS4.git
This commit is contained in:
parent
6f440f45a9
commit
53b20d4866
|
@ -778,7 +778,6 @@ end;
|
||||||
|
|
||||||
function TEmitPostOp.OnLogicalNot1(node:TSpirvOp):Integer;
|
function TEmitPostOp.OnLogicalNot1(node:TSpirvOp):Integer;
|
||||||
var
|
var
|
||||||
dtype:TsrDataType;
|
|
||||||
dst:TsrRegNode;
|
dst:TsrRegNode;
|
||||||
src:TsrRegNode;
|
src:TsrRegNode;
|
||||||
|
|
||||||
|
|
|
@ -81,7 +81,6 @@ Var
|
||||||
dst:PsrRegSlot;
|
dst:PsrRegSlot;
|
||||||
src:TsrRegNode;
|
src:TsrRegNode;
|
||||||
imm:TsrRegNode;
|
imm:TsrRegNode;
|
||||||
a,b:TsrRegNode;
|
|
||||||
i:Integer;
|
i:Integer;
|
||||||
begin
|
begin
|
||||||
dst:=get_sdst7(FSPI.SOPK.SDST);
|
dst:=get_sdst7(FSPI.SOPK.SDST);
|
||||||
|
|
|
@ -15,7 +15,7 @@ type
|
||||||
PSrcAdr=^TSrcAdr;
|
PSrcAdr=^TSrcAdr;
|
||||||
TSrcAdr=object
|
TSrcAdr=object
|
||||||
pCode:TsrLabelBlock;
|
pCode:TsrLabelBlock;
|
||||||
Offdw:ptrint;
|
Offdw:PtrUInt;
|
||||||
function get_code_ptr:PDWORD;
|
function get_code_ptr:PDWORD;
|
||||||
function get_dmem_ptr:PDWORD;
|
function get_dmem_ptr:PDWORD;
|
||||||
end;
|
end;
|
||||||
|
|
|
@ -190,7 +190,7 @@ var
|
||||||
begin
|
begin
|
||||||
node:=Self;
|
node:=Self;
|
||||||
Result:=Default(TSrcAdr);
|
Result:=Default(TSrcAdr);
|
||||||
Result.Offdw:=High(DWORD);
|
Result.Offdw:=High(PtrUInt) div 4;
|
||||||
//
|
//
|
||||||
while (node<>nil) do
|
while (node<>nil) do
|
||||||
begin
|
begin
|
||||||
|
|
|
@ -1122,11 +1122,8 @@ end;
|
||||||
//
|
//
|
||||||
|
|
||||||
function TEmitFlow.NextParse:Byte;
|
function TEmitFlow.NextParse:Byte;
|
||||||
label
|
|
||||||
_open_d;
|
|
||||||
var
|
var
|
||||||
FLevel:DWORD;
|
FLevel:DWORD;
|
||||||
pBase:TsrOpBlock;
|
|
||||||
begin
|
begin
|
||||||
if (Cursor.pCode=nil) then Exit(2);
|
if (Cursor.pCode=nil) then Exit(2);
|
||||||
if (Cursor.pBlock=nil) then Exit(3);
|
if (Cursor.pBlock=nil) then Exit(3);
|
||||||
|
|
Loading…
Reference in New Issue