diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-06-11 16:57:22 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-07-03 19:21:19 -0600 |
| commit | e045dbedc7da04e20cc8cfccec8a2e3ccc62cc8b (patch) | |
| tree | 4e3f84c2751b6512a15f8fb3a5c656e849152d20 /dump.c | |
| parent | 05944450e0fc82eb8fc1fb5a4bf63f23785262a0 (diff) | |
| download | perl-e045dbedc7da04e20cc8cfccec8a2e3ccc62cc8b.tar.gz | |
Create SVt_INVLIST
This reshuffles the svtype enum to remove the dummy slot created in a
previous commit, and add the new SVt_INVLIST type in its proper order.
It still is unused, but since it is an extension of SVt_PV, it must be
greater than that type's enum value. Since it can't be upgraded to any
other PV type, it comes right after SVt_PV.
Affected tables in the core are updated.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -27,13 +27,12 @@ #include "perl.h" #include "regcomp.h" - static const char* const svtypenames[SVt_LAST] = { "NULL", - "DUMMY", "IV", "NV", "PV", + "INVLIST", "PVIV", "PVNV", "PVMG", @@ -50,10 +49,10 @@ static const char* const svtypenames[SVt_LAST] = { static const char* const svshorttypenames[SVt_LAST] = { "UNDEF", - "DUMMY", "IV", "NV", "PV", + "INVLST", "PVIV", "PVNV", "PVMG", @@ -2798,7 +2797,7 @@ Perl_sv_xmlpeek(pTHX_ SV *sv) case SVt_PVGV: sv_catpv(t, " GV=\""); break; - case SVt_DUMMY: + case SVt_INVLIST: sv_catpv(t, " DUMMY=\""); break; case SVt_REGEXP: |