develooper Front page | perl.perl5.porters | Postings from February 2004

[PATCH] simplify sv.h

Thread Next
From:
Arthur Bergman
Date:
February 29, 2004 14:05
Subject:
[PATCH] simplify sv.h
Message ID:
4D3C272C-6B03-11D8-B799-000A95A2734C@nanisky.com
This patch is from ponie, it should apply with some fudge factor.

Cheers
Arthur

ps, if anyone finds the reason for the insane repetition, please speak 
up


diff -u -r1.8 sv.h
--- sv.h        29 Feb 2004 18:02:19 -0000      1.8
+++ sv.h        29 Feb 2004 22:03:22 -0000
@@ -763,22 +763,22 @@
                 (void) SvIV(sv); } STMT_END
  #define SvIV_set(sv, val) \
         STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= 
SVt_PVIV); \
-               (((XPVIV*)  SvANY(sv))->xiv_iv = val); } STMT_END
+               (SvIVX(sv) = val); } STMT_END
  #define SvNV_set(sv, val) \
         STMT_START { assert(SvTYPE(sv) == SVt_NV || SvTYPE(sv) >= 
SVt_PVNV); \
-               (((XPVNV*)  SvANY(sv))->xnv_nv = val); } STMT_END
+               (SvNVX(sv) = val); } STMT_END
  #define SvPV_set(sv, val) \
         STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
-               (((XPV*)  SvANY(sv))->xpv_pv = val); } STMT_END
+               (SvPVX(sv) = val); } STMT_END
  #define SvCUR_set(sv, val) \
         STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
-               (((XPV*)  SvANY(sv))->xpv_cur = val); } STMT_END
+               (SvCUR(sv) = val); } STMT_END
  #define SvLEN_set(sv, val) \
         STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
-               (((XPV*)  SvANY(sv))->xpv_len = val); } STMT_END
+               (SvLEN(sv) = val); } STMT_END
  #define SvEND_set(sv, val) \
         STMT_START { assert(SvTYPE(sv) >= SVt_PV); \
-               (((XPV*)  SvANY(sv))->xpv_cur = val - SvPVX(sv)); } 
STMT_END
+               (SvCUR(sv) = val - SvPVX(sv)); } STMT_END

  #define BmRARE(sv)     ((XPVBM*)  SvANY(sv))->xbm_rare
  #define BmUSEFUL(sv)   ((XPVBM*)  SvANY(sv))->xbm_useful


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About