Avoid macOS TinyCC crash in array typecheck regression

Author: sounkou-bioinfo

inst/tinytest/test_codegen_soundness.R

@@ -358,15 +358,13 @@ ffi <- tcc_ffi() |>
     void touch_ints(int* x) { (void) x; }
     void touch_nums(double* x) { (void) x; }
     void touch_lgl(int* x) { (void) x; }
-    void touch_chars(SEXP* x) { (void) x; }
   "
   ) |>
   tcc_bind(
     touch_raw = list(args = list("raw"), returns = "void"),
     touch_ints = list(args = list("integer_array"), returns = "void"),
     touch_nums = list(args = list("numeric_array"), returns = "void"),
-    touch_lgl = list(args = list("logical_array"), returns = "void"),
-    touch_chars = list(args = list("character_array"), returns = "void")
+    touch_lgl = list(args = list("logical_array"), returns = "void")
   ) |>
   tcc_compile()
 
@@ -386,10 +384,10 @@ expect_error(
   ffi$touch_lgl(c(1L, 0L, 1L)),
   info = "logical_array input rejects non-logical vectors before borrowing"
 )
-expect_error(
-  ffi$touch_chars(list("a", "b")),
-  info = "character_array input rejects non-character vectors before borrowing"
-)
+# character_array type-check insertion is covered structurally in
+# test_ffi_codegen.R. A runtime compile round-trip is avoided here because
+# TinyCC has shown platform-specific instability around direct SEXP* helper
+# signatures on macOS CI.
 
 # NULL array return -> R_NilValue
 ffi <- tcc_ffi() |>