Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- VTABLE PMC * get_pmc_keyed_int(INTVAL pos) {
- Parrot_QRPA_attributes *qrpa = PARROT_QRPA(SELF);
- INTVAL elems = qrpa->elems;
- if (pos < 0)
- pos += elems;
- if (pos < 0)
- Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_OUT_OF_BOUNDS,
- "QRPA: index out of bounds");
- if (pos >= elems)
- return PMCNULL;
- return qrpa->slots[pos];
- }
Add Comment
Please, Sign In to add comment