Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff --git a/src/pmc/qrpa.pmc b/src/pmc/qrpa.pmc
- index 9aa98d3..77483a5 100644
- --- a/src/pmc/qrpa.pmc
- +++ b/src/pmc/qrpa.pmc
- @@ -206,11 +206,11 @@ Resizes the array to C<n> elements.
- VTABLE PMC * get_pmc_keyed_int(INTVAL pos) {
- - INTVAL elems;
- - INTVAL start;
- - PMC **slots;
- + Parrot_QRPA_attributes *attrs = PARROT_QRPA(SELF);
- + INTVAL elems = attrs->elems;
- + INTVAL start = attrs->start;
- + PMC **slots = attrs->slots;
- - GET_ATTR_elems(INTERP, SELF, elems);
- if (pos < 0)
- pos += elems;
- @@ -221,8 +221,6 @@ Resizes the array to C<n> elements.
- if (pos >= elems)
- return PMCNULL;
- - GET_ATTR_start(INTERP, SELF, start);
- - GET_ATTR_slots(INTERP, SELF, slots);
- return slots[start + pos];
- }
Add Comment
Please, Sign In to add comment