cgOp (LFloatInt ity) [x] = do
  x' <- unbox (FArith ATFloat) x
  x'' <- inst $ FPToSI x' (ftyToTy $ cmpResultTy ity) []
  box (FArith (ATInt ity)) x''
cgOp (LFloatInt ity) [x] = do
  x' <- unbox (FArith ATFloat) x
  x'' <- inst $ FPToSI x' (ftyToTy $ cmpResultTy ity) []
  box (FArith (ATInt ity)) x''
cgOp (LFloatInt ity) [x] = do
  x' <- unbox (FArith ATFloat) x
  x'' <- inst $ FPToSI x' (ftyToTy $ cmpResultTy ity) []
  box (FArith (ATInt ity)) x''