if (GIMME == G_ARRAY) {
	MARK++;
	while (MARK < SP) {
	    tmp = *MARK;
	    *MARK++ = *SP;
	    *SP-- = tmp;
	}
	/* safe as long as stack cannot get extended in the above */
	SP = oldsp;
    }

##</code><code>##

( $MARK, $SP ) = ( 0, $#array );
while( $MARK < $SP ) {
    $tmp = $array[ $mark ];
    $array[ $MARK++ } = $array[ $SP ];
    $array[ $SP-- ] = tmp;
}

##</code><code>##

@r = reverse 1, @r;