diff options
author | Daniel Dragan <bulk88@hotmail.com> | 2014-11-13 01:59:06 -0500 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-13 04:41:46 -0800 |
commit | 9a18979311347ab1c45e2ef16113bb5abe4cbd26 (patch) | |
tree | 22590b8dffe9c4de5f1bf101111d04690033aea1 /intrpvar.h | |
parent | ed6401c5fdd50fe275e7ed0d9af99dff6ec7c1fb (diff) | |
download | perl-9a18979311347ab1c45e2ef16113bb5abe4cbd26.tar.gz |
add filename handling to xs handshake
- this improves the error message on ABI incompatibility, per
[perl #123136]
- reduce the number of gv_fetchfile calls in newXS over registering many
XSUBs
- "v" was not stripped from PERL_API_VERSION_STRING since string
"vX.XX.X\0", a typical version number is 8 bytes long, and aligned to
4/8 by most compilers in an image. A double digit maint release is
extremely unlikely.
- newXS_deffile saves on machine code in bootstrap functions by not passing
arg filename
- move newXS to where the rest of the newXS*()s live
- move the "no address" panic closer to the start to get it out of the way
sooner flow wise (it nothing to do with var gv or cv)
- move CvANON_on to not check var name twice
- change die message to use %p, more efficient on 32 ptr/64 IV platforms
see ML post "about commit "util.c: fix comiler warnings""
- vars cv/xs_spp (stack pointer pointer)/xs_interp exist for inspection by
a C debugger in an unoptimized build
Diffstat (limited to 'intrpvar.h')
-rw-r--r-- | intrpvar.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index f5d8020d95..c8b0b8d053 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -313,6 +313,7 @@ PERLVAR(I, envgv, GV *) PERLVAR(I, incgv, GV *) PERLVAR(I, hintgv, GV *) PERLVAR(I, origfilename, char *) +PERLVARI(I, xsubfilename, const char *, NULL) PERLVAR(I, diehook, SV *) PERLVAR(I, warnhook, SV *) |