Lines Matching refs:aTHX_
57 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()
151 Perl_re_indentf( aTHX_ "%s>%3d: %s (%d)", in Perl_debug_peep()
156 Perl_debug_show_study_flags(aTHX_ flags," [ ","]"); in Perl_debug_peep()
157 Perl_re_printf( aTHX_ "\n"); in Perl_debug_peep()
175 Perl_re_printf( aTHX_ "--- %d : %d - %d - %d\n", indent, node-start, in Perl_dumpuntil()
200 Perl_re_printf( aTHX_ "%4" IVdf ":%*s%s", (IV)(node - start), in Perl_dumpuntil()
205 Perl_re_printf( aTHX_ " (0)"); in Perl_dumpuntil()
208 Perl_re_printf( aTHX_ " (FAIL)"); in Perl_dumpuntil()
210 Perl_re_printf( aTHX_ " (%" IVdf ")", (IV)(next - start)); in Perl_dumpuntil()
211 Perl_re_printf( aTHX_ "\n"); in Perl_dumpuntil()
246 Perl_re_indentf( aTHX_ "%s ", in Perl_dumpuntil()
262 Perl_re_printf( aTHX_ "(%" UVuf ")\n", in Perl_dumpuntil()
272 Perl_re_printf( aTHX_ "\n"); in Perl_dumpuntil()
304 Perl_re_printf( aTHX_ "--- %d\n", (int)indent); in Perl_dumpuntil()
326 Perl_re_printf( aTHX_ "%s", lead); in S_regdump_intflags()
327 Perl_re_printf( aTHX_ "%s ", PL_reg_intflags_name[bit]); in S_regdump_intflags()
332 Perl_re_printf( aTHX_ "\n"); in S_regdump_intflags()
334 Perl_re_printf( aTHX_ "%s[none-set]\n", lead); in S_regdump_intflags()
353 Perl_re_printf( aTHX_ "%s", lead); in S_regdump_extflags()
354 Perl_re_printf( aTHX_ "%s ", PL_reg_extflags_name[bit]); in S_regdump_extflags()
359 Perl_re_printf( aTHX_ "%s", lead); in S_regdump_extflags()
363 Perl_re_printf( aTHX_ "UNICODE"); in S_regdump_extflags()
366 Perl_re_printf( aTHX_ "LOCALE"); in S_regdump_extflags()
369 Perl_re_printf( aTHX_ "ASCII-RESTRICTED"); in S_regdump_extflags()
372 Perl_re_printf( aTHX_ "ASCII-MORE_RESTRICTED"); in S_regdump_extflags()
375 Perl_re_printf( aTHX_ "UNKNOWN CHARACTER SET"); in S_regdump_extflags()
381 Perl_re_printf( aTHX_ "\n"); in S_regdump_extflags()
383 Perl_re_printf( aTHX_ "%s[none-set]\n", lead); in S_regdump_extflags()
409 Perl_re_printf( aTHX_ in Perl_regdump()
422 Perl_re_printf( aTHX_ in Perl_regdump()
433 Perl_re_printf( aTHX_ in Perl_regdump()
439 Perl_re_printf( aTHX_ " noscan"); in Perl_regdump()
441 Perl_re_printf( aTHX_ " isall"); in Perl_regdump()
443 Perl_re_printf( aTHX_ ") "); in Perl_regdump()
447 Perl_re_printf( aTHX_ "stclass %s ", SvPVX_const(sv)); in Perl_regdump()
450 Perl_re_printf( aTHX_ "anchored"); in Perl_regdump()
452 Perl_re_printf( aTHX_ "(MBOL)"); in Perl_regdump()
454 Perl_re_printf( aTHX_ "(SBOL)"); in Perl_regdump()
456 Perl_re_printf( aTHX_ "(GPOS)"); in Perl_regdump()
457 Perl_re_printf( aTHX_ " "); in Perl_regdump()
460 Perl_re_printf( aTHX_ "GPOS:%" UVuf " ", (UV)r->gofs); in Perl_regdump()
462 Perl_re_printf( aTHX_ "plus "); in Perl_regdump()
464 Perl_re_printf( aTHX_ "implicit "); in Perl_regdump()
465 Perl_re_printf( aTHX_ "minlen %" IVdf " ", (IV)r->minlen); in Perl_regdump()
467 Perl_re_printf( aTHX_ "with eval "); in Perl_regdump()
468 Perl_re_printf( aTHX_ "\n"); in Perl_regdump()
550 Perl_croak(aTHX_ "panic: corrupted regexp opcode %d > %d", in Perl_regprop()
558 Perl_sv_catpvf(aTHX_ sv, " (buf:%" IVdf "/%" IVdf ")", (IV)ARG1a(o),(IV)ARG1b(o)); in Perl_regprop()
561 Perl_sv_catpvf(aTHX_ sv, " (buf:%" IVdf "/%" IVdf ")", (IV)ARG2a(o),(IV)ARG2b(o)); in Perl_regprop()
587 Perl_sv_catpvf(aTHX_ sv, "-%s", REGNODE_NAME(FLAGS(o))); in Perl_regprop()
591 Perl_sv_catpvf(aTHX_ sv, in Perl_regprop()
617 Perl_sv_catpvf(aTHX_ sv, " (buf:%" IVdf "/%" IVdf ")", in Perl_regprop()
622 Perl_sv_catpvf(aTHX_ sv, "<%d:%d>", ARG3a(o),ARG3b(o)); /* paren before, paren after */ in Perl_regprop()
624 Perl_sv_catpvf(aTHX_ sv, "[%d]", FLAGS(o)); /* Parenth number */ in Perl_regprop()
625 Perl_sv_catpvf(aTHX_ sv, "{%u,", (unsigned) lo); in Perl_regprop()
629 Perl_sv_catpvf(aTHX_ sv, "%u", (unsigned) hi); in Perl_regprop()
633 Perl_sv_catpvf(aTHX_ sv, "[%d/%d]", FLAGS(o) & 0xf, FLAGS(o)>>4); in Perl_regprop()
652 Perl_sv_catpvf(aTHX_ sv, "%" UVuf, (UV)logical_parno); /* Parenth number */ in Perl_regprop()
654 Perl_sv_catpvf(aTHX_ sv, "/%" UVuf, (UV)parno); /* Parenth number */ in Perl_regprop()
658 Perl_sv_catpvf(aTHX_ sv, " '%" SVf "'", SVfARG(*name)); in Perl_regprop()
675 Perl_sv_catpvf(aTHX_ sv, "%s%" IVdf, in Perl_regprop()
678 Perl_sv_catpvf(aTHX_ sv, " '%" SVf "'", SVfARG(*name)); in Perl_regprop()
686 Perl_sv_catpvf(aTHX_ sv, "%" UVuf, (UV)logical_parno); /* Parenth number */ in Perl_regprop()
688 Perl_sv_catpvf(aTHX_ sv, "/%" UVuf, (UV)parno); /* Parenth number */ in Perl_regprop()
692 Perl_sv_catpvf(aTHX_ sv, " <%" IVdf ">", (IV)ARG2i(o)); in Perl_regprop()
698 Perl_sv_catpvf(aTHX_ sv, ": FAIL"); in Perl_regprop()
700 Perl_sv_catpvf(aTHX_ sv, ": ACCEPT - EMPTY STRING"); in Perl_regprop()
703 Perl_sv_catpvf(aTHX_ sv, ": "); in Perl_regprop()
704 … Perl_pv_pretty( aTHX_ sv, s, RXp_OFFS_END(prog,n) - RXp_OFFS_START(prog,n), 32, 0, 0, in Perl_regprop()
721 Perl_sv_catpvf(aTHX_ sv, "%" IVdf, logical_parno); in Perl_regprop()
723 Perl_sv_catpvf(aTHX_ sv, "/%" IVdf, parno); in Perl_regprop()
725 Perl_sv_catpvf(aTHX_ sv, "[%+d:%d]", (int)ARG2i(o), in Perl_regprop()
730 Perl_sv_catpvf(aTHX_ sv, " '%" SVf "'", SVfARG(*name)); in Perl_regprop()
735 Perl_sv_catpvf(aTHX_ sv, "[%d]", FLAGS(o)); in Perl_regprop()
829 Perl_sv_catpvf(aTHX_ sv, "[%s", PL_colors[0]); in Perl_regprop()
868 Perl_sv_catpvf(aTHX_ sv,"%s][%s", PL_colors[1], in Perl_regprop()
902 Perl_sv_catpvf(aTHX_ sv,"%s][%s", PL_colors[1], PL_colors[0]); in Perl_regprop()
945 Perl_sv_catpvf(aTHX_ sv, "%s]", PL_colors[1]); in Perl_regprop()
948 …Perl_sv_catpvf(aTHX_ sv, " (Leading UTF-8 bytes=%s", _byte_dump_string((U8 *) ((struct regnode_any… in Perl_regprop()
963 Perl_sv_catpvf(aTHX_ sv, " (First UTF-8 byte=%02X", lowest); in Perl_regprop()
965 Perl_sv_catpvf(aTHX_ sv, "-%02X", highest); in Perl_regprop()
967 Perl_sv_catpvf(aTHX_ sv, ")"); in Perl_regprop()
976 Perl_sv_catpvf(aTHX_ sv, "[%s", PL_colors[0]); in Perl_regprop()
982 Perl_sv_catpvf(aTHX_ sv, "%s]", PL_colors[1]); in Perl_regprop()
988 Perl_sv_catpvf(aTHX_ sv, "[%s", PL_colors[0]); in Perl_regprop()
993 Perl_sv_catpvf(aTHX_ sv, "%s]", PL_colors[1]); in Perl_regprop()
1009 Perl_sv_catpvf(aTHX_ sv, "[illegal type=%d])", index); in Perl_regprop()
1025 Perl_sv_catpvf(aTHX_ sv, "[%d", -(FLAGS(o))); in Perl_regprop()
1027 Perl_sv_catpvf(aTHX_ sv, "..-%d", FLAGS(o) - NEXT_OFF(o)); in Perl_regprop()
1029 Perl_sv_catpvf(aTHX_ sv, "]"); in Perl_regprop()
1032 Perl_sv_catpvf(aTHX_ sv, " /%s/", FLAGS(o) ? "\\A" : "^"); in Perl_regprop()
1035 Perl_sv_catpvf(aTHX_ sv, " optimistic"); in Perl_regprop()
1041 Perl_sv_catpvf(aTHX_ sv, ":%" SVf, in Perl_regprop()
1064 Perl_sv_catpvf(aTHX_ sv, "\\x{%04" UVXf "}", c); in S_put_code_point()
1076 Perl_sv_catpvf(aTHX_ sv, "%s", cntrl_to_mnemonic((U8) c)); in S_put_code_point()
1079 Perl_sv_catpvf(aTHX_ sv, "\\x%02X", (U8) c); in S_put_code_point()
1259 Perl_sv_catpvf(aTHX_ sv, format, start, this_end); in S_put_range()
1355 Perl_sv_catpvf(aTHX_ output, "%s{utf8}%s", PL_colors[1], PL_colors[0]); in S_put_charclass_bitmap_innards_common()
1360 Perl_sv_catpvf(aTHX_ output, "%s{not utf8}%s", PL_colors[1], PL_colors[0]); in S_put_charclass_bitmap_innards_common()
1365 Perl_sv_catpvf(aTHX_ output, "%s{utf8 locale}%s", PL_colors[1], PL_colors[0]); in S_put_charclass_bitmap_innards_common()