[rt #74540] handle the TIFF SampleFormat tag

[imager.git] / TIFF / TIFF.xs

diff --git a/TIFF/TIFF.xs b/TIFF/TIFF.xs
index 3765d4f6d1579fa656be698a8ac274741ded3943..43be5af88c87a14c436f7efc5aa5da3215bdeadc 100644 (file)
--- a/TIFF/TIFF.xs
+++ b/TIFF/TIFF.xs
@@ -11,6 +11,12 @@ extern "C" {
 
 DEFINE_IMAGER_CALLBACKS;
 
+#ifdef IEEEFP_TYPES
+#define i_tiff_ieeefp() &PL_sv_yes
+#else
+#define i_tiff_ieeefp() &PL_sv_no
+#endif
+
 MODULE = Imager::File::TIFF  PACKAGE = Imager::File::TIFF
 
 Imager::ImgRaw
@@ -140,6 +146,9 @@ bool
 i_tiff_has_compression(name)
        const char *name
 
+SV *
+i_tiff_ieeefp()
 
 BOOT:
        PERL_INITIALIZE_IMAGER_CALLBACKS;
+       i_tiff_init();
\ No newline at end of file