]> git.imager.perl.org - imager.git/blobdiff - typemap
difference() method
[imager.git] / typemap
diff --git a/typemap b/typemap
index f39ed30ea3fbc4717d169c1e66329d54efd4e91b..52ad53cb8a96e088bb95641e2495c42bb8c0bcfc 100644 (file)
--- a/typemap
+++ b/typemap
@@ -2,7 +2,7 @@
 Imager::Color           T_PTROBJ
 Imager::Color::Float    T_PTROBJ
 Imager::ImgRaw          T_PTROBJ
 Imager::Color           T_PTROBJ
 Imager::Color::Float    T_PTROBJ
 Imager::ImgRaw          T_PTROBJ
-Imager::TTHandle       T_PTROBJ
+Imager::Font::TT       T_PTROBJ
 Imager::IO              T_PTROBJ
 Imager::Font::FT2       T_PTROBJ
 Imager::FillHandle      T_PTROBJ
 Imager::IO              T_PTROBJ
 Imager::Font::FT2       T_PTROBJ
 Imager::FillHandle      T_PTROBJ
@@ -14,7 +14,7 @@ HASH                  T_HVREF
 #############################################################################
 INPUT
 T_PTR_NULL
 #############################################################################
 INPUT
 T_PTR_NULL
-       if (SvOK($arg)) $var = ($type)SvIV($arg);
+       if (SvOK($arg)) $var = INT2PTR($type,SvIV($arg));
        else $var = NULL
 #############################################################################
 OUTPUT
        else $var = NULL
 #############################################################################
 OUTPUT