Select Code to Download

 in perl
sub add_idle_callback($$)
{
    printf("\nadd_idle_callback x%x , x%x  \n", @_);
    &idle_callback_run(@_); # calls 
}

  in .swg
%typemap(in) void (* cb)(void *) {
   $1 = INT2PTR($1_ltype, SvUV($input));
...
 printf("::DPTR2FPTR x%x to x%x\n", SvIV($input), $1);

}

  log
...
add_idle_callback x7ffb339f8040 , x0   <==== here in perl  the pointer
+ to function is 64bits
...
:: x339f8040 to x339f8040  
::DPTR2FPTR x339f8040 to x339f8040 
....