NVs not necessarily doubles, as pointed out by Yitzchak.

p4raw-id: //depot/perl@6918

diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap
index d65ead2..9961f2d 100644 (file)
--- a/lib/ExtUtils/typemap
+++ b/lib/ExtUtils/typemap
@@ -225,7 +225,7 @@ T_U_CHAR
 T_FLOAT
        sv_setnv($arg, (double)$var);
 T_NV
-       sv_setnv($arg, (double)$var);
+       sv_setnv($arg, (NV)$var);
 T_DOUBLE
        sv_setnv($arg, (double)$var);
 T_PV