This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Reorder interpreter struct to remove alignment hole created by 9a87bd09eea1d037
authorNicholas Clark <nick@ccl4.org>
Wed, 8 Sep 2010 10:42:05 +0000 (11:42 +0100)
committerNicholas Clark <nick@ccl4.org>
Wed, 8 Sep 2010 10:42:05 +0000 (11:42 +0100)
nice_chunk_size was U32, and had been paired with another 32 bit value to
ensure that all 64 bit quantities were naturally 64 bit aligned. There already
was a 32 bit "hole" elsewhere - reorder the two unpaired 32 bit values next to
each other.

intrpvar.h

index 749be42..ffe59c8 100644 (file)
@@ -445,7 +445,7 @@ PERLVAR(Isighandlerp,       Sighandler_t)
 
 PERLVARA(Ibody_roots,  PERL_ARENA_ROOTS_SIZE, void*) /* array of body roots */
 
-/* Space for an int */
+PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
 
 PERLVARI(Imaxo,        int,    MAXO)           /* maximum number of ops */
 
@@ -634,10 +634,6 @@ PERLVARI(Iunitcheckav_save, AV*, NULL)     /* save UNITCHECK{}s when compiling */
 
 PERLVARI(Iclocktick, long, 0)  /* this many times() ticks in a second */
 
-/* Space for an int */
-
-PERLVAR(Iunicode, U32) /* Unicode features: $ENV{PERL_UNICODE} or -C */
-
 PERLVAR(Isignals, U32) /* Using which pre-5.8 signals */
 
 PERLVAR(Ireentrant_retint, int)        /* Integer return value from reentrant functions */