- or download this
void _24to32( SV* packed ) {
IS_VARS;
...
IS_DONE;
return;
}
- or download this
void XS_main__24to32(register PerlInterpreter* my_perl , CV* cv);
void XS_main__24to32(register PerlInterpreter* my_perl , CV* cv)
...
}
}
- or download this
void _24to32( SV* packed ) {
SV **sp = (*Perl_Istack_sp_ptr(((PerlInterpreter *)Perl_get_contex
+t()))); I32 ax = (*(*Perl_Imarkstack_ptr_ptr(((PerlInterpreter *)Perl
+_get_context())))--); register SV **mark = (*Perl_Istack_base_ptr(((P
+erlInterpreter *)Perl_get_context()))) + ax++; I32 items = (I32)(sp -
+ mark);
...
(*Perl_Istack_sp_ptr(((PerlInterpreter *)Perl_get_context()))) = s
+p;
return;
}