[svn:ponie] rev 330 - trunk/perl

Author: nicholas
Date: Tue Jul 12 05:31:24 2005
New Revision: 330

Modified:
   trunk/perl/sv.h
Log:
There's no need for a ll the STMT_START/assert paranoia as we're
*calling into a function* (which can therefore do anything it likes)
This should make the code a lot more portable.


Modified: trunk/perl/sv.h
==============================================================================
--- trunk/perl/sv.h	(original)
+++ trunk/perl/sv.h	Tue Jul 12 05:31:24 2005
@@ -942,35 +942,25 @@ and leaves the UTF-8 status as it was.
 	STMT_START {if (!SvIOKp(sv) && (SvNOK(sv) || SvPOK(sv))) \
 		(void) SvIV(sv); } STMT_END
 #define SvIV_set(sv, val) \
-	STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
-		(*(IV *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_IVX) = (val)); } STMT_END
+		(*(IV *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_IVX) = (val))
 #define SvUV_set(sv, val) \
-	STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
-		(*(UV *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_UVX) = (val)); } STMT_END
+		(*(UV *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_UVX) = (val))
 #define SvNV_set(sv, val) \
-	STMT_START { assert(SvTYPE(sv) == SVt_NV || SvTYPE(sv) >= SVt_PVNV); \
-		(*(NV *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_NVX) = (val)); } STMT_END
+		(*(NV *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_NVX) = (val))
 #define SvPV_set(sv, val) \
-	STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
-		(*(char **)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_PVX) = (val)); } STMT_END
+		(*(char **)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_PVX) = (val))
 #define SvRV_set(sv, val) \
-        STMT_START { assert(SvTYPE(sv) >=  SVt_RV); \
-                (*(SV **)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_RV) = (val)); } STMT_END
+                (*(SV **)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_RV) = (val))
 #define SvMAGIC_set(sv, val) \
-        STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
-                (*(MAGIC**)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_MAGIC) = (val)); } STMT_END
+                (*(MAGIC**)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_MAGIC) = (val))
 #define SvSTASH_set(sv, val) \
-        STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
-                (*(HV **)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_STASH) = (val)); } STMT_END
+                (*(HV **)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_STASH) = (val))
 #define SvCUR_set(sv, val) \
-	STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
-		(*(STRLEN *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_CUR) = (val)); } STMT_END
+		(*(STRLEN *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_CUR) = (val))
 #define SvLEN_set(sv, val) \
-	STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
-		(*(STRLEN *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_LEN) = (val)); } STMT_END
+		(*(STRLEN *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_LEN) = (val))
 #define SvEND_set(sv, val) \
-	STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
-		(*(STRLEN *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_CUR) = (val) - SvPVX(sv)); } STMT_END
+		(*(STRLEN *)Parrot_PMC_get_pointer_intkey(PL_Parrot,MUMBLE(sv), Ponie_P_CUR) = (val) - SvPVX(sv))
 
 #define SvPV_renew(sv,n) \
 	STMT_START { SvLEN_set(sv, n); \