Home
last modified time | relevance | path

Searched refs:aTHX_ (Results 1 – 25 of 183) sorted by relevance

12345678

/openbsd/src/gnu/usr.bin/perl/
Dembed.h100 # define Gv_AMupdate(a,b) Perl_Gv_AMupdate(aTHX_ a,b)
103 # define SvGETMAGIC(a) Perl_SvGETMAGIC(aTHX_ a)
104 # define SvIV(a) Perl_SvIV(aTHX_ a)
105 # define SvIV_nomg(a) Perl_SvIV_nomg(aTHX_ a)
106 # define SvNV(a) Perl_SvNV(aTHX_ a)
107 # define SvNV_nomg(a) Perl_SvNV_nomg(aTHX_ a)
108 # define SvPVXtrue(a) Perl_SvPVXtrue(aTHX_ a)
109 # define SvREFCNT_dec_ret_NULL(a) Perl_SvREFCNT_dec_ret_NULL(aTHX_ a)
110 # define SvTRUE(a) Perl_SvTRUE(aTHX_ a)
111 # define SvTRUE_NN(a) Perl_SvTRUE_NN(aTHX_ a)
[all …]
Ddump.c89 S_append_flags(aTHX_ (sv), (f), (flags), C_ARRAY_END(flags))
97 _pv_display_flags(aTHX_ dsv, pv, cur, len, pvlim, PERL_PV_ESCAPE_DWIM_ALL_HEX)
302 Perl_sv_catpvf( aTHX_ dsv,"%s...%s", qe, qs); in Perl_pv_escape()
323 Perl_sv_catpvf( aTHX_ dsv, "%c", c); in Perl_pv_escape()
382 Perl_sv_catpvf(aTHX_ dsv, "%c", quotes[0]); in Perl_pv_pretty()
403 Perl_sv_catpvf(aTHX_ dsv, "%c", quotes[1]); in Perl_pv_pretty()
445 return _pv_display_flags(aTHX_ dsv, pv, cur, len, pvlim, 0); in Perl_pv_display()
540 Perl_sv_catpvf(aTHX_ t, "<"); in Perl_sv_peek()
542 Perl_sv_catpvf(aTHX_ t, "%" UVuf, (UV)SvREFCNT(sv)); in Perl_sv_peek()
544 Perl_sv_catpvf(aTHX_ t, "%s", "P"); in Perl_sv_peek()
[all …]
Dregcomp_debug.c57 Perl_re_printf( aTHX_ "%s", open_str); in Perl_debug_show_study_flags()
73 Perl_re_printf( aTHX_ "%s", close_str); in Perl_debug_show_study_flags()
86 Perl_re_indentf(aTHX_ "%s: NO DATA", in Perl_debug_studydata()
91 …Perl_re_indentf(aTHX_ "%s: M/S/D: %" IVdf "/%" IVdf "/%" IVdf " Pos:%" IVdf "/%" IVdf " Flags: 0x… in Perl_debug_studydata()
100 Perl_debug_show_study_flags(aTHX_ data->flags," [","]"); in Perl_debug_studydata()
102 Perl_re_printf( aTHX_ in Perl_debug_studydata()
111 Perl_re_printf(aTHX_ in Perl_debug_studydata()
120 Perl_re_printf(aTHX_ in Perl_debug_studydata()
128 Perl_debug_show_study_flags(aTHX_ data->substrs[i].flags," [","]"); in Perl_debug_studydata()
132 Perl_re_printf( aTHX_ "\n"); in Perl_debug_studydata()
[all …]
Dvutil.h34 # define SCAN_VERSION(a,b,c) Perl_scan_version2(aTHX_ a,b,c)
35 # define NEW_VERSION(a) Perl_new_version2(aTHX_ a)
36 # define UPG_VERSION(a,b) Perl_upg_version2(aTHX_ a, b)
37 # define VSTRINGIFY(a) Perl_vstringify2(aTHX_ a)
38 # define VVERIFY(a) Perl_vverify2(aTHX_ a)
39 # define VNUMIFY(a) Perl_vnumify2(aTHX_ a)
40 # define VNORMAL(a) Perl_vnormal2(aTHX_ a)
41 # define VCMP(a,b) Perl_vcmp2(aTHX_ a,b)
42 # define PRESCAN_VERSION(a,b,c,d,e,f,g) Perl_prescan_version2(aTHX_ a,b,c,d,e,f,g)
45 (a != Perl_prescan_version2(aTHX_ a, FALSE, b, NULL, NULL, NULL, NULL))
[all …]
Dperl_inc_macro.h26 # define INCPUSH_APPLLIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(APPLLIB_EXP), \
34 # define INCPUSH_SITEARCH_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITEARCH_EXP), \
45 # define INCPUSH_SITELIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_EXP), \
54 # define INCPUSH_PERL_VENDORARCH_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORARCH_EXP), I…
64 # define INCPUSH_PERL_VENDORLIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_VENDORLIB_EXP), INCP…
69 # define INCPUSH_ARCHLIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(ARCHLIB_EXP), INCPUSH_CAN_RELOCAT…
81 # define INCPUSH_PRIVLIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(PRIVLIB_EXP), INCPUSH_CAN_RELOCAT…
85 # define INCPUSH_PERL_OTHERLIBDIRS S_incpush_use_sep(aTHX_ STR_WITH_LEN(PERL_OTHERLIBDIRS), \
118 # define INCPUSH_APPLLIB_OLD_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(APPLLIB_EXP), \
124 # define INCPUSH_SITELIB_STEM S_incpush_use_sep(aTHX_ STR_WITH_LEN(SITELIB_STEM), \
[all …]
Dperlio.c214 Perl_croak(aTHX_ "Cannot apply \"%s\" in non-PerlIO perl", names); in PerlIO_apply_layers()
271 Perl_croak(aTHX_ "More than one argument to open"); in PerlIO_openn()
305 Perl_croak(aTHX_ "Usage class->find(name[,load])"); in XS()
384 SV * const sv = Perl_newSVpvf(aTHX_ "%s:%" LINE_Tf " ", in PerlIO_debug()
386 Perl_sv_vcatpvf(aTHX_ sv, fmt, &ap); in PerlIO_debug()
405 # define VERIFY_HEAD(f) PerlIO_verify_head(aTHX_ f)
485 return (*tab->Dup)(aTHX_ PerlIO_allocate(aTHX), f, param, flags); in PerlIO_fdupopen()
487 return PerlIOBase_dup(aTHX_ PerlIO_allocate(aTHX), f, param, flags); in PerlIO_fdupopen()
502 PerlIO_cleantable(aTHX_ &table[0].next); in PerlIO_cleantable()
577 PerlIO_list_push(aTHX_ list, proto->array[i].funcs, arg); in PerlIO_clone_list()
[all …]
Dregcomp_internal.h859 : (Perl_croak(aTHX_ "panic: %s: %d: negative offset: %" \
906 Perl_croak(aTHX_ "%s in regex m/%" UTF8f "%s/", \
910 Perl_croak(aTHX_ msg " in regex m/%" UTF8f "%s/", \
914 Perl_croak(aTHX_ msg " in regex m/%" UTF8f "%s/", \
921 Perl_croak(aTHX_ "%s" REPORT_LOCATION, \
936 S_re_croak(aTHX_ UTF, m REPORT_LOCATION, a1, \
952 S_re_croak(aTHX_ UTF, m REPORT_LOCATION, a1, a2, \
967 S_re_croak(aTHX_ UTF, m REPORT_LOCATION, a1, a2, a3, \
977 S_re_croak(aTHX_ UTF, m REPORT_LOCATION, a1, \
982 S_re_croak(aTHX_ UTF, m REPORT_LOCATION, a1, a2, \
[all …]
Dregcomp_trie.c62 Perl_re_indentf( aTHX_ "Char : %-6s%-6s%-4s ", in S_dump_trie()
68 Perl_re_printf( aTHX_ "%*s", in S_dump_trie()
78 Perl_re_printf( aTHX_ "\n"); in S_dump_trie()
79 Perl_re_indentf( aTHX_ "State|-----------------------", depth+1); in S_dump_trie()
82 Perl_re_printf( aTHX_ "%.*s", colwidth, "--------"); in S_dump_trie()
83 Perl_re_printf( aTHX_ "\n"); in S_dump_trie()
88 Perl_re_indentf( aTHX_ "#%4" UVXf "|", depth+1, (UV)state); in S_dump_trie()
91 Perl_re_printf( aTHX_ " W%4X", trie->states[ state ].wordnum ); in S_dump_trie()
93 Perl_re_printf( aTHX_ "%6s", "" ); in S_dump_trie()
96 Perl_re_printf( aTHX_ " @%4" UVXf " ", (UV)base ); in S_dump_trie()
[all …]
Dmydtrace.h18 Perl_dtrace_probe_call(aTHX_ cv, TRUE);
22 Perl_dtrace_probe_call(aTHX_ cv, FALSE);
26 Perl_dtrace_probe_load(aTHX_ name, TRUE);
30 Perl_dtrace_probe_load(aTHX_ name, FALSE);
34 Perl_dtrace_probe_op(aTHX_ op);
38 Perl_dtrace_probe_phase(aTHX_ phase);
Dtoke.c44 S_new_constant(aTHX_ a,b,STR_WITH_LEN(c),d,e,f, g, h)
239 #define POSTDEREF(f) return (PL_bufptr = s, S_postderef(aTHX_ REPORT(f),s[1]))
564 Perl_sv_catpv(aTHX_ report, name); in S_tokereport()
567 Perl_sv_catpvf(aTHX_ report, "'%c'", (char)rv); in S_tokereport()
574 Perl_sv_catpvf(aTHX_ report, "?? %" IVdf, (IV)rv); in S_tokereport()
579 Perl_sv_catpvf(aTHX_ report, "(ival=%" IVdf ")", (IV)lvalp->ival); in S_tokereport()
582 Perl_sv_catpvf(aTHX_ report, "(ival=op_%s)", in S_tokereport()
586 Perl_sv_catpvf(aTHX_ report, "(pval=%p)", lvalp->pval); in S_tokereport()
590 Perl_sv_catpvf(aTHX_ report, "(opval=op_%s)", in S_tokereport()
593 Perl_sv_catpvf(aTHX_ report, " %s", in S_tokereport()
[all …]
Dpp_sys.c237 Perl_croak(aTHX_ "switching effective uid is not implemented"); in S_emulate_eaccess()
245 Perl_croak(aTHX_ "entering effective uid failed"); in S_emulate_eaccess()
249 Perl_croak(aTHX_ "switching effective gid is not implemented"); in S_emulate_eaccess()
257 Perl_croak(aTHX_ "entering effective gid failed"); in S_emulate_eaccess()
268 Perl_croak(aTHX_ "leaving effective uid failed"); in S_emulate_eaccess()
276 Perl_croak(aTHX_ "leaving effective gid failed"); in S_emulate_eaccess()
280 # define PERL_EFF_ACCESS(p,f) (S_emulate_eaccess(aTHX_ (p), (f)))
299 const char * const type = Perl_PerlIO_context_layers(aTHX_ NULL); in PP()
301 PerlIO_apply_layers(aTHX_ fp,mode,type); in PP()
583 Perl_warn(aTHX_ "%" SVf, SVfARG(exsv));
[all …]
Dbuiltin.c32 #define warn_experimental_builtin(name) S_warn_experimental_builtin(aTHX_ name)
36 Perl_ck_warner_d(aTHX_ packWARN(WARN_EXPERIMENTAL__BUILTIN), in S_warn_experimental_builtin()
56 #define export_lexical(name, sv) S_export_lexical(aTHX_ name, sv)
141 DIE(aTHX_ "panic: unrecognised builtin_const value %" IVdf, in ck_builtin_const()
208 Perl_die(aTHX_ "panic: unhandled opcode %" IVdf in XS()
315 Perl_croak(aTHX_ in XS()
319 Perl_croak(aTHX_ "Odd number of elements in export_lexically"); in XS()
327 Perl_croak(aTHX_ "Expected a reference in export_lexically"); in XS()
337 ST(i) = name = sv_2mortal(Perl_newSVpvf(aTHX_ "&%" SVf, SVfARG(name))); in XS()
365 Perl_croak(aTHX_ "Expected %s reference in export_lexically", bad); in XS()
[all …]
Ddquote.c49 … *message = Perl_form(aTHX_ PERL_DIAG_DIE_SYNTAX("Use \"%c\" instead of \"\\c{\""), control); in Perl_grok_bslash_c()
70 *message = Perl_form(aTHX_ format, source, clearer); in Perl_grok_bslash_c()
74 Perl_warner(aTHX_ packWARN(WARN_SYNTAX), format, source, clearer); in Perl_grok_bslash_c()
120 Perl_sv_setpvf(aTHX_ display_char, "\\x{%02x}", *first_bad); in Perl_form_alien_digit_msg()
147 Perl_sv_catpvf(aTHX_ message_sv, " terminates \\%c early. Resolved as " in Perl_form_alien_digit_msg()
219 Perl_sv_setpvf(aTHX_ message_sv, "Use of code point %s", prefix); in Perl_form_cp_too_large_msg()
221 Perl_sv_catpvf(aTHX_ message_sv, "%.*s", (int) len, string); in Perl_form_cp_too_large_msg()
224 Perl_sv_catpvf(aTHX_ message_sv, format, cp); in Perl_form_cp_too_large_msg()
226 Perl_sv_catpvf(aTHX_ message_sv, " is not allowed; the permissible max is %s", prefix); in Perl_form_cp_too_large_msg()
227 Perl_sv_catpvf(aTHX_ message_sv, format, MAX_LEGAL_CP); in Perl_form_cp_too_large_msg()
[all …]
Dpp_pack.c150 if (!S_utf8_to_bytes(aTHX_ &s, strend, \
260 Perl_croak(aTHX_ "Malformed UTF-8 string in '%c' format in unpack", in utf8_to_byte()
263 Perl_ck_warner(aTHX_ packWARN(WARN_UNPACK), in utf8_to_byte()
273 utf8_to_byte(aTHX_ &(s), (strend), (datumtype)) : \
319 Perl_ck_warner(aTHX_ packWARN(datumtype & TYPE_IS_PACK ? in S_utf8_to_bytes()
364 Perl_croak(aTHX_ "%s", "Out of memory during pack()"); \
371 Perl_croak(aTHX_ "%s", "Out of memory during pack()"); \
381 Perl_croak(aTHX_ "%s", "Out of memory during pack()"); \
418 Perl_croak(aTHX_ "Malformed UTF-8 string in pack"); \
441 Perl_croak(aTHX_ "Within []-length '*' not allowed in %s", in S_measure_struct()
[all …]
Dwarnings.h185 #define DUP_WARNINGS(p) Perl_dup_warnings(aTHX_ p)
238 #define ckWARN(w) Perl_ckwarn(aTHX_ packWARN(w))
243 #define ckWARN2(w1,w2) Perl_ckwarn(aTHX_ packWARN2(w1,w2))
244 #define ckWARN3(w1,w2,w3) Perl_ckwarn(aTHX_ packWARN3(w1,w2,w3))
245 #define ckWARN4(w1,w2,w3,w4) Perl_ckwarn(aTHX_ packWARN4(w1,w2,w3,w4))
247 #define ckWARN_d(w) Perl_ckwarn_d(aTHX_ packWARN(w))
248 #define ckWARN2_d(w1,w2) Perl_ckwarn_d(aTHX_ packWARN2(w1,w2))
249 #define ckWARN3_d(w1,w2,w3) Perl_ckwarn_d(aTHX_ packWARN3(w1,w2,w3))
250 #define ckWARN4_d(w1,w2,w3,w4) Perl_ckwarn_d(aTHX_ packWARN4(w1,w2,w3,w4))
/openbsd/src/gnu/usr.bin/perl/vms/
Dvmsish.h90 # define getenv(v) Perl_my_getenv(aTHX_ v,TRUE)
95 #define getenv_len(v,l) Perl_my_getenv_len(aTHX_ v,l,TRUE)
110 #define opendir(a) Perl_opendir(aTHX_ a)
111 #define rename(a,b) Perl_rename(aTHX_ a,b)
112 #define seekdir(a,b) Perl_seekdir(aTHX_ a,b)
113 #define readdir(a) Perl_readdir(aTHX_ a)
114 #define readdir_r(a,b,c) Perl_readdir_r(aTHX_ a,b,c)
120 #define cando_by_name(a,b,c) Perl_cando_by_name(aTHX_ a,b,c)
121 #define do_rmdir(a) Perl_do_rmdir(aTHX_ a)
122 #define fileify_dirspec(a,b) Perl_fileify_dirspec(aTHX_ a,b)
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/PerlIO-via/
Dvia.xs50 Perl_warn(aTHX_ "Lookup %s::%s => %p", HvNAME_get(s->stash), method, gv); in PerlIOVia_fetchmethod()
75 (*save) ? *save : PerlIOVia_fetchmethod(aTHX_ s, method, save); in PerlIOVia_method()
135 IV code = PerlIOBase_pushed(aTHX_ f, mode, Nullsv, tab); in PerlIOVia_pushed()
146 Perl_warner(aTHX_ packWARN(WARN_LAYER), in PerlIOVia_pushed()
155 newSVpvn(Perl_form(aTHX_ "PerlIO::via::%s", pkg), in PerlIOVia_pushed()
172 result = PerlIOVia_method(aTHX_ f, MYMethod(PUSHED), G_SCALAR, in PerlIOVia_pushed()
187 result = PerlIOVia_method(aTHX_ f, MYMethod(UTF8), G_SCALAR, modesv, Nullsv); in PerlIOVia_pushed()
194 if (PerlIOVia_fetchmethod(aTHX_ s, MYMethod(FILL)) == in PerlIOVia_pushed()
202 Perl_warner(aTHX_ packWARN(WARN_LAYER), in PerlIOVia_pushed()
226 f = PerlIO_push(aTHX_ PerlIO_allocate(aTHX), self, mode, in PerlIOVia_open()
[all …]
/openbsd/src/gnu/usr.bin/perl/dist/threads/
Dthreads.xs252 S_ithread_set(aTHX_ thread); in S_ithread_clear()
316 S_ithread_clear(aTHX_ thread); in S_ithread_free()
369 Perl_warn(aTHX_ "Perl exited with active threads:\n\t%" in S_exit_warning()
411 S_ithread_free(aTHX_ thread); /* Releases MUTEX */ in ithread_mg_free()
419 S_ithread_count_inc(aTHX_ (ithread *)mg->mg_ptr); in ithread_mg_dup()
452 Perl_warn(aTHX_ "Using minimum thread stack size of %" IVdf, (IV)PTHREAD_STACK_MIN); in S_good_stack_size()
471 Perl_croak(aTHX_ "PANIC: sysconf: %s", SvPV_nolen(error)); in S_good_stack_size()
473 Perl_croak(aTHX_ "PANIC: sysconf: pagesize unknown"); in S_good_stack_size()
487 Perl_croak(aTHX_ "PANIC: bad pagesize %" IVdf, (IV)MY_POOL.page_size); in S_good_stack_size()
518 Perl_warn(aTHX_ "Thread %" UVuf " terminated abnormally: %" SVf, thread->tid, ERRSV); in S_jmpenv_run()
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/Hash-Util-FieldHash/
DFieldHash.xs41 Perl_die(aTHX_ "Can't get object registry hash"); in HUF_get_ob_reg()
132 AV* cont = HUF_get_trigger_content(aTHX_ trigger); in HUF_destroy_obj()
144 HUF_global(aTHX_ HUF_RESET); /* shoudn't be needed */ in HUF_destroy_obj()
165 HUF_add_uvar_magic(aTHX_ trigger, NULL, &HUF_destroy_obj, 0, (SV*)cont); in HUF_new_trigger()
182 SV* trigger = HUF_ask_trigger(aTHX_ ob_id); in HUF_get_trigger()
184 trigger = HUF_new_trigger(aTHX_ obj, ob_id); in HUF_get_trigger()
193 AV* cont = HUF_get_trigger_content(aTHX_ trigger); in HUF_mark_field()
211 SV* ob_id = HUF_obj_id(aTHX_ keysv); in HUF_watch_key_safe()
214 SV* trigger = HUF_get_trigger(aTHX_ keysv, ob_id); in HUF_watch_key_safe()
215 HUF_mark_field(aTHX_ trigger, field); in HUF_watch_key_safe()
[all …]
/openbsd/src/gnu/usr.bin/perl/dist/threads-shared/
Dshared.xs263 Perl_warn(aTHX_ " %p waiting - owned by %p %s:%d\n", in recursive_lock_acquire()
286 recursive_lock_acquire(aTHX_ &PL_sharedsv_lock, __FILE__, __LINE__);\
331 recursive_lock_destroy(aTHX_ &ul->lock); in sharedsv_userlock_free()
429 recursive_lock_init(aTHX_ &ul->lock); in S_get_userlock()
529 assert ( Perl_sharedsv_find(aTHX_ sv) == ssv ); in Perl_sharedsv_associate()
550 Perl_sharedsv_associate(aTHX_ sv, ssv); in S_sharedsv_new_shared()
568 Perl_sharedsv_associate(aTHX_ sv, ssv); in S_sharedsv_new_private()
601 Perl_croak(aTHX_ "Cannot share globs yet"); in Perl_sharedsv_share()
605 Perl_croak(aTHX_ "Cannot share subs yet"); in Perl_sharedsv_share()
610 (void) S_sharedsv_new_shared(aTHX_ sv); in Perl_sharedsv_share()
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/Opcode/
DOpcode.xs67 put_op_bitspec(aTHX_ STR_WITH_LEN(":none"), sv_2mortal(new_opset(aTHX_ Nullsv))); in op_names_init()
69 opset_all = new_opset(aTHX_ Nullsv); in op_names_init()
75 put_op_bitspec(aTHX_ STR_WITH_LEN(":all"), opset_all); /* don't mortalise */ in op_names_init()
90 verify_opset(aTHX_ mask,1); in put_op_bitspec()
134 verify_opset(aTHX_ old_opset,1); in new_opset()
205 verify_opset(aTHX_ opset,1); /* croaks on bad opset */ in opmask_add()
244 opmask_add(aTHX_ opset); in opmask_addlocal()
297 opmask_addlocal(aTHX_ mask, op_mask_buf);
341 RETVAL = verify_opset(aTHX_ opset,fatal);
353 opset = sv_2mortal(new_opset(aTHX_ opset)); /* verify and clone opset */ in invert_opset()
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Win32/
DWin32.xs205 sv = wstr_to_sv(aTHX_ entry+name_len+1); in get_unicode_env()
329 source = sv_to_wstr(aTHX_ ST(0)); in XS()
331 ST(0) = wstr_to_sv(aTHX_ value); in XS()
572 msg = sv_to_wstr(aTHX_ ST(0)); in XS()
576 title = sv_to_wstr(aTHX_ ST(2)); in XS()
670 Perl_croak(aTHX_ "usage: Win32::GetArchName()"); in XS()
681 Perl_croak(aTHX_ "usage: Win32::GetChipArch()"); in XS()
701 Perl_croak(aTHX_ "usage: Win32::GetChipName()"); in XS()
722 Perl_croak(aTHX_ "usage: Win32::GuidGen()");
756 ST(0) = wstr_to_ansipath(aTHX_ wpath);
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/PerlIO-encoding/
Dencoding.xs101 IV code = PerlIOBuf_pushed(aTHX_ f, mode, Nullsv,tab); in PerlIOEncode_pushed()
121 Perl_die(aTHX_ "Encode::find_encoding did not return a value"); in PerlIOEncode_pushed()
131 Perl_warner(aTHX_ packWARN(WARN_IO), "Cannot find encoding \"%" SVf "\"", in PerlIOEncode_pushed()
144 Perl_warner(aTHX_ packWARN(WARN_IO), "\"%" SVf "\" does not support renew method", in PerlIOEncode_pushed()
158 Perl_warner(aTHX_ packWARN(WARN_IO), "\"%" SVf "\" does not support needs_lines", in PerlIOEncode_pushed()
174 Perl_croak(aTHX_ "PerlIO::encoding::fallback must be an integer"); in PerlIOEncode_pushed()
224 Perl_warn(aTHX_ " ptr %p(%p)%p", e->base.buf, e->base.ptr, in PerlIOEncode_get_base()
237 Perl_warn(aTHX_ " ptr %p(%p)%p", e->base.buf, e->base.ptr, in PerlIOEncode_get_base()
260 n = PerlIO_push(aTHX_ n, &PerlIO_perlio, PerlIO_modestr(f,mode), Nullsv); in PerlIOEncode_fill()
262 Perl_die(aTHX_ "panic: cannot push :perlio for %p",f); in PerlIOEncode_fill()
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/PerlIO-mmap/
Dmmap.xs48 Perl_croak(aTHX_ "panic: bad pagesize %" IVdf, in PerlIOMmap_map()
137 PerlIOMmap_map(aTHX_ f); /* Try and map it */ in PerlIOMmap_get_base()
148 return PerlIOBuf_get_base(aTHX_ f); in PerlIOMmap_get_base()
175 PerlIOBuf_get_base(aTHX_ f); in PerlIOMmap_unread()
179 return PerlIOBuf_unread(aTHX_ f, vbuf, count); in PerlIOMmap_unread()
193 if (PerlIOMmap_unmap(aTHX_ f) != 0) in PerlIOMmap_write()
202 PerlIOBuf_get_base(aTHX_ f); in PerlIOMmap_write()
206 return PerlIOBuf_write(aTHX_ f, vbuf, count); in PerlIOMmap_write()
214 IV code = PerlIOBuf_flush(aTHX_ f); in PerlIOMmap_flush()
223 if (PerlIOMmap_unmap(aTHX_ f) != 0) in PerlIOMmap_flush()
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/B/
DB.xs214 return make_temp_object(aTHX_ newSVpvn(warnings, RCPV_LEN(warnings))); in make_warnings_object()
223 Perl_emulate_cop_io(aTHX_ cop, value); in make_cop_io_object()
226 return make_sv_object(aTHX_ value); in make_cop_io_object()
229 return make_sv_object(aTHX_ NULL); in make_cop_io_object()
289 Perl_sv_catpvf(aTHX_ sstr, "\\%03o", '?'); in cstring()
315 Perl_sv_catpvf(aTHX_ sstr, "\\%03o", c); in cstring()
353 Perl_sv_catpvf(aTHX_ sstr, "\\%03o", c); in cchar()
397 ref = walkoptree(aTHX_ kid, method, ref); in walkoptree()
403 ref = walkoptree(aTHX_ kid, method, ref); in walkoptree()
415 XPUSHs(make_op_object(aTHX_ o)); in oplist()
[all …]

12345678