Document #11134 and add the new symbols to the list of

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

diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap
index 3304df5..bce6227 100644 (file)
--- a/lib/ExtUtils/typemap
+++ b/lib/ExtUtils/typemap
@@ -19,7 +19,7 @@ size_t                        T_IV
 ssize_t                        T_IV
 time_t                 T_NV
 unsigned long *                T_OPAQUEPTR
-char **                        T_PACKED
+char **                        T_PACKEDARRAY
 void *                 T_PTR
 Time_t *               T_PV
 SV *                   T_SV
@@ -120,16 +120,16 @@ T_PTRREF
        else
            Perl_croak(aTHX_ \"$var is not a reference\")
 T_REF_IV_REF
-       if (sv_isa($arg, \"${type}\")) {
+       if (sv_isa($arg, \"${ntype}\")) {
            IV tmp = SvIV((SV*)SvRV($arg));
-           $var = *($type *) tmp;
+           $var = *INT2PTR($type *, tmp);
        }
        else
            Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
 T_REF_IV_PTR
        if (sv_isa($arg, \"${ntype}\")) {
            IV tmp = SvIV((SV*)SvRV($arg));
-           $var = ($type) tmp;
+           $var = INT2PTR($type, tmp);
        }
        else
            Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
@@ -163,7 +163,7 @@ T_REFOBJ
        else
            Perl_croak(aTHX_ \"$var is not of type ${ntype}\")
 T_OPAQUE
-       $var NOT IMPLEMENTED
+       $var = *($type *)SvPV($arg,PL_na)
 T_OPAQUEPTR
        $var = ($type)SvPV($arg,PL_na)
 T_PACKED