diff --git a/spirv/emit_post_op.pas b/spirv/emit_post_op.pas
index d75c6df7..b83337be 100644
--- a/spirv/emit_post_op.pas
+++ b/spirv/emit_post_op.pas
@@ -778,7 +778,6 @@ end;
 
 function TEmitPostOp.OnLogicalNot1(node:TSpirvOp):Integer;
 var
- dtype:TsrDataType;
  dst:TsrRegNode;
  src:TsrRegNode;
 
diff --git a/spirv/emit_sopk.pas b/spirv/emit_sopk.pas
index 2d409632..9200a12a 100644
--- a/spirv/emit_sopk.pas
+++ b/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);
diff --git a/spirv/srCFGLabel.pas b/spirv/srCFGLabel.pas
index 91e47550..e09a1632 100644
--- a/spirv/srCFGLabel.pas
+++ b/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;
diff --git a/spirv/srCFGParser.pas b/spirv/srCFGParser.pas
index 4130719b..2d8a69ee 100644
--- a/spirv/srCFGParser.pas
+++ b/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
diff --git a/spirv/srFlow.pas b/spirv/srFlow.pas
index 66de18be..1c5ee629 100644
--- a/spirv/srFlow.pas
+++ b/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);