コード例 #1
0
ファイル: mathoms.c プロジェクト: evalEmpire/piledriver
void
Perl_sv_catsv_mg(pTHX_ SV *dsv, SV *ssv)
{
    PERL_ARGS_ASSERT_SV_CATSV_MG;

    sv_catsv_flags(dsv,ssv,SV_GMAGIC|SV_SMAGIC);
}
コード例 #2
0
ファイル: mathoms.c プロジェクト: evalEmpire/piledriver
void
Perl_sv_catsv(pTHX_ SV *dstr, SV *sstr)
{
    PERL_ARGS_ASSERT_SV_CATSV;

    sv_catsv_flags(dstr, sstr, SV_GMAGIC);
}
コード例 #3
0
ファイル: sv_nw.c プロジェクト: 1310701102/sl4a
void
Perl_sv_catsv(pTHX_ SV *dstr, register SV *sstr)
{
    sv_catsv_flags(dstr, sstr, SV_GMAGIC);
}