Guest User

Untitled

a guest
Oct 16th, 2018
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.47 KB | None | 0 0
  1. VTABLE PMC *get_pmc_keyed_int(INTVAL key) {
  2. PMC **data;
  3.  
  4. if (key < 0)
  5. key += PMC_size(SELF);
  6.  
  7. if (key < 0)
  8. Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_OUT_OF_BOUNDS,
  9. "ResizablePMCArray: index out of bounds!");
  10.  
  11. if (key >= PMC_size(SELF))
  12. return PMCNULL;
  13.  
  14. data = PMC_array(SELF);
  15.  
  16. if (PMC_IS_NULL(data[key]))
  17. return PMCNULL;
  18.  
  19. return data[key];
  20. }
Add Comment
Please, Sign In to add comment