Searched refs:labelsv (Results 1 – 3 of 3) sorted by relevance
| /openbsd/src/gnu/usr.bin/perl/ |
| D | hv.c | 4108 SV *labelsv; in Perl_cop_store_label() local
4114 labelsv = newSVpvn_flags(label, len, SVs_TEMP); in Perl_cop_store_label()
4116 SvUTF8_on(labelsv); in Perl_cop_store_label()
4118 = refcounted_he_new_pvs(cop->cop_hints_hash, ":", labelsv, 0); in Perl_cop_store_label()
|
| D | op.c | 5228 SV *labelsv = newSVpvn_flags(label_pv, label_len, label_flags); in walk_ops_find_labels() local
5229 SAVEFREESV(labelsv); in walk_ops_find_labels()
5231 sv_inc(HeVAL(hv_fetch_ent(gotolabels, labelsv, TRUE, 0))); in walk_ops_find_labels()
5249 SV *labelsv = NULL; in walk_ops_forbid() local
5309 labelsv = newSVpvn(label_pv, label_len); in walk_ops_forbid()
5311 SvUTF8_on(labelsv); in walk_ops_forbid()
5312 SAVEFREESV(labelsv); in walk_ops_forbid()
5314 sv_inc(HeVAL(hv_fetch_ent(permittedloops, labelsv, TRUE, 0))); in walk_ops_forbid()
5344 if(is_loop && labelsv) { in walk_ops_forbid()
5345 HE *he = hv_fetch_ent(permittedloops, labelsv, FALSE, 0); in walk_ops_forbid()
[all …]
|
| D | toke.c | 13870 SV * const labelsv = cSVOPx(pl_yylval.opval)->op_sv; in Perl_parse_label() local
13874 return labelsv; in Perl_parse_label()
|