diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-04-07 11:29:51 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-04-07 11:29:51 +0000 |
| commit | dca6062a863d0e957d067cc75f9e13b2e28b1090 (patch) | |
| tree | ba5e82876236d273b32dfcb60607b1a1eefe679a /embed.h | |
| parent | b1cf8b36002caf0ed4905946652ecfd99208858c (diff) | |
| download | perl-dca6062a863d0e957d067cc75f9e13b2e28b1090.tar.gz | |
Eliminate cop_label from struct cop by storing a label as the first
entry in the hints hash. Most statements don't have labels, so this
will save memory. Not sure how much.
p4raw-id: //depot/perl@33656
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1934,6 +1934,7 @@ #ifdef PERL_CORE #define boot_core_mro Perl_boot_core_mro #endif +#define fetch_cop_label Perl_fetch_cop_label #define ck_anoncode Perl_ck_anoncode #define ck_bitop Perl_ck_bitop #define ck_chdir Perl_ck_chdir @@ -4253,6 +4254,7 @@ #ifdef PERL_CORE #define boot_core_mro() Perl_boot_core_mro(aTHX) #endif +#define fetch_cop_label(a,b,c) Perl_fetch_cop_label(aTHX_ a,b,c) #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_chdir(a) Perl_ck_chdir(aTHX_ a) |