X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/cb4d223c78c2b8e22a52af55cc5aa3b119c139af..8bb07aa6a5cf99adb78991f30046d2367a0776b1:/typemap

diff --git a/typemap b/typemap
index 91e20960..83f7152f 100644
--- a/typemap
+++ b/typemap
@@ -5,7 +5,6 @@ Imager::ImgRaw          T_IMAGER_IMAGE
 Imager::Font::TT	T_PTROBJ
 Imager::IO              T_PTROBJ
 Imager::FillHandle      T_PTROBJ
-Imager::Internal::Hlines T_PTROBJ
 const char *		T_PV
 float			T_FLOAT
 float*			T_ARRAY
@@ -25,24 +24,12 @@ Imager__IO              T_PTROBJ_INV
 # mostly intended for non-Imager-core use
 Imager                  T_IMAGER_FULL_IMAGE
 
-off_t			T_OFF_T
-
-# STRLEN isn't in the default typemap in older perls
-STRLEN	       	      	T_UV
-
 #############################################################################
 INPUT
 T_PTR_NULL
 	if (SvOK($arg)) $var = INT2PTR($type,SvIV($arg));
 	else $var = NULL
 
-# the pre-5.8.0 T_AVREF input map was fixed in 5.8.0
-T_AVREF
-        if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
-            $var = (AV*)SvRV($arg);
-        else
-            Perl_croak(aTHX_ \"$var is not an array reference\")
-
 # handles Imager objects rather than just raw objects
 T_IMAGER_IMAGE
         if (sv_derived_from($arg, \"Imager::ImgRaw\")) {
@@ -89,8 +76,6 @@ T_PTROBJ_INV
         else
             croak(\"$var is not of type ${(my $ntt=$ntype)=~s/__/::/g;\$ntt}\");
 
-T_OFF_T
-  $var = i_sv_off_t(aTHX_ $arg);
 
 #############################################################################
 OUTPUT
@@ -123,5 +108,3 @@ T_IMAGER_FULL_IMAGE
         else {
           $arg = &PL_sv_undef;
         }
-T_OFF_T
-	$arg = i_new_sv_off_t(aTHX_ $var);