#define indirect_map_delete(O) indirect_map_delete(aTHX_ (O))
OP2STR_BUF;
- hv_delete(indirect_map, buf, OP2STR(o), G_DISCARD);
+ (void)hv_delete(indirect_map, buf, OP2STR(o), G_DISCARD);
}
STATIC void indirect_map_clean_kids(pTHX_ const OP *o) {
#define indirect_map_clean_kids(O) indirect_map_clean_kids(aTHX_ (O))
if (o->op_flags & OPf_KIDS) {
- const OP *kid = cUNOPo->op_first;
+ const OP *kid = ((const UNOP *) o)->op_first;
for (; kid; kid = kid->op_sibling) {
indirect_map_clean_kids(kid);
indirect_map_delete(kid);
SV *sv;
const char *name = NULL, *s;
STRLEN len;
- OPCODE type = op->op_type;
+ OPCODE type = (OPCODE) op->op_type;
switch (type) {
case OP_GV: