"double" should be "NV"; standard typemap is missing entry

for NV p4raw-id: //depot/maint-5.6/perl@9544
rurban · Apr 4, 2001 · 405f61b · 405f61b
1 parent 3da0943
commit 405f61b
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 5 deletions.
diff --git a/ext/B/B.xs b/ext/B/B.xs
@@ -883,11 +883,11 @@ packiv(sv)
 
 MODULE = B	PACKAGE = B::NV		PREFIX = Sv
 
-double
+NV
 SvNV(sv)
 	B::NV	sv
 
-double
+NV
 SvNVX(sv)
 	B::NV	sv
 

diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
@@ -1048,15 +1048,15 @@ typedef struct {
     STRLEN	xpv_cur;	/* length of xp_pv as a C string */
     STRLEN	xpv_len;	/* allocated size */
     IV		xof_off;	/* integer value */
-    double	xnv_nv;		/* numeric value, if any */
+    NV		xnv_nv;		/* numeric value, if any */
     MAGIC*	xmg_magic;	/* magic for scalar array */
     HV*		xmg_stash;	/* class package */
 
     HV *	xcv_stash;
     OP *	xcv_start;
     OP *	xcv_root;
-    void      (*xcv_xsub) (CV*);
-    void *	xcv_xsubany;
+    void      (*xcv_xsub) (pTHXo_ CV*);
+    ANY		xcv_xsubany;
     GV *	xcv_gv;
     char *	xcv_file;
     long	xcv_depth;	/* >= 2 indicates recursive call */

diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap
@@ -29,6 +29,7 @@ CV *			T_CVREF
 
 IV			T_IV
 UV			T_UV
+NV			T_NV
 I32			T_IV
 I16			T_IV
 I8			T_IV