X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=sv.h;h=ab09bba30660f48e4e9e137d47aa436302319847;hb=b30ea4af1eb31dd77630f331817dfe421bf8b269;hp=75c45bf16e0ac8e2687fda03cf8908d6f3b30337;hpb=f2403e576d341819f7522a9cf18063ca4eda9433;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/sv.h b/sv.h
index 75c45bf..ab09bba 100644
--- a/sv.h
+++ b/sv.h
@@ -266,7 +266,7 @@ perform the upgrade if necessary.  See C<svtype>.
 #endif
 
 #define SVTYPEMASK	0xff
-#define SvTYPE(sv)	((sv)->sv_flags & SVTYPEMASK)
+#define SvTYPE(sv)	(svtype)((sv)->sv_flags & SVTYPEMASK)
 
 /* Sadly there are some parts of the core that have pointers to already-freed
    SV heads, and rely on being able to tell that they are now free. So mark