diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-07-02 13:16:45 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-07-03 19:21:19 -0600 |
| commit | e0ce103ae532f9576f54a5938a24d1ee98dfb928 (patch) | |
| tree | 3b83940e35f28b4e594bf89d4c66038363d5d742 /inline_invlist.c | |
| parent | e045dbedc7da04e20cc8cfccec8a2e3ccc62cc8b (diff) | |
| download | perl-e0ce103ae532f9576f54a5938a24d1ee98dfb928.tar.gz | |
Use new Svt_INVLIST for inversion lists.
This converts inversion lists to use their own scalar type.
Diffstat (limited to 'inline_invlist.c')
| -rw-r--r-- | inline_invlist.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/inline_invlist.c b/inline_invlist.c index ced42d85c0..a29964524b 100644 --- a/inline_invlist.c +++ b/inline_invlist.c @@ -21,7 +21,7 @@ S__get_invlist_len_addr(pTHX_ SV* invlist) PERL_ARGS_ASSERT__GET_INVLIST_LEN_ADDR; - return &(LvTARGLEN(invlist)); + return &(((XINVLIST*) SvANY(invlist))->count); } PERL_STATIC_INLINE UV |