void XS_main_topNbs(register PerlInterpreter *my_perl , CV* cv); void XS_main_topNbs(register PerlInterpreter *my_perl , CV* cv) { register SV **sp = (*Perl_Tstack_sp_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0)))))); register SV **mark = (*Perl_Tstack_base_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0)))))) + (*(*Perl_Tmarkstack_ptr_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0))))))--); I32 ax = mark - (*Perl_Tstack_base_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0)))))) + 1; I32 items = sp - mark; if (items != 3) Perl_croak(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0)))), "Usage: main::topNbs(n, cmp, data)"); sp -= items; { int n = (int)((((*Perl_Tstack_base_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0))))))[ax + (0)])->sv_flags & 0x00010000) ? ((XPVIV*) ((*Perl_Tstack_base_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0))))))[ax + (0)])->sv_any)->xiv_iv : Perl_sv_2iv(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0)))), (*Perl_Tstack_base_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0))))))[ax + (0)])); SV * cmp = (*Perl_Tstack_base_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0))))))[ax + (1)]; AV * data; #line 258 "topN_pl_c7f1.xs" I32* temp; #line 314 "topN_pl_c7f1.c" if ((((*Perl_Tstack_base_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0))))))[ax + (2)])->sv_flags & 0x00080000) && ((((XRV*) ((*Perl_Tstack_base_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0))))))[ax + (2)])->sv_any)->xrv_rv)->sv_flags & 0xff)==SVt_PVAV) data = (AV*)((XRV*) ((*Perl_Tstack_base_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0))))))[ax + (2)])->sv_any)->xrv_rv; else Perl_croak(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0)))), "data is not an array reference"); #line 260 "topN_pl_c7f1.xs" temp = (*Perl_Tmarkstack_ptr_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0))))))++; topNbs(n, cmp, data); if ((*Perl_Tmarkstack_ptr_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0)))))) != temp) { (*Perl_Tmarkstack_ptr_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0)))))) = temp; do { do { IV tmpXSoff = (0); (*Perl_Tstack_sp_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0)))))) = (*Perl_Tstack_base_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0)))))) + ax + (tmpXSoff - 1); return; } while (0); } while (0); } return; #line 330 "topN_pl_c7f1.c" (*Perl_Tstack_sp_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(0)))))) = sp; return; } }