Home
last modified time | relevance | path

Searched refs:gv (Results 1 – 25 of 130) sorted by relevance

123456

/openbsd/src/gnu/usr.bin/perl/
Dgv.h26 #define GvXPVGV(gv) ((XPVGV*)SvANY(gv)) argument
30 # define GvGP(gv) \ argument
31 ((GP *)(*({GV *const _gvgp = (GV *) (gv); \
35 # define GvGP_set(gv,gp) \ argument
36 {GV *const _gvgp = (GV *) (gv); \
40 # define GvFLAGS(gv) \ argument
41 (*({GV *const _gvflags = (GV *) (gv); \
45 # define GvSTASH(gv) \ argument
46 (*({ GV * const _gvstash = (GV *) (gv); \
51 # define GvNAME_HEK(gv) \ argument
[all …]
Dgv.c58 Perl_gv_add_by_type(pTHX_ GV *gv, svtype type) in Perl_gv_add_by_type() argument
63 !gv in Perl_gv_add_by_type()
65 SvTYPE((const SV *)gv) != SVt_PVGV in Perl_gv_add_by_type()
66 && SvTYPE((const SV *)gv) != SVt_PVLV in Perl_gv_add_by_type()
86 where = (SV **)&GvHV(gv); in Perl_gv_add_by_type()
88 where = (SV **)&GvAV(gv); in Perl_gv_add_by_type()
90 where = (SV **)&GvIOp(gv); in Perl_gv_add_by_type()
92 where = &GvSV(gv); in Perl_gv_add_by_type()
99 && memEQs(GvNAME(gv), GvNAMELEN(gv), "ISA")) in Perl_gv_add_by_type()
101 sv_magic(*where, (SV *)gv, PERL_MAGIC_isa, NULL, 0); in Perl_gv_add_by_type()
[all …]
Dpp_sys.c374 GV *gv; in PP() local
377 gv = NULL; in PP()
380 gv = (GV*)*PL_stack_sp; in PP()
384 assert(!rpp_is_lone((SV*)gv)); in PP()
512 PL_last_in_gv = gv; in PP()
617 GV * const gv = gv_fetchmethod(stash, "PROPAGATE"); variable
618 if (gv) {
627 call_sv(MUTABLE_SV(GvCV(gv)),
824 GV * const gv = MUTABLE_GV(*++MARK); variable
826 if (!isGV(gv) && !(SvTYPE(gv) == SVt_PVLV && isGV_with_GP(gv)))
[all …]
Ddoio.c437 S_openn_setup(pTHX_ GV *gv, char *mode, PerlIO **saveifp, PerlIO **saveofp, in S_openn_setup() argument
440 IO * const io = GvIOn(gv); in S_openn_setup()
488 HEKfARG(GvENAME_HEK(gv)) in S_openn_setup()
499 Perl_do_openn(pTHX_ GV *gv, const char *oname, I32 len, int as_raw, in Perl_do_openn() argument
512 return do_open_raw(gv, oname, len, rawmode, rawperm, NULL); in Perl_do_openn()
514 return do_open6(gv, oname, len, supplied_fp, svp, num_svs); in Perl_do_openn()
518 Perl_do_open_raw(pTHX_ GV *gv, const char *oname, STRLEN len, in Perl_do_open_raw() argument
526 IO * const io = openn_setup(gv, mode, &saveifp, &saveofp, &savefd, &savetype); in Perl_do_open_raw()
582 return openn_cleanup(gv, io, fp, mode, oname, saveifp, saveofp, savefd, in Perl_do_open_raw()
587 Perl_do_open6(pTHX_ GV *gv, const char *oname, STRLEN len, in Perl_do_open6() argument
[all …]
Dmro_core.c237 GV* gv; in S_mro_get_linear_isa_dfs() local
277 av = (gvp && (gv = *gvp) && isGV_with_GP(gv)) ? GvAV(gv) : NULL; in S_mro_get_linear_isa_dfs()
758 const GV * const gv, U32 flags) in Perl_mro_package_moved() argument
792 !GvSTASH(gv) || !HvHasENAME(GvSTASH(gv)) || in Perl_mro_package_moved()
793 !(svp = hv_fetchhek(GvSTASH(gv), GvNAME_HEK(gv), 0)) || in Perl_mro_package_moved()
794 *svp != (SV *)gv in Perl_mro_package_moved()
797 assert(HvHasAUX(GvSTASH(gv))); in Perl_mro_package_moved()
798 assert(GvNAMELEN(gv)); in Perl_mro_package_moved()
799 assert(GvNAME(gv)[GvNAMELEN(gv) - 1] == ':'); in Perl_mro_package_moved()
800 assert(GvNAMELEN(gv) == 1 || GvNAME(gv)[GvNAMELEN(gv) - 2] == ':'); in Perl_mro_package_moved()
[all …]
Dmathoms.c409 Perl_gv_fullname3(pTHX_ SV *sv, const GV *gv, const char *prefix) in Perl_gv_fullname3() argument
413 gv_fullname4(sv, gv, prefix, TRUE); in Perl_gv_fullname3()
417 Perl_gv_efullname3(pTHX_ SV *sv, const GV *gv, const char *prefix) in Perl_gv_efullname3() argument
421 gv_efullname4(sv, gv, prefix, TRUE); in Perl_gv_efullname3()
450 Perl_hv_magic(pTHX_ HV *hv, GV *gv, int how) in Perl_hv_magic() argument
454 sv_magic(MUTABLE_SV(hv), MUTABLE_SV(gv), how, NULL, 0); in Perl_hv_magic()
458 Perl_do_open(pTHX_ GV *gv, const char *name, I32 len, int as_raw, in Perl_do_open() argument
463 return do_openn(gv, name, len, as_raw, rawmode, rawperm, in Perl_do_open()
722 Perl_gv_SVadd(pTHX_ GV *gv) in Perl_gv_SVadd() argument
724 return gv_SVadd(gv); in Perl_gv_SVadd()
[all …]
Dscope.c331 Perl_save_scalar(pTHX_ GV *gv) in Perl_save_scalar() argument
333 SV ** const sptr = &GvSVn(gv); in Perl_save_scalar()
342 save_pushptrptr(SvREFCNT_inc_simple(gv), SvREFCNT_inc(*sptr), SAVEt_SV); in Perl_save_scalar()
487 Perl_save_gp(pTHX_ GV *gv, I32 empty) in Perl_save_gp() argument
496 if (!isGV(gv)) { in Perl_save_gp()
497 assert(isGV_or_RVCV(gv)); in Perl_save_gp()
498 (void)CvGV(SvRV((SV *)gv)); /* CvGV does the upgrade */ in Perl_save_gp()
499 assert(isGV(gv)); in Perl_save_gp()
502 save_pushptrptr(SvREFCNT_inc(gv), GvGP(gv), SAVEt_GP); in Perl_save_gp()
505 GP *gp = Perl_newGP(aTHX_ gv); in Perl_save_gp()
[all …]
/openbsd/src/gnu/llvm/llvm/lib/Target/NVPTX/
DNVPTXUtilities.cpp80 static void cacheAnnotationFromMD(const Module *m, const GlobalValue *gv) { in cacheAnnotationFromMD() argument
95 if (entity != gv) in cacheAnnotationFromMD()
106 AC.Cache[m][gv] = std::move(tmp); in cacheAnnotationFromMD()
109 tmp1[gv] = std::move(tmp); in cacheAnnotationFromMD()
114 bool findOneNVVMAnnotation(const GlobalValue *gv, const std::string &prop, in findOneNVVMAnnotation() argument
118 const Module *m = gv->getParent(); in findOneNVVMAnnotation()
120 cacheAnnotationFromMD(m, gv); in findOneNVVMAnnotation()
121 else if (AC.Cache[m].find(gv) == AC.Cache[m].end()) in findOneNVVMAnnotation()
122 cacheAnnotationFromMD(m, gv); in findOneNVVMAnnotation()
123 if (AC.Cache[m][gv].find(prop) == AC.Cache[m][gv].end()) in findOneNVVMAnnotation()
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/B/B/
DXref.pm310 my $gv;
317 $gv = $op->gv;
318 $top = [$gv->STASH->NAME, '$', $gv->SAFENAME];
326 my $gv;
333 $gv = $op->gv;
334 if ($gv->FLAGS & SVf_ROK) { # sub ref
335 my $cv = $gv->RV;
339 $top = [$gv->STASH->NAME, '*', $gv->SAFENAME];
380 my $gv = shift;
381 my $cv = $gv->CV;
[all …]
/openbsd/src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/
Dgv30 __UNDEFINED__ GvSVn(gv) GvSV(gv)
31 __UNDEFINED__ isGV_with_GP(gv) isGV(gv)
35 __UNDEFINED__ gv_init_pvn(gv, stash, ptr, len, flags) gv_init(gv, stash, ptr, len, flags & GV_ADDMU…
42 GV* gv;
45 gv = gv_fetchpvs("Devel::PPPort::GvTest", GV_ADDMULTI, SVt_PVGV);
46 if (GvSVn(gv) != NULL)
56 GV* gv;
59 gv = gv_fetchpvs("Devel::PPPort::GvTest", GV_ADDMULTI, SVt_PVGV);
60 if (isGV_with_GP(gv))
110 GV *gv = *(GV**)hv_fetch(defstash, name, len, TRUE);
[all …]
Dcop37 __UNDEFINED__ CopFILEGV_set(c,gv) ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv))
149 const GV *gv;
158 gv = CvGV(cx->blk_sub.cv);
159 ST(1) = isGV(gv) ? sv_2mortal(newSVpv(GvNAME(gv), 0)) : &PL_sv_undef;
163 gv = CvGV(dbcx->blk_sub.cv);
164 ST(3) = isGV(gv) ? sv_2mortal(newSVpv(GvNAME(gv), 0)) : &PL_sv_undef;
/openbsd/src/gnu/usr.bin/perl/t/uni/
Dstash.t134 is $gv->STASH->NAME, '__ANON__',
162 my $gv = $cv->GV;
163 ok($gv->isa(q/B::GV/), "orphaned CV has valid GV");
164 is($gv->NAME, '__ANON__', "orphaned CV has anon GV");
178 my ($cv,$gv);
180 $gv = $cv->GV;
181 ok($gv->isa(q/B::GV/), "ex-named CV has valid GV");
182 is($gv->NAME, '__ANON__', "ex-named CV has anon GV");
185 $gv = $cv->GV;
186 ok($gv->isa(q/B::GV/), "anon CV has valid GV");
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Digest-SHA/src/
Dsdf.c11 GV* gv; local
26 if (gvp && (gv = *gvp) != (GV*)&sv_undef && (hv = GvHV(gv))) {
35 if (gvp && (gv = *gvp) != (GV*)&sv_undef && (av = GvAV(gv))) {
39 gv = *gvp;
41 if (SvTYPE(gv) != SVt_PVGV)
42 gv_init(gv, stash, "::ISA::CACHE::", 14, TRUE);
44 hv = GvHVn(gv);
/openbsd/src/gnu/usr.bin/perl/t/lib/warnings/
Dgv1 gv.c AOK
15 # gv.c
21 # gv.c
27 # gv.c
34 # gv.c
40 # gv.c
63 # gv.c
85 # gv.c
107 # gv.c
113 # gv.c
[all …]
/openbsd/src/gnu/usr.bin/perl/dist/Time-HiRes/
Dtypemap285 GV *gv = (GV *)sv_newmortal();
287 gv_init(gv, gv_stashpv("$Package",1),"__ANONIO__",10,0);
288 if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) )
289 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
295 GV *gv = (GV *)sv_newmortal();
296 gv_init(gv, gv_stashpv("$Package",1),"__ANONIO__",10,0);
297 if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
298 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
304 GV *gv = (GV *)sv_newmortal();
305 gv_init(gv, gv_stashpv("$Package",1),"__ANONIO__",10,0);
[all …]
/openbsd/src/gnu/usr.bin/perl/t/op/
Dstash.t187 my ($cv,$gv);
189 $gv = $cv->GV;
190 ok($gv->isa(q/B::GV/), "ex-named CV has valid GV");
191 is($gv->NAME, '__ANON__', "ex-named CV has anon GV");
194 $gv = $cv->GV;
195 ok($gv->isa(q/B::GV/), "anon CV has valid GV");
196 is($gv->NAME, '__ANON__', "anon CV has anon GV");
/openbsd/src/gnu/usr.bin/perl/ext/B/t/
Db.t211 local *gv = *STDOUT;
212 my $gv_ref = B::svref_2object(\*gv);
382 PADOP => [ qw(gv padix sv) ],
385 SVOP => [ qw(gv sv) ],
431 my $gv = $cv->GV;
432 ok($gv, "we get a GV from a GV on a normal sub");
433 isa_ok($gv, "B::GV");
434 is($gv->NAME, "foo", "check the GV name");
447 my $gv = $cv->GV;
448 isa_ok($gv, "B::GV", "GV on a lexical sub");
[all …]
/openbsd/src/regress/lib/libssl/handshake/
DMakefile15 handshake.gv: handshake_table
19 CLEANFILES += handshake.gv
22 handshake.${_FMT}: handshake.gv
27 dot -T${_FMT} handshake.gv -o $@
/openbsd/src/gnu/usr.bin/perl/lib/ExtUtils/
Dtypemap421 GV *gv = (GV *)sv_newmortal();
423 gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0);
424 if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) ) {
425 SV *rv = newRV_inc((SV*)gv);
426 rv = sv_bless(rv, GvSTASH(gv));
435 GV *gv = (GV *)sv_newmortal();
436 gv_init_pvn(gv, gv_stashpvs("$Package",1),"__ANONIO__",10,0);
437 if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) ) {
438 SV *rv = newRV_inc((SV*)gv);
439 rv = sv_bless(rv, GvSTASH(gv));
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/OpenBSD-MkTemp/
DMkTemp.xs41 GV *gv = newGVgen("OpenBSD::MkTemp"); variable
43 if (do_open(gv, "+<&", 3, FALSE, 0, 0, io)) {
44 mXPUSHs(sv_bless(newRV((SV*)gv),
46 SvREFCNT_dec(gv);
/openbsd/src/gnu/usr.bin/perl/cpan/Win32API-File/
Dconst2perl.h91 GV *gv; in _const2perl() local
95 gv= gv_fetchpv( sVarName, 1, SVt_PVAV ); in _const2perl()
96 mAvExportFail= GvAVn( gv ); in _const2perl()
154 GV *gv; \
157 gv= gv_fetchpv( sVarName, 1, SVt_PVAV ); \
158 mAvExportFail= GvAVn( gv ); \
/openbsd/src/gnu/usr.bin/perl/dist/IO/
DIO.xs234 GV *gv; variable
241 gv = (GV*)SvREFCNT_inc(newGVgen(packname));
242 if (gv)
243 (void) hv_delete(GvSTASH(gv), GvNAME(gv), GvNAMELEN(gv), G_DISCARD);
244 if (gv && do_open(gv, "+>&", 3, FALSE, 0, 0, fp)) {
245 ST(0) = sv_2mortal(newRV_inc((SV*)gv));
247 SvREFCNT_dec(gv); /* undo increment in newRV() */
251 SvREFCNT_dec(gv);
/openbsd/src/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/
Dtypemap306 GV *gv = newGVgen("$Package");
308 if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) )
309 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
315 GV *gv = newGVgen("$Package");
316 if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
317 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
323 GV *gv = newGVgen("$Package");
324 if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
325 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
331 GV *gv = newGVgen("$Package");
[all …]
/openbsd/src/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/data/
Dperl.typemap330 GV *gv = newGVgen("$Package");
332 if ( fp && do_open(gv, "+<&", 3, FALSE, 0, 0, fp) )
333 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
339 GV *gv = newGVgen("$Package");
340 if ( do_open(gv, "<&", 2, FALSE, 0, 0, $var) )
341 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
347 GV *gv = newGVgen("$Package");
348 if ( do_open(gv, "+<&", 3, FALSE, 0, 0, $var) )
349 sv_setsv($arg, sv_bless(newRV((SV*)gv), gv_stashpv("$Package",1)));
355 GV *gv = newGVgen("$Package");
[all …]
/openbsd/src/gnu/llvm/llvm/lib/Target/SystemZ/
DSystemZConstantPoolValue.cpp18 SystemZConstantPoolValue(const GlobalValue *gv, in SystemZConstantPoolValue() argument
20 : MachineConstantPoolValue(gv->getType()), GV(gv), Modifier(modifier) {} in SystemZConstantPoolValue()

123456