go

Author: sounkou-bioinfo

inst/tinytest/test_libtcc.R

@@ -22,8 +22,8 @@ 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))
+cat(sprintf("[RTINYCC_DEBUG] symbol 'forty_two' address: %f\n", addr))
+cat(sprintf("[RTINYCC_DEBUG] address %% 8: %f\n", addr %% 8))
 
 # CLI compile to object
 src <- system.file("c_examples", "forty_two.c", package = "Rtinycc")

src/init.c

@@ -12,6 +12,7 @@ SEXP RC_libtcc_call_symbol(SEXP ext, SEXP name, SEXP ret_type);
 SEXP RC_libtcc_get_symbol(SEXP ext, SEXP name);
 SEXP RC_libtcc_call_symbol_typed(SEXP ext, SEXP name, SEXP ret_type);
 SEXP RC_libtcc_ptr_valid(SEXP ptr);
+SEXP RC_get_external_ptr_addr(SEXP ext);
 
 // .Call entries
 static const R_CallMethodDef CallEntries[] = {
@@ -23,6 +24,7 @@ static const R_CallMethodDef CallEntries[] = {
     {"RC_libtcc_call_symbol", (DL_FUNC) &RC_libtcc_call_symbol, 3},
     {"RC_libtcc_get_symbol",  (DL_FUNC) &RC_libtcc_get_symbol,  2},
     {"RC_libtcc_ptr_valid",   (DL_FUNC) &RC_libtcc_ptr_valid,   1},
+    {"RC_get_external_ptr_addr", (DL_FUNC) &RC_get_external_ptr_addr, 1},
     {NULL, NULL, 0}
 };