summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-01-26 16:28:59 +0000
committerNicholas Clark <nick@ccl4.org>2010-05-21 07:03:52 +0100
commit89f6f2871ea81b2c6a09311796395c610f3e3464 (patch)
tree62a383f56103691b438c7720cc051041550babce
parentde0a224a057997a65d38856f1981702fca5d7c18 (diff)
downloadperl-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.h7
-rw-r--r--sv.h1
2 files changed, 2 insertions, 6 deletions
diff --git a/regexp.h b/regexp.h
index 5d843584aa..502259fdb1 100644
--- a/regexp.h
+++ b/regexp.h
@@ -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
diff --git a/sv.h b/sv.h
index 7793e29d96..d5872c92f1 100644
--- a/sv.h
+++ b/sv.h
@@ -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 {