Searched refs:PL_dbargs (Results 1 - 5 of 5) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dpp_ctl.c1550 if (!PL_dbargs) {
1552 PL_dbargs = GvAV(gv_AVadd(tmpgv = gv_fetchpv("DB::args", TRUE,
1555 AvREAL_off(PL_dbargs); /* XXX should be REIFY (see av.h) */
1558 if (AvMAX(PL_dbargs) < AvFILLp(ary) + off)
1559 av_extend(PL_dbargs, AvFILLp(ary) + off);
1560 Copy(AvALLOC(ary), AvARRAY(PL_dbargs), AvFILLp(ary) + 1 + off, SV*);
1561 AvFILLp(PL_dbargs) = AvFILLp(ary) + off;
H A Dperlapi.h201 #undef PL_dbargs
202 #define PL_dbargs (*Perl_Idbargs_ptr(aTHX))
H A Dembedvar.h240 #define PL_dbargs (PERL_GET_INTERP->Idbargs) macro
562 #define PL_dbargs (vTHX->Idbargs) macro
887 #define PL_Idbargs PL_dbargs
H A Dperl.c750 PL_dbargs = Nullav;
3920 PL_dbargs = GvAV(gv_AVadd((gv_fetchpv("DB::args", GV_ADDMULTI, SVt_PVAV))));
3921 AvREAL_off(PL_dbargs);
H A Dsv.c10913 PL_dbargs = av_dup(proto_perl->Idbargs, param);

Completed in 75 milliseconds