diff --git a/compiler/ncginl.pas b/compiler/ncginl.pas
index 5dc49de44a..322fe09875 100644
--- a/compiler/ncginl.pas
+++ b/compiler/ncginl.pas
@@ -722,7 +722,7 @@ implementation
     procedure tcginlinenode.second_rox;
       var
         op : topcg;
-        hcountreg : tregister;
+        {hcountreg : tregister;}
         op1,op2 : tnode;
       begin
         { one or two parameters? }