Home
last modified time | relevance | path

Searched refs:aTHX (Results 1 – 25 of 80) sorted by relevance

1234

/mirbsd/src/gnu/usr.bin/perl/
Dperlapi.h107 #define PL_Argv (*Perl_IArgv_ptr(aTHX))
109 #define PL_BINCOMPAT0 (*Perl_IBINCOMPAT0_ptr(aTHX))
111 #define PL_Cmd (*Perl_ICmd_ptr(aTHX))
113 #define PL_DBcv (*Perl_IDBcv_ptr(aTHX))
115 #define PL_DBgv (*Perl_IDBgv_ptr(aTHX))
117 #define PL_DBline (*Perl_IDBline_ptr(aTHX))
119 #define PL_DBsignal (*Perl_IDBsignal_ptr(aTHX))
121 #define PL_DBsingle (*Perl_IDBsingle_ptr(aTHX))
123 #define PL_DBsub (*Perl_IDBsub_ptr(aTHX))
125 #define PL_DBtrace (*Perl_IDBtrace_ptr(aTHX))
[all …]
Dembed.h2159 #define block_gimme() Perl_block_gimme(aTHX)
2162 #define boot_core_UNIVERSAL() Perl_boot_core_UNIVERSAL(aTHX)
2163 #define boot_core_PerlIO() Perl_boot_core_PerlIO(aTHX)
2198 #define get_op_descs() Perl_get_op_descs(aTHX)
2199 #define get_op_names() Perl_get_op_names(aTHX)
2201 #define get_no_modify() Perl_get_no_modify(aTHX)
2202 #define get_opargs() Perl_get_opargs(aTHX)
2204 #define get_ppaddr() Perl_get_ppaddr(aTHX)
2206 #define cxinc() Perl_cxinc(aTHX)
2209 #define debprofdump() Perl_debprofdump(aTHX)
[all …]
Dembedvar.h40 # define vTHX aTHX
1163 #define PL_Sv (aTHX->TSv)
1164 #define PL_Xpv (aTHX->TXpv)
1165 #define PL_av_fetch_sv (aTHX->Tav_fetch_sv)
1166 #define PL_bodytarget (aTHX->Tbodytarget)
1167 #define PL_bostr (aTHX->Tbostr)
1168 #define PL_chopset (aTHX->Tchopset)
1169 #define PL_colors (aTHX->Tcolors)
1170 #define PL_colorset (aTHX->Tcolorset)
1171 #define PL_comppad (aTHX->Tcomppad)
[all …]
Dperlapi.c40 { return &(aTHX->v); }
42 { return &(aTHX->v); }
Dcc_runtime.h10 #define DOOP(ppname) PUTBACK; PL_op = ppname(aTHX); SPAGAIN
56 PL_op = ppaddr(aTHX); \
Dperlio.c541 return (*tab->Dup)(aTHX_ PerlIO_allocate(aTHX), f, param, flags);
543 return PerlIOBase_dup(aTHX_ PerlIO_allocate(aTHX), f, param, flags);
622 list = PerlIO_list_alloc(aTHX);
642 PerlIO_allocate(aTHX); /* root slot is never used */
643 PerlIO_debug("Clone %p from %p\n",aTHX,proto);
666 PerlIO_debug("Destruct %p\n",aTHX);
906 PL_known_layers = PerlIO_list_alloc(aTHX);
1089 PL_def_layerlist = PerlIO_list_alloc(aTHX);
1137 PerlIO_list_t * const av = PerlIO_default_layers(aTHX);
1150 PerlIO_allocate(aTHX);
[all …]
Drun.c37 while ((PL_op = CALL_FPTR(PL_op->op_ppaddr)(aTHX))) { in Perl_runops_standard()
/mirbsd/src/gnu/usr.bin/perl/win32/
Ddl_win32.xs59 (void)dl_generic_private_init(aTHX); in dl_private_init()
108 (void)dl_private_init(aTHX);
127 OS_Error_String(aTHX)) ;
139 SaveError(aTHX_ "unload_file:%s", OS_Error_String(aTHX)) ;
156 OS_Error_String(aTHX)) ;
/mirbsd/src/gnu/usr.bin/perl/wince/
Ddl_win32.xs59 (void)dl_generic_private_init(aTHX); in dl_private_init()
101 (void)dl_private_init(aTHX);
120 OS_Error_String(aTHX)) ;
137 OS_Error_String(aTHX)) ;
/mirbsd/src/gnu/usr.bin/perl/ext/threads/
Dthreads.xs111 current_thread = Perl_ithread_get(aTHX); in S_ithread_clear()
122 PERL_SET_CONTEXT(aTHX); in S_ithread_clear()
160 thread->tid,thread->interp,aTHX, known_threads); in Perl_ithread_destruct()
181 if (aTHX == PL_curinterp && active_threads != 1) { in Perl_ithread_hook()
378 return Perl_ithread_get(aTHX);
392 ithread* current_thread = Perl_ithread_get(aTHX);
436 thread->interp = perl_clone(aTHX, CLONEf_KEEP_PTR_TABLE | CLONEf_CLONE_HOST);
438 thread->interp = perl_clone(aTHX, CLONEf_KEEP_PTR_TABLE);
500 PERL_SET_CONTEXT(aTHX);
565 ithread *thread = Perl_ithread_get(aTHX);
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/threads/shared/
Dshared.xs37 PERL_SET_CONTEXT((aTHX = PL_sharedsv_space)); \
44 #define dTHXc PerlInterpreter *caller_perl = aTHX
51 PERL_SET_CONTEXT((aTHX = caller_perl)); \
91 if (lock->owner != aTHX) { in recursive_lock_release()
106 assert(aTHX); in recursive_lock_acquire()
108 if (lock->owner == aTHX) { in recursive_lock_acquire()
115 aTHX, lock->owner, lock->file, lock->line); in recursive_lock_acquire()
120 lock->owner = aTHX; in recursive_lock_acquire()
181 assert( aTHX == PL_sharedsv_space ); in sharedsv_shared_mg_free()
281 assert ( aTHX != PL_sharedsv_space ); in Perl_sharedsv_associate()
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/parts/
Dapicheck.pl189 my $aTHX = '';
218 $aTHX = @arg ? 'aTHX_ ' : 'aTHX';
238 my $aTHX_args = "$aTHX$args";
/mirbsd/src/gnu/usr.bin/perl/ext/re/
Dre.xs73 install(aTHX);
78 uninstall(aTHX);
/mirbsd/src/gnu/usr.bin/perl/ext/DynaLoader/
Ddl_vmesa.xs103 (void)dl_generic_private_init(aTHX); in dl_private_init()
109 (void)dl_private_init(aTHX);
Ddl_dllload.xs99 (void)dl_generic_private_init(aTHX); in dl_private_init()
105 (void)dl_private_init(aTHX);
Ddl_beos.xs23 (void)dl_generic_private_init(aTHX); in dl_private_init()
29 (void)dl_private_init(aTHX);
Ddl_mpeix.xs37 (void)dl_generic_private_init(aTHX); in dl_private_init()
43 (void)dl_private_init(aTHX);
Ddl_dlopen.xs149 (void)dl_generic_private_init(aTHX); in dl_private_init()
155 (void)dl_private_init(aTHX);
Ddl_mac.xs54 (void)dl_generic_private_init(aTHX); in dl_private_init()
60 (void)dl_private_init(aTHX);
Ddl_dyld.xs144 (void)dl_generic_private_init(aTHX); in dl_private_init()
150 (void)dl_private_init(aTHX);
Ddl_hpux.xs41 (void)dl_generic_private_init(aTHX); in dl_private_init()
51 (void)dl_private_init(aTHX);
Ddl_next.xs238 (void)dl_generic_private_init(aTHX); in dl_private_init()
248 (void)dl_private_init(aTHX);
/mirbsd/src/gnu/usr.bin/perl/ext/List/Util/
DUtil.xs24 #ifndef aTHX
25 # define aTHX macro
38 # define cxinc() my_cxinc(aTHX)
326 (void)*(PL_ppaddr[OP_RAND])(aTHX); in shuffle()
333 (void)seedDrand01((Rand_seed_t)Perl_seed(aTHX)); in shuffle()
/mirbsd/src/gnu/usr.bin/perl/NetWare/
Ddl_netware.xs35 (void)dl_generic_private_init(aTHX); in dl_private_init()
42 (void)dl_private_init(aTHX);
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/DProf/
DDProf.xs577 if (g_THX != aTHX) { in XS()
614 if (g_THX == aTHX) in XS()
666 g_THX == aTHX && in END()
672 prof_record(aTHX); in END()
686 g_THX = aTHX; in NONESUCH()
739 prof_recordheader(aTHX); in NONESUCH()

1234