From: Yuval Kogman Date: Thu, 21 Aug 2008 10:12:44 +0000 (+0000) Subject: shutup -Wall X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85ddc6858622f51db611248d7ac128fe16688d7b;p=gitmo%2FMoose.git shutup -Wall --- diff --git a/Moose.xs b/Moose.xs index 2d730fa..9986e1f 100644 --- a/Moose.xs +++ b/Moose.xs @@ -70,7 +70,7 @@ STATIC MAGIC *stash_in_mg (pTHX_ SV *sv, SV *obj) { } STATIC SV *get_stashed_in_mg(pTHX_ SV *sv) { - MAGIC *mg, *moremagic; + MAGIC *mg; if (SvTYPE(sv) >= SVt_PVMG) { for (mg = SvMAGIC(sv); mg; mg = mg->mg_moremagic) { @@ -359,6 +359,8 @@ STATIC bool check_reftype(TC type, SV *sv) { case CodeRef: svt = SVt_PVCV; break; + default: + croak("not a reftype %d\n", type); } return SvTYPE(SvRV(sv)) == svt; @@ -528,6 +530,9 @@ STATIC bool check_type_constraint(pTHX_ tc_kind kind, TC_CHECK tc_check, SV *typ case tc_cv: return check_sv_cv(aTHX_ tc_check.sv, sv); break; + case tc_enum: + croak("todo\n"); + break; } croak("todo");