Change 34930 by [EMAIL PROTECTED] on 2008/11/26 21:10:57
The vestigial PL_pad_reset_pending can actually be BOOL, rather than
I32. This permits some space saving rejigging of the interpreter
struct.
Affected files ...
... //depot/perl/intrpvar.h#241 edit
... //depot/perl/pad.c#130 edit
Differences ...
==== //depot/perl/intrpvar.h#241 (text) ====
Index: perl/intrpvar.h
--- perl/intrpvar.h#240~34887~ 2008-11-18 13:01:24.000000000 -0800
+++ perl/intrpvar.h 2008-11-26 13:10:57.000000000 -0800
@@ -459,12 +459,14 @@
PERLVAR(Ipadix, I32) /* max used index in current
"register" pad */
PERLVAR(Ipadix_floor, I32) /* how low may inner block reset padix
*/
-PERLVAR(Ipad_reset_pending, I32) /* reset pad on next attempted alloc */
PERLVAR(Ihints, U32) /* pragma-tic compile-time
flags */
PERLVAR(Idebug, VOL U32) /* flags given to -D switch */
+/* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen" */
+PERLVARI(Ibreakable_sub_gen, U32, 0)
+
PERLVARI(Iamagic_generation, long, 0)
#ifdef USE_LOCALE_COLLATE
@@ -524,7 +526,7 @@
PERLVARI(Icryptseen, bool, FALSE) /* has fast crypt() been initialized? */
#endif
-/* Space for a U8 */
+PERLVAR(Ipad_reset_pending, bool) /* reset pad on next attempted alloc */
PERLVARI(Iglob_index, int, 0)
@@ -679,9 +681,6 @@
PERLVARI(Isv_serial, U32, 0) /* SV serial number, used in sv.c */
#endif
-/* Perl_Ibreakable_sub_generation_ptr was too long for VMS, hence "gen" */
-PERLVARI(Ibreakable_sub_gen, U32, 0)
-
/* If you are adding a U8 or U16, check to see if there are 'Space' comments
* above on where there are gaps which currently will be structure padding. */
==== //depot/perl/pad.c#130 (text) ====
Index: perl/pad.c
--- perl/pad.c#129~34929~ 2008-11-26 12:53:23.000000000 -0800
+++ perl/pad.c 2008-11-26 13:10:57.000000000 -0800
@@ -180,7 +180,7 @@
SAVEI32(PL_max_intro_pending);
SAVEBOOL(PL_cv_has_eval);
if (flags & padnew_SAVESUB) {
- SAVEI32(PL_pad_reset_pending);
+ SAVEBOOL(PL_pad_reset_pending);
}
}
}
End of Patch.
