Home
last modified time | relevance | path

Searched refs:sv_2mortal (Results 1 – 25 of 126) sorted by relevance

123456

/openbsd/src/gnu/usr.bin/perl/ext/XS-APItest/
Dnumeric.xs14 PUSHs(sv_2mortal(newSViv(result)));
16 PUSHs(sv_2mortal(newSVuv(value)));
30 PUSHs(sv_2mortal(newSViv(result)));
32 PUSHs(sv_2mortal(newSVuv(value)));
52 PUSHs(sv_2mortal(newSVuv(value)));
54 PUSHs(sv_2mortal(newSVpvn(NULL, 0)));
57 PUSHs(sv_2mortal(newSViv(endptr - pv)));
59 PUSHs(sv_2mortal(newSViv(0)));
72 PUSHs(sv_2mortal(newSVnv(nv)));
75 PUSHs(sv_2mortal(sv));
/openbsd/src/gnu/usr.bin/perl/ext/B/
DB.xs763 ST(0) = sv_2mortal(Perl_newSVpvf(aTHX_ "0x%" UVxf, (UV)hash));
907 ret = sv_2mortal(newSVpv(CopFILE((COP*)o), 0));
915 ret = sv_2mortal(CopSTASH((COP*)o)
921 ret = sv_2mortal(newSVuv((UV)(opsizes[op_class(o)])));
925 ret = sv_2mortal(newSVpv(
931 ret = sv_2mortal(Perl_newSVpvf(aTHX_ "PL_ppaddr[OP_%s]",
946 ret = sv_2mortal(newSVuv((UV)(
962 ret = sv_2mortal(newSVuv(i));
988 ret = sv_2mortal(newSVpv(PmopSTASHPV(cPMOPo),0));
1040 ret = sv_2mortal(newSVpv(CopLABEL(cCOPo),0));
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Compress-Raw-Bzip2/fallback/
Dconstants.xs25 sv = sv_2mortal(newSVpvf("%s is not a valid Bzip2 macro", s));
29 sv = sv_2mortal(newSVpvf(
84 sv = sv_2mortal(newSVpvf(
/openbsd/src/gnu/usr.bin/perl/cpan/Compress-Raw-Zlib/fallback/
Dconstants.xs26 sv_2mortal(newSVpvf("%s is not a valid Zlib macro", s));
30 sv = sv_2mortal(newSVpvf(
85 sv = sv_2mortal(newSVpvf(
/openbsd/src/gnu/usr.bin/perl/cpan/Socket/
DSocket.xs233 return (flags & SVs_TEMP) ? sv_2mortal(sv) : sv; in my_newSVpvn_flags()
263 keysv = sv_2mortal(newSVpvn(key, klen)); in my_hv_common()
303 # define mPUSHs(s) PUSHs(sv_2mortal(s))
679 XPUSHs(sv_2mortal(newRV_noinc((SV*)res_hv))); in xs_getaddrinfo()
758 XPUSHs(want_host ? sv_2mortal(newSVpv(host, 0)) : &PL_sv_undef); in xs_getnameinfo()
759 XPUSHs(want_serv ? sv_2mortal(newSVpv(serv, 0)) : &PL_sv_undef); in xs_getnameinfo()
787 ST(0) = sv_2mortal(newSVpvn( in inet_aton()
797 ST(0) = sv_2mortal(newSVpvn((char *)&ip_address, sizeof(ip_address))); in inet_aton()
804 ST(0) = sv_2mortal(newSVpvn((char *)phe->h_addr, phe->h_length)); in inet_aton()
836 ST(0) = sv_2mortal(Perl_newSVpvf(aTHX_ "%d.%d.%d.%d", /* IPv6? */ in inet_ntoa()
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/Opcode/
DOpcode.xs67 put_op_bitspec(aTHX_ STR_WITH_LEN(":none"), sv_2mortal(new_opset(aTHX_ Nullsv))); in op_names_init()
300 PL_endav = (AV*)sv_2mortal((SV*)newAV()); /* ignore END blocks for now */
353 opset = sv_2mortal(new_opset(aTHX_ opset)); /* verify and clone opset */ in invert_opset()
395 SV * const opset = sv_2mortal(new_opset(aTHX_ Nullsv));
435 sv_setsv(mask, sv_2mortal(new_opset(aTHX_ PERMITING ? opset_all : Nullsv)));
514 ST(0) = sv_2mortal(new_opset(aTHX_ Nullsv));
520 ST(0) = sv_2mortal(new_opset(aTHX_ opset_all));
538 XPUSHs(sv_2mortal(newSViv(PL_maxo)));
544 ST(0) = sv_2mortal(new_opset(aTHX_ Nullsv));
/openbsd/src/gnu/usr.bin/perl/cpan/Term-ReadKey/
DReadKey.xs1832 PUSHs(sv_2mortal(newSViv((IV)x))); in blockoptions()
1833 PUSHs(sv_2mortal(newSViv((IV)y))); in blockoptions()
1834 PUSHs(sv_2mortal(newSViv((IV)xpix))); in blockoptions()
1835 PUSHs(sv_2mortal(newSViv((IV)ypix))); in blockoptions()
1852 PUSHs(sv_2mortal(newSViv((IV)x)));
1853 PUSHs(sv_2mortal(newSViv((IV)y)));
1854 PUSHs(sv_2mortal(newSViv((IV)xpix)));
1855 PUSHs(sv_2mortal(newSViv((IV)ypix)));
1872 PUSHs(sv_2mortal(newSViv((IV)x)));
1873 PUSHs(sv_2mortal(newSViv((IV)y)));
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Unicode-Collate/
DCollate.xs113 XPUSHs(sv_2mortal(newSVpv((char *) *rest, 0)));
137 PUSHs(sv_2mortal(newSVpvn((char *) result, VCE_Length)));
141 PUSHs(sv_2mortal(newSViv(0)));
200 XPUSHs(sv_2mortal(newSVuv(overflowed ? UV_MAX : value)));
237 PUSHs(sv_2mortal(newSVuv(lindex + Hangul_LBase)));
238 PUSHs(sv_2mortal(newSVuv(vindex + Hangul_VBase)));
240 PUSHs(sv_2mortal(newSVuv(tindex + Hangul_TBase)));
376 PUSHs(sv_2mortal(newSVpvn((char *) a, VCE_Length)));
377 PUSHs(sv_2mortal(newSVpvn((char *) b, VCE_Length)));
399 PUSHs(sv_2mortal(newSVpvn((char *) a, VCE_Length)));
[all …]
/openbsd/src/gnu/usr.bin/perl/
Dvxs.inc31 sv_2mortal(sv_vtc); \
82 # define HEKfARG(arg) ((void*)(sv_2mortal(newSVhek(arg))))
157 req = sv_2mortal( NEW_VERSION(req) );
171 SVfARG(sv_2mortal(req)),
172 SVfARG(sv_2mortal(sv)));
178 ST(0) = sv_2mortal(VSTRINGIFY(sv));
316 robj = sv_2mortal(NEW_VERSION(SvOK(robj) ? robj : newSVpvs_flags("0", SVs_TEMP)));
345 sv_2mortal(NEW_VERSION(
346 sv_2mortal(newSVpvs("0"))
431 rv = sv_2mortal(NEW_VERSION(ver));
Duniversal.c530 rv = sv_2mortal(newRV(MUTABLE_SV(GvCV(gv)))); in XS()
670 ST(0) = sv_2mortal(newSVuv(NATIVE_TO_UNI(uv))); in XS()
683 ST(0) = sv_2mortal(newSVuv(UNI_TO_NATIVE(uv))); in XS()
884 ? sv_2mortal(SvREFCNT_inc_simple_NN(*namsvp)) in XS()
893 ? sv_2mortal(SvREFCNT_inc_simple_NN(*flgsvp)) in XS()
899 PUSHs(sv_2mortal(Perl_newSVpvf(aTHX_ "%" SVf "(%" SVf ")", in XS()
903 PUSHs(sv_2mortal(SvREFCNT_inc_simple_NN(*namsvp))); in XS()
959 PUSHs(ret ? sv_2mortal(ret) : &PL_sv_undef); in XS()
990 PUSHs(ret ? sv_2mortal(ret) : &PL_sv_undef); in XS()
1120 pattern = sv_2mortal(newSVsv(MUTABLE_SV(re))); in XS()
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt-FastCalc/
DFastCalc.xs41 ST(0) = sv_2mortal(newSViv(value)); \
116 a2 = (AV*)sv_2mortal((SV*)newAV());
136 ST(0) = sv_2mortal( newRV_inc((SV*) a2) );
295 ST(0) = sv_2mortal(boolSV((SvIV(temp) & 1) == ix));
339 ST(0) = sv_2mortal(newSViv(len));
409 ST(0) = sv_2mortal(newSViv(0)); /* X and Y are equal */
/openbsd/src/gnu/usr.bin/perl/ext/re/
Dre.xs116 XPUSHs(sv_2mortal(newSViv(PTR2IV(&my_reg_engine))));
135 an = sv_2mortal(newSVsv(RX_ANCHORED_SUBSTR(re)));
137 an = sv_2mortal(newSVsv(RX_ANCHORED_UTF8(re)));
140 fl = sv_2mortal(newSVsv(RX_FLOAT_SUBSTR(re)));
142 fl = sv_2mortal(newSVsv(RX_FLOAT_UTF8(re)));
/openbsd/src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/
DListUtil.xs344 case 1: ST(0) = sv_2mortal(newSViv(0)); XSRETURN(1); in sum()
345 case 2: ST(0) = sv_2mortal(newSViv(1)); XSRETURN(1); in sum()
622 ST(i) = sv_2mortal(svs[i]); in reduce()
809 PUSHs( sv_2mortal( newSVsv( ST(i) ) ) ); in head()
836 ST(reti) = sv_2mortal(newRV_noinc((SV *)av)); in pairs()
905 ST(reti++) = sv_2mortal(newSVsv(a)); in pairkeys()
927 ST(reti++) = sv_2mortal(newSVsv(b)); in pairvalues()
1068 sv_2mortal(stack[i]); in pairgrep()
1184 sv_2mortal((SV*)spill); in pairmap()
1201 sv_2mortal(ST(i)); in pairmap()
[all …]
/openbsd/src/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/
Dpv_tools221 ST(1) = sv_2mortal(newSVpv(rv, 0));
225 ST(3) = sv_2mortal(newSVpv(rv, 0));
229 ST(5) = sv_2mortal(newSVpv(rv, 0));
233 ST(7) = sv_2mortal(newSVpv(rv, 0));
244 ST(1) = sv_2mortal(newSVpv(rv, 0));
247 ST(3) = sv_2mortal(newSVpv(rv, 0));
DnewRV40 sv_2mortal(rv);
52 sv_2mortal(rv);
/openbsd/src/gnu/usr.bin/perl/cpan/Digest-MD5/
DMD5.xs232 return sv_2mortal(newSVpv(ret,len)); in make_mortal_sv()
254 ST(0) = sv_2mortal(new_md5_ctx(aTHX_ context, sclass));
270 ST(0) = sv_2mortal(new_md5_ctx(aTHX_ context, myname));
389 ST(0) = sv_2mortal(newSViv((ctx->count >> 3)
391 ST(1) = sv_2mortal(newSVpv(out, 16));
396 ST(2) = sv_2mortal(newSVpv((char *)ctx->buffer,
/openbsd/src/gnu/usr.bin/perl/dist/Data-Dumper/
DDumper.xs543 sv_2mortal(sv_pattern); in dump_regexp()
544 sv_2mortal(sv_flags); in dump_regexp()
828 apad = sv_2mortal(newSVsv(apad)); in DD_dump()
834 sv_2mortal(ipad); in DD_dump()
846 SV * const namesv = sv_2mortal(newSVpvs("${")); in DD_dump()
875 SV * const ixsv = sv_2mortal(newSViv(0)); in DD_dump()
908 totpad = sv_2mortal(newSVsv(style->sep)); in DD_dump()
985 totpad = sv_2mortal(newSVsv(style->sep)); in DD_dump()
1021 XPUSHs(sv_2mortal(newRV_inc(ival))); PUTBACK; in DD_dump()
1034 sv_2mortal((SV*)keys); in DD_dump()
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/VMS-DCLsym/
DDCLsym.xs45 PUSHs(sv_2mortal(newSVpv(valdsc.dsc$w_length ? in _getsym()
49 PUSHs(sv_2mortal(newSVpv("LOCAL",5))); in _getsym()
51 PUSHs(sv_2mortal(newSVpv("GLOBAL",6))); in _getsym()
/openbsd/src/gnu/usr.bin/perl/cpan/Encode/
DEncode.xs53 XPUSHs(sv_2mortal(newSVpvn(name, strlen(name)))); in Encode_XSEncoding()
64 SV *tmp = sv_2mortal(newSVpvn((char *)*s, *slen)); in utf8_safe_downgrade()
83 SV *tmp = sv_2mortal(newSVpvn((char *)*s, *slen)); in utf8_safe_upgrade()
105 XPUSHs(sv_2mortal(newSVuv(ch))); in do_fallback_cb()
131 XPUSHs(sv_2mortal(newSVuv(s[i]))); in do_bytes_fallback_cb()
157 SV *dst = sv_2mortal(newSV(slen+1)); in encode_method()
575 return sv_2mortal(obj); in find_encoding()
588 check = sv_2mortal(newSVsv(check)); in call_encoding()
591 src = sv_2mortal(newSVsv(src)); in call_encoding()
662 dst = sv_2mortal(newSV(slen>0?slen:1)); /* newSV() abhors 0 -- inaba */
[all …]
/openbsd/src/gnu/usr.bin/perl/ext/GDBM_File/
DGDBM_File.xs207 XPUSHs(sv_2mortal(vnewSVpvf(fmt, &ap))); in rcvr_errfun()
293 XPUSHs(sv_2mortal(newSVpvf("%d.%d.%d%s",
299 XPUSHs(sv_2mortal(newSVpvf("%d.%d%s",
305 XPUSHs(sv_2mortal(newSVuv(GDBM_VERSION_MAJOR)));
306 XPUSHs(sv_2mortal(newSVuv(GDBM_VERSION_MINOR)));
307 XPUSHs(sv_2mortal(newSVuv(GDBM_VERSION_PATCH)));
309 XPUSHs(sv_2mortal(newSVuv(GDBM_VERSION_GUESS)));
1036 XPUSHs(sv_2mortal(newSVpv(filename, 0)));
1041 XPUSHs(sv_2mortal(newSVuv(result)));
1043 XPUSHs(sv_2mortal(newSVuv(syserr)));
/openbsd/src/gnu/usr.bin/perl/cpan/Sys-Syslog/fallback/
Dconst-xs.inc25 sv = sv_2mortal(newSVpvf("%s is not a valid Sys::Syslog macro", s));
29 sv = sv_2mortal(newSVpvf(
83 sv = sv_2mortal(newSVpvf(
/openbsd/src/gnu/usr.bin/perl/cpan/Win32/
DWin32.xs155 SV *sv = sv_2mortal(newSV(len)); in wstr_to_sv()
280 SV *sv = sv_2mortal(newSVpvn(ansi, strlen(ansi))); in wstr_to_ansipath()
360 ST(0) = sv_2mortal(newSViv(pfnIsUserAnAdmin() ? 1 : 0)); in XS()
409 ST(0) = sv_2mortal(newSViv(iRetVal)); in XS()
1051 ST(0) = sv_2mortal(newSVpvn(name,size));
1099 XPUSHs(sv_2mortal(newSVpvn(fsname,strlen(fsname))));
1100 XPUSHs(sv_2mortal(newSViv(flags)));
1101 XPUSHs(sv_2mortal(newSViv(filecomplen)));
1120 XPUSHs(sv_2mortal(newSVpvn(g_osver.szCSDVersion, strlen(g_osver.szCSDVersion))));
1122 XPUSHs(sv_2mortal(newSViv(g_osver.dwMajorVersion)));
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/IPC-SysV/
DSysV.xs147 ST(0) = sv_2mortal(newSVpvn((char *) &ds, sizeof(ds))); in pack()
206 ST(0) = sv_2mortal(newSVpvn((char *) &ds, sizeof(ds))); in pack()
265 ST(0) = sv_2mortal(newSVpvn((char *) &ds, sizeof(ds))); in pack()
341 ST(0) = k == (key_t) -1 ? &PL_sv_undef : sv_2mortal(newSViv(k));
401 : sv_2mortal(newSVpvn((char *) &shm, sizeof(void *)));
418 ST(0) = rv == -1 ? &PL_sv_undef : sv_2mortal(newSViv(rv));
/openbsd/src/gnu/usr.bin/perl/ext/POSIX/
DPOSIX.xs2649 PUSHs(sv_2mortal(newSVnv(Perl_frexp(x,&expvar)))); /* C89 math */
2650 PUSHs(sv_2mortal(newSViv(expvar)));
2667 PUSHs(sv_2mortal(newSVnv(Perl_modf(x,&intvar)))); /* C89 math */
2668 PUSHs(sv_2mortal(newSVnv(intvar)));
2677 PUSHs(sv_2mortal(newSVnv(c99_remquo(x,y,&intvar))));
2678 PUSHs(sv_2mortal(newSVnv(intvar)));
3092 XPUSHs(sv_2mortal(newSViv(incr)));
3101 PUSHs(sv_2mortal(newSViv(fds[0])));
3102 PUSHs(sv_2mortal(newSViv(fds[1])));
3192 SV * byte_s = sv_2mortal(newSVsv_nomg(s));
[all …]
/openbsd/src/gnu/usr.bin/perl/dist/Time-HiRes/fallback/
Dconst-xs.inc26 sv_2mortal(newSVpvf("%s is not a valid Time::HiRes macro", s));
30 sv = sv_2mortal(newSVpvf(
86 sv = sv_2mortal(newSVpvf(

123456