This commit is contained in:
Pavel 2024-12-10 10:22:12 +03:00
parent 6f440f45a9
commit 53b20d4866
5 changed files with 2 additions and 7 deletions

View File

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

View File

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

View File

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

View File

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

View File

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