Select Code to Download

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

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

@r = reverse 1, @r;