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