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

2 views
Skip to first unread message

Roger Browne

unread,
May 24, 2005, 12:14:30 PM5/24/05
to bugs-bi...@rt.perl.org
# 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

unread,
May 27, 2005, 4:36:01 AM5/27/05
to perl6-i...@perl.org
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

Reply all
Reply to author
Forward
0 new messages