projects / imager.git / blame
| Commit | Line | Data |
|---|---|---|
| d63caaff TC |
1 | # typemaps for perl before 5.8 |
| 2 | # STRLEN isn't in the default typemap in older perls | |
| 3 | STRLEN T_UV | |
| 4 | ||
| 5 | ############################################################################# | |
| 6 | INPUT | |
| 7 | # the pre-5.8.0 T_AVREF input map was fixed in 5.8.0 | |
| 8 | T_AVREF | |
| 9 | STMT_START { | |
| 10 | SV *const xsub_tmp_sv = $arg; | |
| 11 | SvGETMAGIC(xsub_tmp_sv); | |
| 12 | if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv))==SVt_PVAV) | |
| 13 | $var = (AV*)SvRV(xsub_tmp_sv); | |
| 14 | else | |
| 15 | Perl_croak(aTHX_ \"$var is not an array reference\"); | |
| 16 | } STMT_END | |
| 17 | ||
| 18 | # the pre-5.8.0 T_HVREF input map was fixed in 5.8.0 | |
| 19 | T_HVREF | |
| 20 | STMT_START { | |
| 21 | SV *const xsub_tmp_sv = $arg; | |
| 22 | SvGETMAGIC(xsub_tmp_sv); | |
| 23 | if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv))==SVt_PVHV) | |
| 24 | $var = (HV*)SvRV(xsub_tmp_sv); | |
| 25 | else | |
| 26 | Perl_croak(aTHX_ \"$var is not a hash reference\"); | |
| 27 | } STMT_END | |
| 28 |