X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mop.c;h=126568d78352871b4a0e8dcf5cc0f43dbbe9158c;hb=116a9f45254633c6eb9d24da20bba255b28a8b66;hp=16d8f53d84f769920a4964a33ad0929c466e55a7;hpb=20c230c5c7983491ab3630aca435412382f69a2b;p=gitmo%2FClass-MOP.git

diff --git a/mop.c b/mop.c
index 16d8f53..126568d 100644
--- a/mop.c
+++ b/mop.c
@@ -1,7 +1,7 @@
 #include "mop.h"
 
 void
-mop_call_xs (pTHX_ void (*subaddr) (pTHX_ CV *), CV *cv, SV **mark)
+mop_call_xs (pTHX_ XSPROTO(subaddr), CV *cv, SV **mark)
 {
     dSP;
     PUSHMARK(mark);
@@ -253,7 +253,7 @@ XS(mop_xs_simple_reader)
     dXSARGS;
 #endif
     register HE *he;
-    mop_prehashed_key_t key = CvXSUBANY(cv).any_i32;
+    mop_prehashed_key_t key = (mop_prehashed_key_t)CvXSUBANY(cv).any_i32;
     SV *self;
 
     if (items != 1) {