Home
last modified time | relevance | path

Searched refs:cop (Results 1 – 25 of 50) sorted by relevance

12

/openbsd-src/gnu/usr.bin/perl/ext/B/t/
H A Dpragma.t41 my $cop = find_op_cop( \&foo, qr/multiply/ );
42 isa_ok( $cop, 'B::COP', 'found pp_multiply opnode' );
44 my $rhe = $cop->hints_hash;
56 my $cop = find_op_cop( \&foo, qr/add/ );
57 isa_ok( $cop, 'B::COP', 'found pp_add opnode' );
59 my $rhe = $cop->hints_hash;
71 my $cop = find_op_cop( \&foo, qr/subtract/ );
72 isa_ok( $cop, 'B::COP', 'found pp_subtract opnode' );
74 my $rhe = $cop->hints_hash;
H A Db.t350 my $cop = B::svref_2object($sub1)->ROOT->first->first;
352 is $cop->stash->object_2svref, \%main::, 'COP->stash';
353 is $cop->stashpv, 'main', 'COP->stashpv';
359 like $cop->stashoff, qr/^[1-9]\d*\z/a, 'COP->stashoff';
360 isnt $cop->stashoff, $bobby->stashoff,
/openbsd-src/gnu/usr.bin/perl/
H A Dcop.h1 /* cop.h
12 * At run time, PL_curcop is set to point to the most recently executed cop,
206 These look up the entry in the cop hints hash C<cophh> with the key specified by
254 These look up the hint entry in the cop C<cop> with the key specified by
295 key/value pairs in the cop hints hash C<cophh>. C<flags> is currently
307 Make and return a complete copy of the cop hints hash C<cophh>.
317 Discard the cop hints hash C<cophh>, freeing all resources associated
328 Generate and return a fresh cop hints hash containing no entries.
341 These store a value, associated with a key, in the cop hint
433 struct cop { global() struct
437 cop_linecop global() argument
440 cop_stashoffcop global() argument
442 cop_filecop global() argument
444 cop_stashcop global() argument
445 cop_filegvcop global() argument
447 cop_hintscop global() argument
448 cop_seqcop global() argument
449 cop_warningscop global() argument
458 cop_hints_hashcop global() argument
464 cop_featurescop global() argument
715 cop_hints_fetch_pvn(cop,key,keylen,hash,flags) global() argument
718 cop_hints_fetch_pvs(cop,key,flags) global() argument
721 cop_hints_fetch_pv(cop,key,hash,flags) global() argument
724 cop_hints_fetch_sv(cop,key,hash,flags) global() argument
759 cop_hints_exists_pvn(cop,key,keylen,hash,flags) global() argument
762 cop_hints_exists_pvs(cop,key,flags) global() argument
765 cop_hints_exists_pv(cop,key,hash,flags) global() argument
768 cop_hints_exists_sv(cop,key,hash,flags) global() argument
781 cop_hints_2hv(cop,flags) global() argument
[all...]
H A Dcv.h52 # define CvFILE_set_from_cop(sv, cop) \ argument
53 (CvFILE(sv) = savepv(CopFILE(cop)), CvDYNFILE_on(sv))
55 # define CvFILE_set_from_cop(sv, cop) \ argument
56 (CvFILE(sv) = CopFILE(cop), CvDYNFILE_off(sv))
H A Dpp_sort.c1172 COP * const cop = PL_curcop; in S_sv_ncmp()
1190 PL_curcop = cop; in S_sv_i_ncmp()
1212 COP * const cop = PL_curcop;
1255 PL_curcop = cop; in S_amagic_i_ncmp()
1063 COP * const cop = PL_curcop; S_sortcv() local
1095 COP * const cop = PL_curcop; S_sortcv_stacked() local
H A Dop.c1357 S_cop_free(pTHX_ COP* cop) in S_cop_free()
1362 shouldn't be any code running that will trip over the bad cop address. in S_cop_free()
1365 if (cop->op_type == OP_DBSTATE && PL_phase != PERL_PHASE_DESTRUCT) { in S_cop_free()
1370 AV *av = CopFILEAVn(cop); in S_cop_free()
1372 SV * const * const svp = av_fetch(av, CopLINE(cop), FALSE); in S_cop_free()
1373 if (svp && *svp != &PL_sv_undef && SvIVX(*svp) == PTR2IV(cop) ) { in S_cop_free()
1378 CopFILE_free(cop);
1379 if (! specialWARN(cop->cop_warnings)) in S_forget_pmop()
1380 cop->cop_warnings = rcpv_free(cop in S_forget_pmop()
1347 S_cop_free(pTHX_ COP * cop) S_cop_free() argument
8489 COP *cop; Perl_newSTATEOP() local
[all...]
H A Dutil.c1518 Perl_closest_cop(pTHX_ const COP *cop, const OP *o, const OP *curop, in Perl_closest_cop()
1521 /* Look for curop starting from o. cop is the last COP we've seen. */ in Perl_closest_cop()
1530 return cop; in Perl_closest_cop()
1541 cop = (const COP *)kid; in Perl_closest_cop()
1545 new_cop = closest_cop(cop, kid, curop, opnext); in Perl_closest_cop()
1623 * PL_curcop, but it might be a cop that has been optimised away. We in Perl_mess_sv()
1624 * can try to find such a cop by searching through the optree starting in Perl_mess_sv()
1629 const COP *cop = in Perl_mess_sv()
1631 if (!cop) in Perl_mess_sv()
1632 cop in Perl_mess_sv()
1511 Perl_closest_cop(pTHX_ const COP * cop,const OP * o,const OP * curop,bool opnext) Perl_closest_cop() argument
1622 const COP *cop = Perl_mess_sv() local
[all...]
H A Dhv.c4045 Returns the label attached to a cop, and stores its length in bytes into in Perl_cop_fetch_label()
4060 Perl_cop_fetch_label(pTHX_ COP *const cop, STRLEN *len, U32 *flags) { in Perl_cop_fetch_label()
4061 struct refcounted_he *const chain = cop->cop_hints_hash; in Perl_cop_fetch_label()
4105 Perl_cop_store_label(pTHX_ COP *const cop, const char *label, STRLEN len,
4117 cop->cop_hints_hash in Perl_hv_assert()
4118 = refcounted_he_new_pvs(cop->cop_hints_hash, ":", labelsv, 0); in Perl_hv_assert()
4041 Perl_cop_fetch_label(pTHX_ COP * const cop,STRLEN * len,U32 * flags) Perl_cop_fetch_label() argument
4086 Perl_cop_store_label(pTHX_ COP * const cop,const char * label,STRLEN len,U32 flags) Perl_cop_store_label() argument
H A Dinline.h3548 /* ------------------ cop.h ------------------------------------------- */
4460 Perl_cop_file_avn(pTHX_ const COP *cop) {
4464 const char *file = CopFILE(cop);
3496 Perl_cop_file_avn(pTHX_ const COP * cop) Perl_cop_file_avn() argument
H A Dproto.h554 Perl_closest_cop(pTHX_ const COP *cop, const OP *o, const OP *curop, bool opnext)
557 assert(cop)
585 Perl_cop_fetch_label(pTHX_ COP * const cop, STRLEN *len, U32 *flags);
587 assert(cop)
590 Perl_cop_store_label(pTHX_ COP * const cop, const char *label, STRLEN len, U32 flags);
592 assert(cop); assert(label)
7360 S_cop_free(pTHX_ COP *cop);
7362 assert(cop)
10381 Perl_cop_file_avn(pTHX_ const COP *cop);
10383 assert(cop)
[all...]
/openbsd-src/gnu/llvm/llvm/lib/Target/ARM/
H A DARMInstrInfo.td5373 def CDP : ABI<0b1110, (outs), (ins p_imm:$cop, imm0_15:$opc1,
5375 NoItinerary, "cdp", "\t$cop, $opc1, $CRd, $CRn, $CRm, $opc2",
5376 [(int_arm_cdp timm:$cop, timm:$opc1, timm:$CRd, timm:$CRn,
5382 bits<4> cop;
5389 let Inst{11-8} = cop;
5397 def CDP2 : ABXI<0b1110, (outs), (ins p_imm:$cop, imm0_15:$opc1,
5399 NoItinerary, "cdp2\t$cop, $opc1, $CRd, $CRn, $CRm, $opc2",
5400 [(int_arm_cdp2 timm:$cop, timm:$opc1, timm:$CRd, timm:$CRn,
5407 bits<4> cop;
5414 let Inst{11-8} = cop;
[all …]
H A DARMInstrThumb2.td4313 (outs), (ins p_imm:$cop, c_imm:$CRd, addrmode5:$addr),
4314 asm, "\t$cop, $CRd, $addr", pattern, AddrMode5> {
4316 bits<4> cop;
4325 let Inst{11-8} = cop;
4330 (outs), (ins p_imm:$cop, c_imm:$CRd, addrmode5_pre:$addr),
4331 asm, "\t$cop, $CRd, $addr!", []> {
4333 bits<4> cop;
4342 let Inst{11-8} = cop;
4347 (outs), (ins p_imm:$cop, c_imm:$CRd, addr_offset_none:$addr,
4349 asm, "\t$cop, $CRd, $addr, $offset", []> {
[all …]
/openbsd-src/gnu/llvm/clang/lib/Sema/
H A DSemaPseudoObject.cpp1646 } else if (CompoundAssignOperator *cop in recreateSyntacticForm() local
1648 Expr *lhs = stripOpaqueValuesFromPseudoObjectRef(*this, cop->getLHS()); in recreateSyntacticForm()
1649 Expr *rhs = cast<OpaqueValueExpr>(cop->getRHS())->getSourceExpr(); in recreateSyntacticForm()
1651 Context, lhs, rhs, cop->getOpcode(), cop->getType(), in recreateSyntacticForm()
1652 cop->getValueKind(), cop->getObjectKind(), cop->getOperatorLoc(), in recreateSyntacticForm()
1653 CurFPFeatureOverrides(), cop->getComputationLHSType(), in recreateSyntacticForm()
1654 cop->getComputationResultType()); in recreateSyntacticForm()
/openbsd-src/gnu/usr.bin/perl/ext/B/
H A DB.xs190 make_warnings_object(pTHX_ const COP *const cop) in make_warnings_object() argument
192 const char *const warnings = cop->cop_warnings; in make_warnings_object()
219 make_cop_io_object(pTHX_ COP *cop) in make_cop_io_object() argument
223 Perl_emulate_cop_io(aTHX_ cop, value); in make_cop_io_object()
545 { STR_WITH_LEN("cop_seq"), U32p, STRUCT_OFFSET(struct cop, cop_seq), },/*17*/
546 { STR_WITH_LEN("line"), line_tp, STRUCT_OFFSET(struct cop, cop_line), },/*18*/
547 { STR_WITH_LEN("hints"), U32p, STRUCT_OFFSET(struct cop, cop_hints), },/*19*/
551 { STR_WITH_LEN("file"), char_pp, STRUCT_OFFSET(struct cop, cop_file), }, /*22*/
554 { STR_WITH_LEN("stashoff"),PADOFFSETp,STRUCT_OFFSET(struct cop,cop_stashoff),},/*25*/
557 { STR_WITH_LEN("filegv"), SVp, STRUCT_OFFSET(struct cop, cop_fileg
[all...]
/openbsd-src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/
H A Dapidoc.fnc76 Amd|HV *|cop_hints_2hv|const COP *cop|U32 flags
77 Amd|bool|cop_hints_exists_pv|const COP *cop|const char *key|U32 hash|U32 flags
78 Amd|bool|cop_hints_exists_pvn|const COP *cop|const char *keypv|STRLEN keylen|U32 hash|U32 flags
79 Amd|bool|cop_hints_exists_pvs|const COP *cop|"key"|U32 flags
80 Amd|bool|cop_hints_exists_sv|const COP *cop|SV *key|U32 hash|U32 flags
81 Amd|SV *|cop_hints_fetch_pv|const COP *cop|const char *key|U32 hash|U32 flags
82 Amd|SV *|cop_hints_fetch_pvn|const COP *cop|const char *keypv|STRLEN keylen|U32 hash|U32 flags
83 Amd|SV *|cop_hints_fetch_pvs|const COP *cop|"key"|U32 flags
84 Amd|SV *|cop_hints_fetch_sv|const COP *cop|SV *key|U32 hash|U32 flags
85 Amd|const char *|CopLABEL|COP *const cop
[all …]
/openbsd-src/gnu/llvm/llvm/lib/Target/Hexagon/
H A DHexagonBitTracker.cpp264 auto cop = [this, &Reg, &MI, &Inputs](unsigned N, in evaluate() local
752 return rr0(cop(2, W0/2).cat(cop(1, W0/2)), Outputs); in evaluate()
814 RegisterCell R2 = cop(2, W0); in evaluate()
815 RegisterCell R3 = cop(3, W0); in evaluate()
/openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/
H A DProxySubs.pm608 const COP *cop = cx ? cx->blk_oldcop : PL_curcop;
/openbsd-src/gnu/gcc/gcc/config/mips/
H A D24k.md200 ;; cop->next use : 3 cycles (Default)
201 ;; cop->l/s base : 4 cycles
/openbsd-src/gnu/usr.bin/perl/dist/Devel-PPPort/
H A DPPPort_pm.PL888 %include cop
/openbsd-src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/
H A Dcop182 ok($file =~ /cop/i);
/openbsd-src/gnu/usr.bin/gcc/gcc/config/mips/
H A Dmips.c2176 char cop = COPNUM_AS_CHAR_FROM_REGNUM (regno0); local
2178 if (cop == '0')
2182 retval[3] = cop;
2227 char cop = COPNUM_AS_CHAR_FROM_REGNUM (regno0); local
2229 if (cop == '0')
2233 retval[3] = cop;
2641 char cop = COPNUM_AS_CHAR_FROM_REGNUM (regno0); local
2643 if (cop == '0')
2647 retval[4] = cop;
2833 char cop = COPNUM_AS_CHAR_FROM_REGNUM (regno0); local
[all …]
/openbsd-src/gnu/usr.bin/binutils-2.17/opcodes/
H A Dsparc-opc.c1398 #define CONDFC(fop, cop, mask, flags) \ argument
1401 CBR(cop, F2(0, 7)|COND(mask), F2(~0, ~7)|COND(~(mask)), flags, v6notlet)
1403 #define CONDFCL(fop, cop, mask, flags) \ argument
1406 CBR(cop, F2(0, 7)|COND(mask), F2(~0, ~7)|COND(~(mask)), flags, v6)
/openbsd-src/gnu/usr.bin/binutils/opcodes/
H A Dsparc-opc.c1429 #define CONDFC(fop, cop, mask, flags) \ argument
1432 CBR(cop, F2(0, 7)|COND(mask), F2(~0, ~7)|COND(~(mask)), flags, v6notlet)
1434 #define CONDFCL(fop, cop, mask, flags) \ argument
1437 CBR(cop, F2(0, 7)|COND(mask), F2(~0, ~7)|COND(~(mask)), flags, v6)
/openbsd-src/gnu/usr.bin/perl/ext/XS-APItest/
H A DAPItest.xs3765 COP *cop;
3770 cop = &PL_compiling;
3771 Perl_cop_store_label(aTHX_ cop, "foo", 3, 0);
3772 label = Perl_cop_fetch_label(aTHX_ cop, &len, &utf8);
3777 Perl_cop_store_label(aTHX_ cop, "fo\xc3\xa4", 4, SVf_UTF8);
3778 label = Perl_cop_fetch_label(aTHX_ cop, &len, &utf8);
/openbsd-src/gnu/usr.bin/perl/regen/
H A Dopcodes16 # pvop/svop - " cop - ; methop - .

12