macos: add debug for bus error

Author: sounkou-bioinfo

R/tinycc.R

@@ -1,3 +1,10 @@
+#' Get the address of an external pointer
+#' @param ptr External pointer
+#' @return Address as numeric
+#' @export
+get_external_ptr_addr <- function(ptr) {
+  .Call("RC_get_external_ptr_addr", ptr)
+}
 #' TinyCC paths
 #'
 #' Helpers to locate the bundled tinycc installation after the package is installed.
@@ -33,7 +40,9 @@ tcc_cli <- function() {
   exe <- if (.Platform$OS.type == "windows") "tcc.exe" else "tcc"
   candidates <- c(file.path(tcc_bin_path(), exe), file.path(tcc_prefix(), exe))
   existing <- candidates[file.exists(candidates)]
-  if (length(existing)) return(existing[[1L]])
+  if (length(existing)) {
+    return(existing[[1L]])
+  }
   candidates[[1L]]
 }
 
@@ -58,11 +67,12 @@ tcc_include_paths <- function() {
 tcc_output_type <- function(output) {
   output <- match.arg(output, c("memory", "obj", "dll", "exe", "preprocess"))
   switch(output,
-         memory = 1L,  # TCC_OUTPUT_MEMORY
-         obj = 3L,     # TCC_OUTPUT_OBJ
-         dll = 4L,     # TCC_OUTPUT_DLL
-         exe = 2L,     # TCC_OUTPUT_EXE
-         preprocess = 5L) # TCC_OUTPUT_PREPROCESS
+    memory = 1L, # TCC_OUTPUT_MEMORY
+    obj = 3L, # TCC_OUTPUT_OBJ
+    dll = 4L, # TCC_OUTPUT_DLL
+    exe = 2L, # TCC_OUTPUT_EXE
+    preprocess = 5L
+  ) # TCC_OUTPUT_PREPROCESS
 }
 
 check_cli_exists <- function() {
@@ -85,9 +95,11 @@ check_cli_exists <- function() {
 tcc_state <- function(output = c("memory", "obj", "dll", "exe", "preprocess"),
                       include_path = tcc_include_paths(),
                       lib_path = tcc_lib_paths()) {
-  .Call(RC_libtcc_state_new, normalizePath(lib_path, winslash = "/", mustWork = FALSE),
-        normalizePath(include_path, winslash = "/", mustWork = FALSE),
-        tcc_output_type(output))
+  .Call(
+    RC_libtcc_state_new, normalizePath(lib_path, winslash = "/", mustWork = FALSE),
+    normalizePath(include_path, winslash = "/", mustWork = FALSE),
+    tcc_output_type(output)
+  )
 }
 
 #' Add a source file to a libtcc state

README.md

@@ -12,8 +12,7 @@ We provide a simple R interface to the
 [tinycc](https://github.com/TinyCC/tinycc) compiler including the cli
 and the libtcc library. This is mainly a vehicule for the tinycc
 compiler and libtcc library. Right now only basic functionalities are
-implemented and some warnings remain since libtcc uses printf and other
-symbols R CMD check does not like.
+implemented and we do not support windows.
 
 ## Installation
 
@@ -54,7 +53,7 @@ tcc_relocate(state)
 tcc_call_symbol(state, "forty_two", return = "int")
 #> [1] 42
 tcc_get_symbol(state, "forty_two")
-#> <pointer: 0x6176ed22e000>
+#> <pointer: 0x5c9fb6cc3000>
 #> attr(,"class")
 #> [1] "tcc_symbol"
 ```

inst/tinytest/test_libtcc.R

@@ -20,6 +20,11 @@ sym_ptr <- tcc_get_symbol(state, "forty_two")
 expect_true(inherits(sym_ptr, "tcc_symbol"))
 expect_true(tcc_symbol_is_valid(sym_ptr))
 
+# Debug: print symbol pointer address and alignment (always enabled)
+addr <- get_external_ptr_addr(sym_ptr)
+cat(sprintf("[RTINYCC_DEBUG] symbol 'forty_two' address: 0x%x\n", addr))
+cat(sprintf("[RTINYCC_DEBUG] address %% 8: %d\n", addr %% 8))
+
 # CLI compile to object
 src <- system.file("c_examples", "forty_two.c", package = "Rtinycc")
 expect_true(

src/RC_libtcc.c

@@ -127,6 +127,21 @@ SEXP RC_libtcc_call_symbol(SEXP ext, SEXP name, SEXP ret_type) {
         Rf_error("symbol '%s' not found", sym);
     }
     uintptr_t addr = (uintptr_t) fn;
+    /* Debug: print address and alignment if RTINYCC_DEBUG is set */
+    SEXP debug_env = PROTECT(Rf_mkString("RTINYCC_DEBUG"));
+    SEXP debug_val = PROTECT(Rf_GetOption(debug_env, R_GlobalEnv));
+    int debug_enabled = 0;
+    if (!Rf_isNull(debug_val)) {
+        debug_enabled = Rf_asLogical(debug_val);
+    } else {
+        const char *env = getenv("RTINYCC_DEBUG");
+        if (env && env[0] == '1') debug_enabled = 1;
+    }
+    if (debug_enabled) {
+        Rprintf("[RTINYCC_DEBUG][C] symbol '%s' address: 0x%lx\n", sym, (unsigned long)addr);
+        Rprintf("[RTINYCC_DEBUG][C] address %% 8: %ld\n", (long)(addr % 8));
+    }
+    UNPROTECT(2);
     if (strcmp(rtype, "int") == 0) {
         int (*callable)(void) = (int (*)(void)) addr;
         return Rf_ScalarInteger(callable());
@@ -148,3 +163,9 @@ SEXP RC_libtcc_ptr_valid(SEXP ptr) {
     void *p = R_ExternalPtrAddr(ptr);
     return Rf_ScalarLogical(p != NULL);
 }
+
+// Expose external pointer address to R
+SEXP RC_get_external_ptr_addr(SEXP ext) {
+    void *addr = R_ExternalPtrAddr(ext);
+    return Rf_ScalarReal((double)(uintptr_t)addr);
+}