diff --git a/C/arith1.c b/C/arith1.c
index 8d1b9dad6..e5a202bb7 100644
--- a/C/arith1.c
+++ b/C/arith1.c
@@ -52,7 +52,7 @@ float_to_int(Float v, union arith_ret *o)
 }
 #define RBIG_FL(v)  return(float_to_int(v,o))
 #else
-#define RBIG_FL(v)  ((o)->Int = (Int)v; return long_int_e)
+#define RBIG_FL(v)  (o)->Int = (Int)(v); return long_int_e
 #endif
 
 #if USE_GMP
diff --git a/H/arith2.h b/H/arith2.h
index 0d83c43ed..0c9e1c0f5 100644
--- a/H/arith2.h
+++ b/H/arith2.h
@@ -1204,12 +1204,14 @@ p_or(Term t1, Term t2 E_ARGS)
     }
 }
 
-static Int
+#if USE_GMP
+static inline Int
 sll_ovflw(Int x,Int i)
 {
   CELL t = (1<<x)-1;
   return (t & i) != i;
 }
+#endif
 
 inline static E_FUNC
 do_sll(Int i, Int j E_ARGS)