+

spirv/emit_post_op.pas

@@ -778,7 +778,6 @@ end;
 
 function TEmitPostOp.OnLogicalNot1(node:TSpirvOp):Integer;
 var
- dtype:TsrDataType;
  dst:TsrRegNode;
  src:TsrRegNode;
 

spirv/emit_sopk.pas

@@ -81,7 +81,6 @@ Var
  dst:PsrRegSlot;
  src:TsrRegNode;
  imm:TsrRegNode;
- a,b:TsrRegNode;
  i:Integer;
 begin
  dst:=get_sdst7(FSPI.SOPK.SDST);

spirv/srCFGLabel.pas

@@ -15,7 +15,7 @@ type
  PSrcAdr=^TSrcAdr;
  TSrcAdr=object
   pCode:TsrLabelBlock;
-  Offdw:ptrint;
+  Offdw:PtrUInt;
   function get_code_ptr:PDWORD;
   function get_dmem_ptr:PDWORD;
  end;

spirv/srCFGParser.pas

@@ -190,7 +190,7 @@ var
 begin
  node:=Self;
  Result:=Default(TSrcAdr);
- Result.Offdw:=High(DWORD);
+ Result.Offdw:=High(PtrUInt) div 4;
  //
  while (node<>nil) do
  begin

spirv/srFlow.pas

@@ -1122,11 +1122,8 @@ end;
 //
 
 function TEmitFlow.NextParse:Byte;
-label
- _open_d;
 var
  FLevel:DWORD;
- pBase:TsrOpBlock;
 begin
  if (Cursor.pCode=nil)  then Exit(2);
  if (Cursor.pBlock=nil) then Exit(3);