diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-01-26 16:28:59 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-05-21 07:03:52 +0100 |
commit | 89f6f2871ea81b2c6a09311796395c610f3e3464 (patch) | |
tree | 62a383f56103691b438c7720cc051041550babce | |
parent | de0a224a057997a65d38856f1981702fca5d7c18 (diff) | |
download | perl-89f6f2871ea81b2c6a09311796395c610f3e3464.tar.gz |
Remove union _xivu from struct regexp - replace it with a non-union paren_names.
This was the only user of xivu_hv in union _xivu, so remove that too.
-rw-r--r-- | regexp.h | 7 | ||||
-rw-r--r-- | sv.h | 1 |
2 files changed, 2 insertions, 6 deletions
@@ -70,6 +70,7 @@ typedef struct regexp_paren_pair { /* what engine created this regexp? */ \ const struct regexp_engine* engine; \ REGEXP *mother_re; /* what re is this a lightweight copy of? */ \ + HV *paren_names; /* Optional hash of paren names */ \ /* Information about the match that the perl core uses to */ \ /* manage things */ \ U32 extflags; /* Flags used both externally and internally */ \ @@ -103,14 +104,10 @@ typedef struct regexp_paren_pair { typedef struct regexp { _XPV_HEAD; - union _xivu xiv_u; _REGEXP_COMMON; } regexp; -/* HV *paren_names; Optional hash of paren names - now stored in the IV union */ - -#define RXp_PAREN_NAMES(rx) ((rx)->xiv_u.xivu_hv) +#define RXp_PAREN_NAMES(rx) ((rx)->paren_names) /* used for high speed searches */ typedef struct re_scream_pos_data_s @@ -420,7 +420,6 @@ union _xivu { UV xivu_uv; I32 xivu_i32; HEK * xivu_namehek; /* xpvlv, xpvgv: GvNAME */ - HV * xivu_hv; /* regexp: paren_names */ }; union _xmgu { |