X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/19e9591baa02172b384aec1d599cdc281076b637..e3bf99ccc9c9505c5f4266c897f32812ddaeeb7d:/typemap?ds=sidebyside diff --git a/typemap b/typemap index 5bd5a473..83f7152f 100644 --- a/typemap +++ b/typemap @@ -14,9 +14,6 @@ HASH T_HVREF utf8_str T_UTF8_STR i_img_dim T_IV -double * T_AVARRAY -int * T_AVARRAY - # these types are for use by Inline, which can't handle types containing :: Imager__Color T_PTROBJ_INV Imager__Color__Float T_PTROBJ_INV @@ -79,31 +76,6 @@ T_PTROBJ_INV else croak(\"$var is not of type ${(my $ntt=$ntype)=~s/__/::/g;\$ntt}\"); -T_AVARRAY - STMT_START { - SV* const xsub_tmp_sv = $arg; - SvGETMAGIC(xsub_tmp_sv); - if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){ - AV *xsub_tmp_av = (AV*)SvRV(xsub_tmp_sv); - STRLEN xsub_index; - size_$var = av_len(xsub_tmp_av) + 1; - $var = $ntype(size_$var); - for (xsub_index = 0; xsub_index < size_$var; ++xsub_index) { - SV **sv = av_fetch(xsub_tmp_av, xsub_index, 0); - if (sv) { - ${var}[xsub_index] = Sv${(my $ntt = $ntype) =~ s/Ptr$//; \(ucfirst $ntt)}(*sv); - } - else - ${var}[xsub_index] = 0; - } - } - else{ - Perl_croak(aTHX_ \"%s: %s is not an ARRAY reference\", - ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, - \"$var\"); - } - } STMT_END - ############################################################################# OUTPUT