add newer malloc.c from Ilya Zakharevich <ilya@math.ohio-state.edu>

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / typemap

diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap
index 14d1222..03ba050 100644 (file)
--- a/lib/ExtUtils/typemap
+++ b/lib/ExtUtils/typemap
@@ -127,7 +127,7 @@ T_REF_IV_PTR
        else
            croak(\"$var is not of type ${ntype}\")
 T_PTROBJ
-       if (sv_isa($arg, \"${ntype}\")) {
+       if (sv_derived_from($arg, \"${ntype}\")) {
            IV tmp = SvIV((SV*)SvRV($arg));
            $var = ($type) tmp;
        }
@@ -203,7 +203,7 @@ T_SYSRET
 T_ENUM
        sv_setiv($arg, (IV)$var);
 T_BOOL
-       $arg = $var ? &sv_yes : &sv_no;
+       $arg = boolSV($var);
 T_U_INT
        sv_setiv($arg, (IV)$var);
 T_SHORT
@@ -262,7 +262,7 @@ T_ARRAY
                ST(ix_$var) = sv_newmortal();
        DO_ARRAY_ELEM
        }
-       sp += $var.size - 1;
+       SP += $var.size - 1;
 T_IN
        {
            GV *gv = newGVgen("$Package");