This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rename PL_interp_size_5_16_0 to PL_interp_size_5_18_0.
authorNicholas Clark <nick@ccl4.org>
Tue, 19 Feb 2013 18:47:14 +0000 (19:47 +0100)
committerNicholas Clark <nick@ccl4.org>
Tue, 19 Feb 2013 18:47:14 +0000 (19:47 +0100)
globvar.sym
intrpvar.h
makedef.pl
perl.h

index 93eca43..8401f21 100644 (file)
@@ -16,7 +16,7 @@ freq
 global_struct_size
 hexdigit
 interp_size
-interp_size_5_16_0
+interp_size_5_18_0
 keyword_plugin
 latin1_lc
 magic_data
index 8a2c664..852f9a0 100644 (file)
@@ -722,11 +722,11 @@ PERLVAR(I, custom_ops,    HV *)           /* custom op registrations */
 /* Hook for File::Glob */
 PERLVARI(I, globhook,  globhook_t, NULL)
 
-/* The last unconditional member of the interpreter structure when 5.10.0 was
+/* The last unconditional member of the interpreter structure when 5.18.0 was
    released. The offset of the end of this is baked into a global variable in 
    any shared perl library which will allow a sanity test in future perl
    releases.  */
-#define PERL_LAST_5_16_0_INTERP_MEMBER Iglobhook
+#define PERL_LAST_5_18_0_INTERP_MEMBER Iglobhook
 
 #ifdef PERL_IMPLICIT_CONTEXT
 PERLVARI(I, my_cxt_list, void **, NULL) /* per-module array of MY_CXT pointers */
index 6c1b8f3..eefbbe4 100644 (file)
@@ -452,7 +452,7 @@ unless ($define{PERL_MAD}) {
 unless ($define{'MULTIPLICITY'}) {
     ++$skip{$_} foreach qw(
                    PL_interp_size
-                   PL_interp_size_5_16_0
+                   PL_interp_size_5_18_0
                         );
 }
 
diff --git a/perl.h b/perl.h
index 29c4425..b265f07 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -5027,8 +5027,8 @@ EXTCONST U16 PL_interp_size
 /* This will be useful for subsequent releases, because this has to be the
    same in your libperl as in main(), else you have a mismatch and must abort.
 */
-EXTCONST U16 PL_interp_size_5_16_0
-  INIT(PERL_INTERPRETER_SIZE_UPTO_MEMBER(PERL_LAST_5_16_0_INTERP_MEMBER));
+EXTCONST U16 PL_interp_size_5_18_0
+  INIT(PERL_INTERPRETER_SIZE_UPTO_MEMBER(PERL_LAST_5_18_0_INTERP_MEMBER));
 
 
 #  ifdef PERL_GLOBAL_STRUCT