X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=sv.h;h=003e0418df18503ba3bf170e9de8fe8474c697cb;hb=261fcdab08d4144aee77d6e62cd6bdfc3c1a418e;hp=44e9cf2e04646b5778cf8f2ecb2bab5e9d0a8652;hpb=771ba71a7bf3673decf297992c8591f2ff873802;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/sv.h b/sv.h
index 44e9cf2..003e041 100644
--- a/sv.h
+++ b/sv.h
@@ -62,6 +62,11 @@ typedef enum {
 	SVt_PVIO	/* 15 */
 } svtype;
 
+
+/* typedefs to eliminate some typing */
+typedef struct he HE;
+typedef struct hek HEK;
+
 /* Using C's structural equivalence to help emulate C++ inheritance here... */
 
 struct STRUCT_SV {		/* struct sv { */
@@ -74,6 +79,7 @@ struct STRUCT_SV {		/* struct sv { */
 	SV*	svu_rv;		/* pointer to another SV */
 	char*	svu_pv;    	/* pointer to malloced string */
 	SV**	svu_array;
+	HE**	svu_hash;
     }		sv_u;
 #ifdef DEBUG_LEAKING_SCALARS
     unsigned	sv_debug_optype:9;	/* the type of OP that allocated us */
@@ -94,6 +100,7 @@ struct gv {
 	SV*	svu_rv;
 	char*	svu_pv;
 	SV**	svu_array;
+	HE**	svu_hash;
     }		sv_u;
 };
 
@@ -107,6 +114,7 @@ struct cv {
 	SV*	svu_rv;
 	char*	svu_pv;
 	SV**	svu_array;
+	HE**	svu_hash;
     }		sv_u;
 };
 
@@ -120,6 +128,7 @@ struct av {
 	SV*	svu_rv;
 	char*	svu_pv;		/* pointer to first array element */
 	SV**	svu_array;
+	HE**	svu_hash;
     }		sv_u;
 };
 
@@ -133,6 +142,7 @@ struct hv {
 	SV*	svu_rv;
 	char*	svu_pv;
 	SV**	svu_array;
+	HE**	svu_hash;
     }		sv_u;
 };
 
@@ -146,6 +156,7 @@ struct io {
 	SV*	svu_rv;
 	char*	svu_pv;
 	SV**	svu_array;
+	HE**	svu_hash;
     }		sv_u;
 };
 
@@ -870,9 +881,11 @@ in gv.h: */
 #define SvRVx(sv) SvRV(sv)
 
 #ifdef PERL_DEBUG_COW
+/* Need -0.0 for SvNVX to preserve IEEE FP "negative zero" because
+   +0.0 + -0.0 => +0.0 but -0.0 + -0.0 => -0.0 */
 #  define SvIVX(sv) (0 + ((XPVIV*) SvANY(sv))->xiv_iv)
 #  define SvUVX(sv) (0 + ((XPVUV*) SvANY(sv))->xuv_uv)
-#  define SvNVX(sv) (0 + ((XPVNV*) SvANY(sv))->xnv_nv)
+#  define SvNVX(sv) (-0.0 + ((XPVNV*) SvANY(sv))->xnv_nv)
 /* Don't test the core XS code yet.  */
 #  if defined (PERL_CORE) && PERL_DEBUG_COW > 1
 #    define SvPVX(sv) (0 + (assert(!SvREADONLY(sv)), (sv)->sv_u.svu_pv))