Home
last modified time | relevance | path

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

123

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Dembed.h2591 #define amagic_call(a,b,c,d) Perl_amagic_call(aTHX_ a,b,c,d)
2592 #define Gv_AMupdate(a) Perl_Gv_AMupdate(aTHX_ a)
2593 #define gv_handler(a,b) Perl_gv_handler(aTHX_ a,b)
2595 #define append_elem(a,b,c) Perl_append_elem(aTHX_ a,b,c)
2598 #define append_list(a,b,c) Perl_append_list(aTHX_ a,b,c)
2601 #define apply(a,b,c) Perl_apply(aTHX_ a,b,c)
2603 #define apply_attrs_string(a,b,c,d) Perl_apply_attrs_string(aTHX_ a,b,c,d)
2604 #define avhv_delete_ent(a,b,c,d) Perl_avhv_delete_ent(aTHX_ a,b,c,d)
2605 #define avhv_exists_ent(a,b,c) Perl_avhv_exists_ent(aTHX_ a,b,c)
2606 #define avhv_fetch_ent(a,b,c,d) Perl_avhv_fetch_ent(aTHX_ a,b,c,d)
[all …]
H A Ddump.c77 Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nSUB %s = ", SvPVX(sv)); in Perl_dump_sub()
79 Perl_dump_indent(aTHX_ 0, Perl_debug_log, "(xsub 0x%"UVxf" %d)\n", in Perl_dump_sub()
85 Perl_dump_indent(aTHX_ 0, Perl_debug_log, "<undef>\n"); in Perl_dump_sub()
94 Perl_dump_indent(aTHX_ 0, Perl_debug_log, "\nFORMAT %s = ", SvPVX(sv)); in Perl_dump_form()
98 Perl_dump_indent(aTHX_ 0, Perl_debug_log, "<undef>\n"); in Perl_dump_form()
130 Perl_sv_catpvf(aTHX_ dsv, "\\%03o", (U8)*pv); in Perl_pv_display()
132 Perl_sv_catpvf(aTHX_ dsv, "\\%o", (U8)*pv); in Perl_pv_display()
214 Perl_sv_catpvf(aTHX_ t, "<%"UVuf"%s>", (UV)SvREFCNT(sv), in Perl_sv_peek()
271 Perl_sv_catpvf(aTHX_ t, "CV(%s)", GvNAME(CvGV(sv))); in Perl_sv_peek()
296 Perl_sv_catpvf(aTHX_ t, "[%s]", pv_display(tmp, SvPVX(sv)-SvIVX(sv), SvIVX(sv), 0, 127)); in Perl_sv_peek()
[all …]
H A Dperlio.c222 Perl_croak(aTHX_ "Cannot apply \"%s\" in non-PerlIO perl", names);
290 Perl_croak(aTHX_ "More than one argument to open");
319 Perl_croak(aTHX_ "Usage class->find(name[,load])");
479 Perl_sv_catpvf(aTHX_ sv, "%s:%" IVdf " ", s,
481 Perl_sv_vcatpvf(aTHX_ sv, fmt, &ap);
536 return (*tab->Dup)(aTHX_ PerlIO_allocate(aTHX), f, param, flags);
538 return PerlIOBase_dup(aTHX_ PerlIO_allocate(aTHX), f, param, flags);
553 PerlIO_cleantable(aTHX_(PerlIO **) & (table[0]));
621 arg = PerlIO_sv_dup(aTHX_ proto->array[i].arg,param);
622 PerlIO_list_push(aTHX_ list, proto->array[i].funcs, arg);
[all …]
H A Duniversal.c52 Perl_croak(aTHX_ "Recursive inheritance detected in package '%s'", in S_isa_lookup()
64 DEBUG_o( Perl_deb(aTHX_ "Using cached ISA %s for package %s\n", in S_isa_lookup()
70 DEBUG_o( Perl_deb(aTHX_ "ISA Cache in package %s is stale\n", in S_isa_lookup()
104 Perl_warner(aTHX_ packWARN(WARN_SYNTAX), in S_isa_lookup()
224 Perl_croak(aTHX_ "Usage: UNIVERSAL::isa(reference, kind)"); in XS()
251 Perl_croak(aTHX_ "Usage: UNIVERSAL::can(object-ref, method)"); in XS()
296 Perl_croak(aTHX_ "Cannot find version of an unblessed reference"); in XS()
322 Perl_croak(aTHX_ in XS()
328 Perl_croak(aTHX_ in XS()
345 Perl_croak(aTHX_ "%s v%"VDf" required--" in XS()
[all …]
H A Dperl.c567 PL_exitlist[PL_exitlistlen].fn(aTHX_ PL_exitlist[PL_exitlistlen].ptr); in perl_destruct()
854 Perl_warner(aTHX_ packWARN(WARN_INTERNAL), in perl_destruct()
858 Perl_warner(aTHX_ packWARN(WARN_INTERNAL), in perl_destruct()
862 Perl_warner(aTHX_ packWARN(WARN_INTERNAL),"Unbalanced tmps: %ld more allocs than frees\n", in perl_destruct()
865 Perl_warner(aTHX_ packWARN(WARN_INTERNAL),"Unbalanced context: %ld more PUSHes than POPs\n", in perl_destruct()
906 Perl_warner(aTHX_ packWARN(WARN_INTERNAL), in perl_destruct()
950 Perl_warner(aTHX_ packWARN(WARN_INTERNAL),"Scalars leaked: %ld\n", (long)PL_sv_count); in perl_destruct()
1122 Perl_croak(aTHX_ "suidperl is no longer needed since the kernel can now execute\n\ in perl_parse()
1263 CALLPROTECT(aTHX_ pcur_env, &ret, MEMBER_TO_FPTR(S_vparse_body), env, xsinit); in perl_parse()
1408 Perl_croak(aTHX_ "No code specified for -e"); in S_parse_body()
[all …]
H A Dutf8.c62 Perl_warner(aTHX_ packWARN(WARN_UTF8), "UTF-16 surrogate 0x%04"UVxf, uv); in Perl_uvuni_to_utf8_flags()
74 Perl_warner(aTHX_ packWARN(WARN_UTF8), in Perl_uvuni_to_utf8_flags()
165 return Perl_uvuni_to_utf8_flags(aTHX_ d, uv, 0); in Perl_uvuni_to_utf8()
474 Perl_sv_catpvf(aTHX_ sv, "(empty string)"); in Perl_utf8n_to_uvuni()
477 …Perl_sv_catpvf(aTHX_ sv, "(unexpected continuation byte 0x%02"UVxf", with no preceding start byte)… in Perl_utf8n_to_uvuni()
481 …Perl_sv_catpvf(aTHX_ sv, "(unexpected non-continuation byte 0x%02"UVxf", immediately after start b… in Perl_utf8n_to_uvuni()
484 …Perl_sv_catpvf(aTHX_ sv, "(unexpected non-continuation byte 0x%02"UVxf", %d byte%s after start byt… in Perl_utf8n_to_uvuni()
489 Perl_sv_catpvf(aTHX_ sv, "(byte 0x%02"UVxf")", uv); in Perl_utf8n_to_uvuni()
492 Perl_sv_catpvf(aTHX_ sv, "(%d byte%s, need %d, after start byte 0x%02"UVxf")", in Perl_utf8n_to_uvuni()
497 Perl_sv_catpvf(aTHX_ sv, "(overflow at 0x%"UVxf", byte 0x%02x, after start byte 0x%02"UVxf")", in Perl_utf8n_to_uvuni()
[all …]
H A Dpp_sys.c243 Perl_croak(aTHX_ "switching effective uid is not implemented"); in S_emulate_eaccess()
252 Perl_croak(aTHX_ "entering effective uid failed"); in S_emulate_eaccess()
256 Perl_croak(aTHX_ "switching effective gid is not implemented"); in S_emulate_eaccess()
265 Perl_croak(aTHX_ "entering effective gid failed"); in S_emulate_eaccess()
277 Perl_croak(aTHX_ "leaving effective uid failed"); in S_emulate_eaccess()
286 Perl_croak(aTHX_ "leaving effective gid failed"); in S_emulate_eaccess()
303 Perl_croak(aTHX_ "switching effective uid is not implemented"); in S_emulate_eaccess()
330 PerlIO_apply_layers(aTHX_ fp,mode,type); in PP()
449 Perl_warn(aTHX_ "%"SVf, tmpsv); in PP()
498 DIE(aTHX_ Nullformat); in PP()
[all …]
H A Ddoio.c164 Perl_croak(aTHX_ "panic: sysopen with multiple args"); in Perl_do_openn()
200 fp = PerlIO_openn(aTHX_ type, mode, -1, rawmode, rawperm, NULL, num_svs, svp); in Perl_do_openn()
226 Perl_warner(aTHX_ packWARN(WARN_IO), in Perl_do_openn()
254 Perl_croak(aTHX_ "Unknown open() mode '%.*s'", (int)olen, oname); in Perl_do_openn()
267 Perl_warner(aTHX_ packWARN(WARN_PIPE), "Missing command in piped open"); in Perl_do_openn()
277 Perl_warner(aTHX_ packWARN(WARN_PIPE), "Can't open bidirectional pipe"); in Perl_do_openn()
293 if (PerlIO_apply_layers(aTHX_ fp, mode, type) != 0) { in Perl_do_openn()
331 Perl_croak(aTHX_ "More than one argument to '%c&' open",IoTYPE(io)); in Perl_do_openn()
395 fp = PerlIO_fdupopen(aTHX_ that_fp, NULL, dodup); in Perl_do_openn()
402 if (!(fp = PerlIO_openn(aTHX_ type,mode,fd,0,0,NULL,num_svs,svp))) { in Perl_do_openn()
[all …]
H A Dxsutils.c114 Perl_croak(aTHX_ "A variable may not be unshared"); in modify_SV_attributes()
152 Perl_croak(aTHX_ "Usage: attributes::bootstrap $module"); in XS()
170 Perl_croak(aTHX_ in XS()
179 XSRETURN(modify_SV_attributes(aTHX_ sv, &ST(0), &ST(1), items-1)); in XS()
192 Perl_croak(aTHX_ in XS()
239 Perl_croak(aTHX_ in XS()
297 Perl_croak(aTHX_ in XS()
326 Perl_croak(aTHX_ in XS()
H A Dpp_hot.c177 Perl_warner(aTHX_ packWARN(WARN_Y2K), "Possible Y2K bug: %s", in PP()
305 DIE(aTHX_ PL_no_modify); in PP()
649 DIE(aTHX_ "Not an ARRAY reference"); in PP()
656 Perl_croak(aTHX_ "Can't return array to lvalue scalar context"); in PP()
662 Perl_croak(aTHX_ PL_no_localize_ref); in PP()
673 Perl_croak(aTHX_ "Can't return array to lvalue" in PP()
694 DIE(aTHX_ PL_no_usym, "an ARRAY"); in PP()
717 DIE(aTHX_ PL_no_symref, sym, "an ARRAY"); in PP()
733 Perl_croak(aTHX_ "Can't return array to lvalue" in PP()
780 DIE(aTHX_ "Not a HASH reference"); in PP()
[all …]
H A Dpp_sort.c191 sense = (cmp(aTHX_ *b, *(b+1)) > 0); in dynprep()
197 if ((cmp(aTHX_ *t, *p) > 0) != sense) break; in dynprep()
205 while (((cmp(aTHX_ *(p-1), *p) > 0) == sense) && in dynprep()
213 ((cmp(aTHX_ *(p-1), *p) > 0) == sense)) q = p; in dynprep()
223 ((cmp(aTHX_ *(p-1), *p) > 0) == sense)) in dynprep()
356 stackp->runs = dynprep(aTHX_ base, aux, nmemb, cmp); in S_mergesortsv()
401 if (cmp(aTHX_ *f1, *f2) <= 0) { in S_mergesortsv()
420 (cmp(aTHX_ *q, *p) <= sense)) in S_mergesortsv()
424 } else if (cmp(aTHX_ *q, *p) <= sense) { in S_mergesortsv()
441 if (cmp(aTHX_ *q, *p) <= sense) { in S_mergesortsv()
[all …]
H A Dtoke.c95 # define yylex() Perl_yylex_r(aTHX_ yylval_pointer[yyactlevel],yychar_pointer[yyactlevel])
193 Perl_sv_catpvf(aTHX_ report, ":line %d:%"IVdf":", CopLINE(PL_curcop), in S_tokereport()
252 yywarn(Perl_form(aTHX_ "%s found where operator expected", what)); in S_no_op()
255 Perl_warner(aTHX_ packWARN(WARN_SYNTAX), in S_no_op()
261 Perl_warner(aTHX_ packWARN(WARN_SYNTAX), in S_no_op()
267 Perl_warner(aTHX_ packWARN(WARN_SYNTAX), in S_no_op()
312 Perl_croak(aTHX_ "Can't find string terminator %c%s%c anywhere before EOF",q,s,q); in S_missingterm()
323 Perl_warner(aTHX_ packWARN(WARN_DEPRECATED), "Use of %s is deprecated", s); in Perl_deprecate()
338 Perl_warner(aTHX_ packWARN2(WARN_DEPRECATED, WARN_SYNTAX), in Perl_deprecate_old()
683 Perl_warner(aTHX_ packWARN(WARN_AMBIGUOUS), in S_check_uni()
[all …]
H A Dgv.c32 Perl_croak(aTHX_ "Bad symbol for array"); in Perl_gv_AVadd()
42 Perl_croak(aTHX_ "Bad symbol for hash"); in Perl_gv_HVadd()
52 Perl_croak(aTHX_ "Bad symbol for filehandle"); in Perl_gv_IOadd()
56 Perl_croak(aTHX_ "Bad symbol for filehandle (GV is unique)"); in Perl_gv_IOadd()
205 Perl_croak(aTHX_ "Recursive inheritance detected while looking for method '%s' in package '%s'", in Perl_gv_fetchmeth()
208 DEBUG_o( Perl_deb(aTHX_ "Looking for method %s in package %s\n",name,HvNAME(stash)) ); in Perl_gv_fetchmeth()
247 Perl_croak(aTHX_ "Cannot create %s::ISA", HvNAME(stash)); in Perl_gv_fetchmeth()
265 Perl_warner(aTHX_ packWARN(WARN_MISC), "Can't locate package %"SVf" for @%s::ISA", in Perl_gv_fetchmeth()
423 SV *tmpstr = sv_2mortal(Perl_newSVpvf(aTHX_ "%s::SUPER", in Perl_gv_fetchmethod_autoload()
427 DEBUG_o( Perl_deb(aTHX_ "Treating %s as %s::%s\n", in Perl_gv_fetchmethod_autoload()
[all …]
H A Dpp_ctl.c116 PM_SETRE(pm, CALLREGCOMP(aTHX_ t, t + len, pm)); in PP()
175 DIE(aTHX_ "Substitution loop"); in PP()
182 if (cx->sb_once || !CALLREGEXEC(aTHX_ rx, s, cx->sb_strend, orig, in PP()
446 Perl_warner(aTHX_ packWARN(WARN_SYNTAX), "Not enough format arguments"); in PP()
773 DIE(aTHX_ "Runaway format"); in PP()
859 DIE(aTHX_ "panic: mapstart"); /* uses grepstart */ in PP()
1043 DIE(aTHX_ "Range iterator outside integer range"); in PP()
1130 Perl_warner(aTHX_ packWARN(WARN_EXITING), "Exiting %s via %s", in S_dopoptolabel()
1138 DEBUG_l(Perl_deb(aTHX_ "(Skipping label #%ld %s)\n", in S_dopoptolabel()
1142 DEBUG_l( Perl_deb(aTHX_ "(Found label #%ld %s)\n", (long)i, label)); in S_dopoptolabel()
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/via/
H A Dvia.xs48 Perl_warn(aTHX_ "Lookup %s::%s => %p", HvNAME(s->stash), method, gv); in PerlIOVia_fetchmethod()
72 (*save) ? *save : PerlIOVia_fetchmethod(aTHX_ s, method, save); in PerlIOVia_method()
124 IV code = PerlIOBase_pushed(aTHX_ f, mode, Nullsv, tab); in PerlIOVia_pushed()
129 Perl_warner(aTHX_ packWARN(WARN_LAYER), in PerlIOVia_pushed()
141 newSVpvn(Perl_form(aTHX_ "PerlIO::via::%s", pkg), in PerlIOVia_pushed()
155 result = PerlIOVia_method(aTHX_ f, MYMethod(PUSHED), G_SCALAR, in PerlIOVia_pushed()
170 result = PerlIOVia_method(aTHX_ f, MYMethod(UTF8), G_SCALAR, modesv, Nullsv); in PerlIOVia_pushed()
177 if (PerlIOVia_fetchmethod(aTHX_ s, MYMethod(FILL)) == in PerlIOVia_pushed()
185 Perl_warner(aTHX_ packWARN(WARN_LAYER), in PerlIOVia_pushed()
209 f = PerlIO_push(aTHX_ PerlIO_allocate(aTHX), self, mode, in PerlIOVia_open()
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Opcode/
H A DOpcode.xs59 put_op_bitspec(aTHX_ ":none",0, sv_2mortal(new_opset(aTHX_ Nullsv))); in op_names_init()
61 opset_all = new_opset(aTHX_ Nullsv); in op_names_init()
68 put_op_bitspec(aTHX_ ":all",0, opset_all); /* don't mortalise */ in op_names_init()
83 verify_opset(aTHX_ mask,1); in put_op_bitspec()
132 verify_opset(aTHX_ old_opset,1); in new_opset()
207 verify_opset(aTHX_ opset,1); /* croaks on bad opset */ in opmask_add()
243 opmask_add(aTHX_ opset); in opmask_addlocal()
295 opmask_addlocal(aTHX_ mask, op_mask_buf);
330 RETVAL = verify_opset(aTHX_ opset,fatal);
343 opset = sv_2mortal(new_opset(aTHX_ opset)); /* verify and clone opset */ in invert_opset()
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/encoding/
H A Dencoding.xs87 IV code = PerlIOBuf_pushed(aTHX_ f, mode, Nullsv,tab); in PerlIOEncode_pushed()
101 Perl_die(aTHX_ "Encode::find_encoding did not return a value"); in PerlIOEncode_pushed()
110 Perl_warner(aTHX_ packWARN(WARN_IO), "Cannot find encoding \"%" SVf "\"", in PerlIOEncode_pushed()
122 Perl_warner(aTHX_ packWARN(WARN_IO), "\"%" SVf "\" does not support renew method", in PerlIOEncode_pushed()
135 Perl_warner(aTHX_ packWARN(WARN_IO), "\"%" SVf "\" does not support needs_lines", in PerlIOEncode_pushed()
197 Perl_warn(aTHX_ " ptr %p(%p)%p", e->base.buf, e->base.ptr, in PerlIOEncode_get_base()
210 Perl_warn(aTHX_ " ptr %p(%p)%p", e->base.buf, e->base.ptr, in PerlIOEncode_get_base()
233 n = PerlIO_push(aTHX_ n, &PerlIO_perlio, PerlIO_modestr(f,mode), Nullsv); in PerlIOEncode_fill()
235 Perl_die(aTHX_ "panic: cannot push :perlio for %p",f); in PerlIOEncode_fill()
261 (void) PerlIOEncode_get_base(aTHX_ f); in PerlIOEncode_fill()
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/Unicode/
H A DUnicode.xs111 bom = enc_unpack(aTHX_ &s,e,size,endian);
133 UV ord = enc_unpack(aTHX_ &s,e,size,endian);
144 enc_unpack(aTHX_ &s,e,size,endian);
160 lo = enc_unpack(aTHX_ &s,e,size,endian);
176 Perl_warner(aTHX_ packWARN(WARN_UTF8),"%"SVf":Partial character",
211 enc_pack(aTHX_ result,size,endian,BOM_BE);
230 enc_pack(aTHX_ result,size,endian,FBCHAR);
234 enc_pack(aTHX_ result,size,endian,hi);
235 enc_pack(aTHX_ result,size,endian,lo);
240 enc_pack(aTHX_ result,size,endian,FBCHAR);
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/DProf/
H A DDProf.xs38 # define DBG_SUB_NOTIFY(A) dprof_dbg_sub_notify(aTHX_ A)
41 CV *cv = db_get_cv(aTHX_ Sub); in dprof_dbg_sub_notify()
69 # define Times(ptr) (dprof_times(aTHX_ ptr))
79 # define Times(ptr) (dprof_times(aTHX_ ptr))
280 prof_dumpt(aTHX_ tms_utime, tms_stime, realtime); in prof_dump_until()
287 prof_dumps(aTHX_ id, pname, gname); in prof_dump_until()
291 prof_dumpa(aTHX_ ptype, id); in prof_dump_until()
357 prof_dumpt(aTHX_ udelta, sdelta, rdelta); in prof_mark()
372 cv = db_get_cv(aTHX_ Sub); in prof_mark()
379 set_cv_key(aTHX_ cv, pname, gname); in prof_mark()
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/
H A DStorable.xs1463 clean_retrieve_context(aTHX_ cxt); in clean_context()
1465 clean_store_context(aTHX_ cxt); in clean_context()
1675 return pkg_fetchmeth(aTHX_ cache, pkg, method); /* Fetch and cache */ in pkg_can()
1852 return store(aTHX_ cxt, sv); in store_ref()
2101 if ((ret = store(aTHX_ cxt, *sav))) /* Extra () for -Wall, grr... */ in store_array()
2287 if ((ret = store(aTHX_ cxt, val))) /* Extra () for -Wall, grr... */ in store_hash()
2406 if ((ret = store(aTHX_ cxt, val))) /* Extra () for -Wall, grr... */ in store_hash()
2453 store(aTHX_ cxt, key_sv); in store_hash()
2485 return store_other(aTHX_ cxt, (SV*)cv); in store_code()
2499 return store_other(aTHX_ cxt, (SV*)cv); in store_code()
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Time/HiRes/
H A Dtypemap63 Perl_croak(aTHX_ \"$var is not a reference\")
68 Perl_croak(aTHX_ \"$var is not an array reference\")
73 Perl_croak(aTHX_ \"$var is not a hash reference\")
78 Perl_croak(aTHX_ \"$var is not a code reference\")
121 Perl_croak(aTHX_ \"$var is not a reference\")
128 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
135 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
142 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
150 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
157 Perl_croak(aTHX_ \"$var is not a reference\")
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A Dtypemap64 Perl_croak(aTHX_ \"$var is not a reference\")
69 Perl_croak(aTHX_ \"$var is not an array reference\")
74 Perl_croak(aTHX_ \"$var is not a hash reference\")
79 Perl_croak(aTHX_ \"$var is not a code reference\")
122 Perl_croak(aTHX_ \"$var is not a reference\")
129 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
136 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
143 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
151 Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
158 Perl_croak(aTHX_ \"$var is not a reference\")
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/DynaLoader/
H A Ddl_dlopen.xs188 Perl_warn(aTHX_ "Can't make loaded symbols global on this platform while loading %s",filename);
195 SaveError(aTHX_ "%s",dlerror()) ;
208 SaveError(aTHX_ "%s", dlerror()) ;
232 SaveError(aTHX_ "%s",dlerror()) ;
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/
H A DEncode.xs24 Perl_croak(aTHX_ "panic_unimplemented"); \
114 Perl_warn(aTHX_ in encode_method()
133 Perl_croak(aTHX_ "Destination couldn't be grown."); in encode_method()
149 Perl_croak(aTHX_ ERR_ENCODE_NOMAP, in encode_method()
154 Perl_warner(aTHX_ packWARN(WARN_UTF8), in encode_method()
188 Perl_croak(aTHX_ ERR_DECODE_NOMAP, in encode_method()
194 aTHX_ packWARN(WARN_UTF8), in encode_method()
222 Perl_croak(aTHX_ "Unexpected code %d converting %s %s", in encode_method()
243 Perl_warn(aTHX_ in encode_method()
317 Perl_croak(aTHX_ ERR_DECODE_NOMAP, "utf8", (UV)*s);
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/B/
H A DB.xs209 return opclassnames[cc_opclass(aTHX_ o)]; in cc_opclassname()
402 sv_setiv(newSVrv(opsv, cc_opclassname(aTHX_ kid)), PTR2IV(kid)); in walkoptree()
403 walkoptree(aTHX_ opsv, method); in walkoptree()
406 if (o && (cc_opclass(aTHX_ o) == OPc_PMOP) in walkoptree()
410 walkoptree(aTHX_ opsv, method); in walkoptree()
423 sv_setiv(newSVrv(opsv, cc_opclassname(aTHX_ (OP*)o)), PTR2IV(o)); in oplist()
427 SP = oplist(aTHX_ cPMOPo->op_pmreplstart, SP); in oplist()
434 SP = oplist(aTHX_ kid->op_next, SP); in oplist()
440 SP = oplist(aTHX_ cLOGOPo->op_other, SP); in oplist()
443 SP = oplist(aTHX_ cLOOPo->op_lastop, SP); in oplist()
[all …]

123