void
Perl_save_list(pTHX_ register SV **sarg, I32 maxsarg)
{
dVAR;
register I32 i;
PERL_ARGS_ASSERT_SAVE_LIST;
for (i = 1; i <= maxsarg; i++) {
register SV * const sv = newSV(0);
sv_setsv(sv,sarg[i]);
SSCHECK(3);
SSPUSHPTR(sarg[i]); /* remember the pointer */
SSPUSHPTR(sv); /* remember the value */
SSPUSHUV(SAVEt_ITEM);
}
}
void
Perl_save_list(pTHX_ SV **sarg, I32 maxsarg)
{
I32 i;
PERL_ARGS_ASSERT_SAVE_LIST;
for (i = 1; i <= maxsarg; i++) {
SV *sv;
SvGETMAGIC(sarg[i]);
sv = newSV(0);
sv_setsv_nomg(sv,sarg[i]);
SSCHECK(3);
SSPUSHPTR(sarg[i]); /* remember the pointer */
SSPUSHPTR(sv); /* remember the value */
SSPUSHUV(SAVEt_ITEM);
}
}
void
Perl_save_nogv(pTHX_ GV *gv)
{
PERL_ARGS_ASSERT_SAVE_NOGV;
SSCHECK(2);
SSPUSHPTR(gv);
SSPUSHUV(SAVEt_NSTAB);
}
void
Perl_save_iv(pTHX_ IV *ivp)
{
PERL_ARGS_ASSERT_SAVE_IV;
SSCHECK(3);
SSPUSHIV(*ivp);
SSPUSHPTR(ivp);
SSPUSHUV(SAVEt_IV);
}
void
Perl_save_long(pTHX_ long int *longp)
{
PERL_ARGS_ASSERT_SAVE_LONG;
SSCHECK(3);
SSPUSHLONG(*longp);
SSPUSHPTR(longp);
SSPUSHUV(SAVEt_LONG);
}
