Home
last modified time | relevance | path

Searched refs:ST (Results 1 – 25 of 131) sorted by relevance

123456

/mirbsd/src/lib/libssl/src/crypto/bn/asm/
Dppc.pl112 $ST= "stw"; # store
136 $ST= "std"; # store
384 $ST r9,`0*$BNSZ`(r3) # r[0]=c1;
399 $ST r10,`1*$BNSZ`(r3) #r[1]=c2;
418 $ST r11,`2*$BNSZ`(r3) #r[2]=c3
442 $ST r9,`3*$BNSZ`(r3) #r[3]=c1
460 $ST r10,`4*$BNSZ`(r3) #r[4]=c2
472 $ST r11,`5*$BNSZ`(r3) #r[5] = c3
479 $ST r9,`6*$BNSZ`(r3) #r[6]=c1
480 $ST r10,`7*$BNSZ`(r3) #r[7]=c2
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/List/Util/
DUtil.xs153 retsv = ST(0); in min()
156 SV *stacksv = ST(index); in min()
163 ST(0) = retsv; in min()
179 sv = ST(0); in sum()
182 sv = ST(index); in sum()
209 left = ST(0); in minstr()
213 SV *right = ST(index); in minstr()
221 SV *right = ST(index); in minstr()
228 ST(0) = left; in minstr()
268 ST(0) = ret; in reduce()
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/IO/
DIO.xs136 ST(0) = sv_newmortal();
140 ST(0) = &PL_sv_undef;
143 sv_setpvn(ST(0), (char *)&pos, sizeof(Fpos_t));
146 if (PerlIO_getpos(handle, ST(0)) != 0) {
147 ST(0) = &PL_sv_undef;
153 ST(0) = &PL_sv_undef;
155 ST(0) = sv_2mortal(newSVpvn((char*)&pos, sizeof(Fpos_t)));
161 ST(0) = &PL_sv_undef;
220 ST(0) = sv_2mortal(newRV((SV*)gv));
221 sv_bless(ST(0), gv_stashpv(packname, TRUE));
[all …]
/mirbsd/src/gnu/usr.bin/perl/win32/ext/Win32/
DWin32.xs27 lpSource = (char *)SvPV(ST(0), n_a); in XS()
164 ST(0) = sv_2mortal(newSViv(iRetVal)); in XS()
191 A2WHELPER(SvPV(ST(0),n_a), wSystem, sizeof(wSystem)); in XS()
192 A2WHELPER(SvPV(ST(1),n_a), wAccount, sizeof(wAccount)); in XS()
206 bResult = LookupAccountNameA(SvPV(ST(0),n_a), /* System */ in XS()
207 SvPV(ST(1),n_a), /* Account name */ in XS()
214 sv_setpv(ST(2), Domain); in XS()
215 sv_setpvn(ST(3), SID, SIDLen); in XS()
216 sv_setiv(ST(4), snu); in XS()
241 sid = SvPV(ST(1), n_a); in XS()
[all …]
/mirbsd/src/gnu/usr.bin/perl/
Duniversal.c229 sv = ST(0); in XS()
238 name = SvPV_nolen_const(ST(1)); in XS()
240 ST(0) = boolSV(sv_derived_from(sv, name)); in XS()
255 sv = ST(0); in XS()
264 name = SvPV_nolen_const(ST(1)); in XS()
282 ST(0) = rv; in XS()
295 if (SvROK(ST(0))) { in XS()
296 sv = (SV*)SvRV(ST(0)); in XS()
302 pkg = gv_stashsv(ST(0), FALSE); in XS()
319 SV *req = ST(1); in XS()
[all …]
Dxsutils.c188 rv = ST(0); in XS()
193 XSRETURN(modify_SV_attributes(aTHX_ sv, &ST(0), &ST(1), items-1)); in XS()
210 rv = ST(0); in XS()
253 rv = ST(0); in XS()
254 ST(0) = TARG; in XS()
305 rv = ST(0); in XS()
306 ST(0) = TARG; in XS()
328 ST(0) = boolSV(ckWARN(WARN_RESERVED)); in XS()
DXSUB.h89 #define ST(off) PL_stack_base[ax + (off)] macro
218 #define XST_mIV(i,v) (ST(i) = sv_2mortal(newSViv(v)) )
219 #define XST_mUV(i,v) (ST(i) = sv_2mortal(newSVuv(v)) )
220 #define XST_mNV(i,v) (ST(i) = sv_2mortal(newSVnv(v)) )
221 #define XST_mPV(i,v) (ST(i) = sv_2mortal(newSVpv(v,0)))
222 #define XST_mPVN(i,v,n) (ST(i) = sv_2mortal(newSVpvn(v,n)))
223 #define XST_mNO(i) (ST(i) = &PL_sv_no )
224 #define XST_mYES(i) (ST(i) = &PL_sv_yes )
225 #define XST_mUNDEF(i) (ST(i) = &PL_sv_undef)
250 const char *vn = Nullch, *module = SvPV_nolen_const(ST(0)); \
[all …]
/mirbsd/src/gnu/usr.bin/perl/vms/ext/Stdio/
DStdio.xs122 ST(0) = sv_2mortal(newSViv(i));
124 ST(0) = &PL_sv_undef;
189 if (fflush(stdio)) { ST(0) = &PL_sv_undef; }
190 else { clearerr(stdio); ST(0) = &PL_sv_yes; }
199 ST(0) = sv_newmortal();
200 if (PerlIO_getname(fp,fname) != NULL) sv_setpv(ST(0),fname);
208 ST(0) = rewind(stdio) ? &PL_sv_undef : &PL_sv_yes;
216 ST(0) = remove(name) ? &PL_sv_undef : &PL_sv_yes;
229 SV *defsv = ST(items-1); /* mimic chdir() */
230 ST(0) = &PL_sv_undef;
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Digest/MD5/
DMD5.xs182 ST(0) = sv_newmortal();
183 sv_setref_pv(ST(0), sclass, (void*)context);
184 SvREADONLY_on(SvRV(ST(0)));
200 ST(0) = sv_newmortal();
201 sv_setref_pv(ST(0), myname , (void*)context);
202 SvREADONLY_on(SvRV(ST(0)));
222 data = (unsigned char *)(SvPVbyte(ST(i), len));
286 ST(0) = make_mortal_sv(aTHX_ digeststr, ix);
307 if (SvROK(ST(0))) {
308 SV* sv = SvRV(ST(0));
[all …]
/mirbsd/src/lib/libssl/src/crypto/des/
DDES.xs71 l=SvCUR(ST(0)); in des_cbc_encrypt()
80 sv_setpvn(ST(2),(char *)c[len-8],8); in des_cbc_encrypt()
97 l=SvCUR(ST(0)); in des_cbc3_encrypt()
105 sv_setpvn(ST(3),(char *)ivec1,8); in des_cbc3_encrypt()
106 sv_setpvn(ST(4),(char *)ivec2,8); in des_cbc3_encrypt()
124 l=SvCUR(ST(0)); in des_cbc_cksum()
131 sv_setpvn(ST(2),(char *)c,8); in des_cbc_cksum()
149 len=SvCUR(ST(0)); in des_cfb_encrypt()
157 sv_setpvn(ST(3),(char *)ivec,8); in des_cfb_encrypt()
190 len=SvCUR(ST(0)); in des_ofb_encrypt()
[all …]
/mirbsd/src/gnu/usr.bin/perl/os2/
Dos2.c1834 char * src = (char *)SvPV(ST(0),n_a); in XS()
1835 char * dst = (char *)SvPV(ST(1),n_a); in XS()
1843 flag = (unsigned long)SvIV(ST(2)); in XS()
1864 char * target = (char *)SvPV_nolen(ST(0)); in XS()
1865 char * source = (items < 2) ? Nullch : (char *)SvPV_nolen(ST(1)); in XS()
1866 char * backup = (items < 3) ? Nullch : (char *)SvPV_nolen(ST(2)); in XS()
1929 ulCommand = (ULONG)SvUV(ST(0)); in XS()
1939 ulParm1 = (ULONG)SvUV(ST(1)); in XS()
1946 ulParm2 = (ULONG)SvUV(ST(2)); in XS()
1952 ulParm3 = (ULONG)SvUV(ST(3)); in XS()
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Opcode/
DOpcode.xs350 ST(0) = opset;
388 if (verify_opset(aTHX_ ST(i),0)) {
390 bitspec = ST(i);
393 opname = SvPV(ST(i), len);
399 ST(0) = opset;
430 if (verify_opset(aTHX_ ST(i),0)) { /* it's a valid mask */
432 bitspec = ST(i);
435 opname = SvPV(ST(i), len);
442 ST(0) = &PL_sv_yes;
457 args = (SV**)SvPVX(sv_2mortal(newSVpvn((char*)&ST(0), items*sizeof(SV*))));
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/DynaLoader/
Ddl_vmesa.xs122 ST(0) = sv_newmortal() ;
126 sv_setiv( ST(0), PTR2IV(RETVAL) );
140 ST(0) = sv_newmortal() ;
144 sv_setiv( ST(0), PTR2IV(RETVAL) );
163 ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
Ddl_dllload.xs120 ST(0) = sv_newmortal() ;
124 sv_setiv( ST(0), PTR2IV(RETVAL));
154 ST(0) = sv_newmortal() ;
158 sv_setiv( ST(0), PTR2IV(RETVAL));
177 ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
Ddl_beos.xs51 ST(0) = sv_newmortal() ;
57 sv_setiv( ST(0), PTR2IV(RETVAL) );
81 ST(0) = sv_newmortal() ;
86 sv_setiv( ST(0), PTR2IV(RETVAL));
105 ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
Ddl_mpeix.xs71 ST(0) = sv_newmortal() ;
75 sv_setiv( ST(0), PTR2IV(obj) );
89 ST(0) = sv_newmortal() ;
101 sv_setiv( ST(0), PTR2IV(symaddr) );
118 ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
Ddl_dlopen.xs193 ST(0) = sv_newmortal() ;
197 sv_setiv( ST(0), PTR2IV(handle));
230 ST(0) = sv_newmortal() ;
234 sv_setiv( ST(0), PTR2IV(sym));
253 ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
Ddl_mac.xs91 ST(0) = sv_newmortal() ;
95 sv_setiv( ST(0), (IV)RETVAL);
113 ST(0) = sv_newmortal() ; in dl_find_symbol()
117 sv_setiv( ST(0), (IV)RETVAL); in dl_find_symbol()
136 ST(0)=sv_2mortal(newRV((SV*)newXS(perl_name, (void(*)())symref, filename)));
Ddl_dyld.xs166 ST(0) = sv_newmortal() ;
170 sv_setiv( ST(0), PTR2IV(RETVAL) );
185 ST(0) = sv_newmortal() ;
189 sv_setiv( ST(0), PTR2IV(RETVAL) );
208 ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
/mirbsd/src/gnu/usr.bin/perl/ext/B/
DB.xs593 ST(0) = make_sv_object(aTHX_ sv_newmortal(), PL_warnhook);
598 ST(0) = make_sv_object(aTHX_ sv_newmortal(), PL_diehook);
614 if (items > 0 && SvTRUE(ST(1)))
642 ST(0) = sv_newmortal(); in opnumber()
653 sv_setiv(ST(0),result); in opnumber()
660 ST(0) = sv_newmortal();
662 sv_setpvn(ST(0), "pp_", 3);
663 sv_catpv(ST(0), PL_op_name[opnum]);
676 ST(0) = sv_2mortal(newSVpv(hexhash, 0));
785 ST(0) = sv;
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Socket/
DSocket.xs244 ST(0) = sv_newmortal();
246 sv_setpvn( ST(0), (char *)&ip_address, sizeof ip_address );
281 ST(0) = sv_2mortal(newSVpvn(addr_str, strlen(addr_str))); in inet_ntoa()
297 ST(0) = sv_2mortal(newSViv(((struct sockaddr*)sockaddr_pv)->sa_family));
341 ST(0) = sv_2mortal(newSVpvn((char *)&sun_ad, sizeof sun_ad)); in pack_sockaddr_un()
343 ST(0) = (SV *) not_here("pack_sockaddr_un"); in pack_sockaddr_un()
382 ST(0) = sv_2mortal(newSVpvn(addr.sun_path, e - (char*)addr.sun_path)); in unpack_sockaddr_un()
384 ST(0) = (SV *) not_here("unpack_sockaddr_un"); in unpack_sockaddr_un()
415 ST(0) = sv_2mortal(newSVpvn((char *)&sin, sizeof sin)); in pack_sockaddr_in()
/mirbsd/src/gnu/usr.bin/perl/wince/
Ddl_win32.xs117 ST(0) = sv_newmortal() ;
122 sv_setiv( ST(0), (IV)RETVAL);
134 ST(0) = sv_newmortal() ;
139 sv_setiv( ST(0), (IV)RETVAL);
158 ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
/mirbsd/src/gnu/usr.bin/perl/NetWare/
Ddl_netware.xs127 ST(0) = sv_newmortal() ;
133 sv_setiv( ST(0), (IV)nlmHandle);
153 ST(0) = sv_newmortal() ;
159 sv_setiv( ST(0), (IV)RETVAL);
176 ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,
/mirbsd/src/gnu/usr.bin/perl/jpl/JNI/
DJNI.xs787 jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
857 jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
888 jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
919 jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
950 jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
981 jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
1012 jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
1043 jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
1074 jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
1105 jvalue * args = makeargs(sig, &ST(argoff), items - argoff);
[all …]
/mirbsd/src/gnu/usr.bin/perl/win32/
Ddl_win32.xs124 ST(0) = sv_newmortal() ;
129 sv_setiv( ST(0), (IV)RETVAL);
153 ST(0) = sv_newmortal() ;
158 sv_setiv( ST(0), (IV)RETVAL);
177 ST(0) = sv_2mortal(newRV((SV*)newXS(perl_name,

123456