Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/doio.c

Lines Matching defs:mark
1413 Perl_do_aexec(pTHX_ SV *really, register SV **mark, register SV **sp)
1415     return do_aexec5(really, mark, sp, 0, 0);
1420 Perl_do_aexec5(pTHX_ SV *really, register SV **mark, register SV **sp,
1430     if (sp > mark) {
1431 	New(401,PL_Argv, sp - mark + 1, char*);
1433 	while (++mark <= sp) {
1434 	    if (*mark)
1435 		*a++ = SvPVx(*mark, n_a);
1611 Perl_apply(pTHX_ I32 type, register SV **mark, register SV **sp)
1618     SV **oldmark = mark;
1628 	while (++mark <= sp) {
1629 	    if (SvTAINTED(*mark)) {
1634 	mark = oldmark;
1640 	if (++mark <= sp) {
1641 	    val = SvIVx(*mark);
1643 	    tot = sp - mark;
1644 	    while (++mark <= sp) {
1645 		char *name = SvPVx(*mark, n_a);
1656 	if (sp - mark > 2) {
1657 	    val = SvIVx(*++mark);
1658 	    val2 = SvIVx(*++mark);
1660 	    tot = sp - mark;
1661 	    while (++mark <= sp) {
1662 		char *name = SvPVx(*mark, n_a);
1680 	if (mark == sp)
1682 	s = SvPVx(*++mark, n_a);
1690 	    val = SvIVx(*mark);
1692 	tot = sp - mark;
1702 	    while (++mark <= sp) {
1703 		I32 proc = SvIVx(*mark);
1726 	    while (++mark <= sp) {
1727 		I32 proc = SvIVx(*mark);
1738 	    while (++mark <= sp) {
1739 		I32 proc = SvIVx(*mark);
1750 	tot = sp - mark;
1751 	while (++mark <= sp) {
1752 	    s = SvPVx(*mark, n_a);
1772 	if (sp - mark > 2) {
1782            SV* accessed = *++mark;
1783            SV* modified = *++mark;
1803 	    tot = sp - mark;
1804 	    while (++mark <= sp) {
1805 		char *name = SvPVx(*mark, n_a);
1915 Perl_do_ipcget(pTHX_ I32 optype, SV **mark, SV **sp)
1920     key = (key_t)SvNVx(*++mark);
1921     n = (optype == OP_MSGGET) ? 0 : SvIVx(*++mark);
1922     flags = SvIVx(*++mark);
1947 Perl_do_ipcctl(pTHX_ I32 optype, SV **mark, SV **sp)
1954     id = SvIVx(*++mark);
1955     n = (optype == OP_SEMCTL) ? SvIVx(*++mark) : 0;
1956     cmd = SvIVx(*++mark);
1957     astr = *++mark;
2070 Perl_do_msgsnd(pTHX_ SV **mark, SV **sp)
2078     id = SvIVx(*++mark);
2079     mstr = *++mark;
2080     flags = SvIVx(*++mark);
2092 Perl_do_msgrcv(pTHX_ SV **mark, SV **sp)
2101     id = SvIVx(*++mark);
2102     mstr = *++mark;
2106     msize = SvIVx(*++mark);
2107     mtype = (long)SvIVx(*++mark);
2108     flags = SvIVx(*++mark);
2129 Perl_do_semop(pTHX_ SV **mark, SV **sp)
2137     id = SvIVx(*++mark);
2138     opstr = *++mark;
2182 Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp)
2191     id = SvIVx(*++mark);
2192     mstr = *++mark;
2193     mpos = SvIVx(*++mark);
2194     msize = SvIVx(*++mark);