diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-11-08 08:12:39 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-11-08 08:12:39 +0000 |
| commit | 4b9177c9407ab3c950f2f7b002e32eb771033c72 (patch) | |
| tree | a74e7f7452c9fed32ef42bc94d66f1bffdfdfe95 /ext | |
| parent | dde513e7df428db56faf139ee63f9120c7b4efa1 (diff) | |
| download | perl-4b9177c9407ab3c950f2f7b002e32eb771033c72.tar.gz | |
Merge the implementation of B::COP::{filegv,stash} using ALIAS.
On this platform, this reduces the object size by about 400 bytes for a threaded
build.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B.xs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 6f9f9c862a..9e995ef330 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -1242,16 +1242,16 @@ COP_label(o) # above (B::OP::next) #ifdef USE_ITHREADS -#define COP_stash(o) CopSTASH(o) -#define COP_filegv(o) CopFILEGV(o) -B::HV +B::SV COP_stash(o) B::COP o - -B::GV -COP_filegv(o) - B::COP o + ALIAS: + filegv = 1 + CODE: + RETVAL = ix ? (SV *)CopFILEGV(o) : (SV *)CopSTASH(o); + OUTPUT: + RETVAL #else |