[perl #35959] index opcode fails with large negative offset

[via RT]

# New Ticket Created by  Roger Browne 
# Please include the string:  [perl #35959]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=35959 >

This pasm fragment...

index I1, "u", "t", -123456
print I1
print "\n"
end

...prints -32 instead of the expected -1.

This fragment...

index I1, "u", "t", -123456789
print I1
print "\n"
end

...segfaults. More reasonable values of $4 (31 or less) produce the
expected result.

Parrot 0.2.0 on Fedora Core 3 Linux i386.

-- 
Roger Browne <[EMAIL PROTECTED]>