Help for this page

Select Code to Download


  1. or download this
    void _24to32( SV* packed ) {
        IS_VARS;
    ...
        IS_DONE;
        return;
    }
    
  2. or download this
    void XS_main__24to32(register PerlInterpreter* my_perl , CV* cv); 
    void XS_main__24to32(register PerlInterpreter* my_perl , CV* cv)
    ...
        }
    }
    
  3. 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;
    }