index op failure

[pmichaud]

The index op seems to fail when certain unicode strings are used:

$ cat z.pir
.sub 'main' :main
    $S0 = unicode:"bubuc"
    $S1 = unicode:"buc"

    $I0 = index $S0, $S1, 0
    say $I0
.end

$ ./parrot z.pir
-1
$ 

Removing the "unicode:" from $S1 one above also produces the same (incorrect) result.

Pm

[coke]

Fixed in r44496;

The mixed_cs_index function had two iterators, one for the source string and one for the search string; if a partial match was found, the source string's iterator was not properly reset, but instead continued from the point of the invalid match.

Added test to avoid regression.