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

[Roger Browne]

# 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 <ro...@eiffel.demon.co.uk>

[Leopold Toetsch]

Roger Browne <parrotbug...@parrotcode.org> wrote:
> This pasm fragment...

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

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

... or somethin else, start wasn't verfied properly.

Fixed (r8176), thanks for testing.
leo