From: Vincent Pit <vince@profvince.com>
Date: Fri, 11 Nov 2011 17:16:35 +0000 (+0100)
Subject: Pack uplevel()'s internal data structure more tightly
X-Git-Tag: v0.19~13
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=1700cf753646d7d8f1076277bbfe70c18e047ac4

Pack uplevel()'s internal data structure more tightly

It is now about 7% smaller on x86_64.
---

diff --git a/Upper.xs b/Upper.xs
index 259d2fc..1970261 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -322,30 +322,32 @@ typedef struct {
 #define SU_UPLEVEL_HIJACKS_RUNOPS SU_HAS_PERL(5, 8, 0)
 
 typedef struct {
- void *next;
+ void          *next;
 
- I32  cxix;
- bool died;
+ su_uid_storage new_uid_storage;
+ su_uid_storage old_uid_storage;
 
- CV  *target;
- I32  target_depth;
+ I32            cxix;
 
- CV  *callback;
- CV  *renamed;
+ I32            target_depth;
+ CV            *target;
 
- PERL_SI *si;
- PERL_SI *old_curstackinfo;
- AV      *old_mainstack;
+ CV            *callback;
+ CV            *renamed;
 
- COP *old_curcop;
+ PERL_SI       *si;
+ PERL_SI       *old_curstackinfo;
+ AV            *old_mainstack;
 
+ COP           *old_curcop;
+
+ OP            *old_op;
 #if SU_UPLEVEL_HIJACKS_RUNOPS
  runops_proc_t  old_runops;
 #endif
  bool           old_catch;
- OP            *old_op;
 
- su_uid_storage new_uid_storage, old_uid_storage;
+ bool           died;
 } su_uplevel_ud;
 
 STATIC su_uplevel_ud *su_uplevel_ud_new(pTHX) {