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(":: x%x to x%x\n", (unsigned long long)SvUV($input), $1);
if(SvGMAGICAL($input)) mg_get($input);
$1 = DPTR2FPTR($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
...
<=========== but then swig- SvUV() or SvIV() cast it to 32 bits
:: x339f8040 to x339f8040
::DPTR2FPTR x339f8040 to x339f8040
....