No need to match and unroll comparison operator type in LoopUnrolling

It should always be int.

Author: sim642

src/util/loopUnrolling.ml

@@ -260,8 +260,8 @@ let findLoopVarAndGoal loopStatement func (op, exp1, exp2) =
     end;
   | _ -> None
 
-let getLoopVar loopStatement func = function (* TODO: unrolltype? *)
-  | BinOp (op, exp1, exp2, TInt _) when isCompare op -> findLoopVarAndGoal loopStatement func (op, exp1, exp2)
+let getLoopVar loopStatement func = function
+  | BinOp (op, exp1, exp2, _) when isCompare op -> findLoopVarAndGoal loopStatement func (op, exp1, exp2)
   | _ -> None
 
 let getsPointedAt var func =