Don't cast LOGICAL() to int*

If the returned pointer type ever changes, the absence of the cast will
give us a compiler warning due to the value being implicitly cast to an
incompatible pointer type. An explicit cast, on the other hand, tells
the compiler to silence the warning and do as written.

Author: aitap

src/assign.c

@@ -1207,7 +1207,7 @@ void writeNA(SEXP v, const int from, const int n, const bool listNA)
     memset(RAW(v)+from, 0, n*sizeof(Rbyte));
     break;
   case LGLSXP: {
-    int *vd = (int *)LOGICAL(v);
+    int *vd = LOGICAL(v);
     for (int i=from; i<=to; ++i) vd[i] = NA_LOGICAL;
   } break;
   case INTSXP: {

src/negate.c

@@ -5,7 +5,7 @@ void negateByRef(SEXP x) {
     error("not logical or integer vector");  // # nocov
   }
   const int n = length(x);
-  int *ansd = (int *)LOGICAL(x);
+  int *ansd = LOGICAL(x);
   for(int i=0; i<n; ++i) {
     ansd[i] ^= (ansd[i] != NA_LOGICAL);  // invert true/false but leave NA alone
   }