Lines Matching refs:label
369 my $label = shift;
373 $cxstack[$cxix]->{label} ne $label)) {
463 sub label {
465 # XXX Preserve original label name for "real" labels?
471 push_runtime(sprintf(" %s:", label($op)));
534 runtime(sprintf("if (!$bool) {XPUSHs(&PL_sv_no); goto %s;}", label($next)));
537 runtime(sprintf("if (!%s) goto %s;", top_bool(), label($next)),
553 $bool, label($next)));
556 runtime(sprintf("if (%s) goto %s;", top_bool(), label($next)),
570 runtime(sprintf("if (!$bool) goto %s;", label($false)));
1123 runtime( sprintf("goto %s;",label($op->first)));
1208 runtime(sprintf("PP_ENTERTRY(%s,%s);", $jmpbuf, label($op->other->next)));
1234 label($nexttonext)));
1254 label($nexttonext)));
1272 runtime(sprintf("if (PL_op == ($sym)->op_next) goto %s;", label($next)));
1311 $op->targ, label($op->other));
1343 sprintf("\tgoto %s;", label($op->first->other)));
1369 "label" => $curcop->[0]->label,
1413 runtime(sprintf("goto %s;", label($nextop)));
1437 runtime(sprintf("goto %s;", label($redoop)));
1466 runtime(sprintf("goto %s;", label($lastop)));
1479 $sym, label($replroot));
1500 $pmopsym, label($pmop->pmreplstart));
1604 runtime(sprintf("goto %s;", label($op)));