From 43df6e424e468bd16da076bf01c848b89a7dbf60 Mon Sep 17 00:00:00 2001 From: David Leadbeater Date: Tue, 24 Jun 2014 20:20:27 +0100 Subject: Define PERL_NO_GET_CONTEXT in all perl source files This removes the calls to Perl_get_context() that get automatically added to XS code for ancient source code compatibility reasons. The result is about a ~60K size reduction in the binary (based on comparing two 64-bit stripped irssi binaries compiled --with-perl-staticlib). --- src/perl/ui/Formats.xs | 1 + src/perl/ui/Themes.xs | 1 + src/perl/ui/UI.xs | 1 + src/perl/ui/Window.xs | 1 + 4 files changed, 4 insertions(+) (limited to 'src/perl/ui') diff --git a/src/perl/ui/Formats.xs b/src/perl/ui/Formats.xs index ba28f247..5c59bc5c 100644 --- a/src/perl/ui/Formats.xs +++ b/src/perl/ui/Formats.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" static int magic_free_text_dest(pTHX_ SV *sv, MAGIC *mg) diff --git a/src/perl/ui/Themes.xs b/src/perl/ui/Themes.xs index ebc8b69b..1a782dc0 100644 --- a/src/perl/ui/Themes.xs +++ b/src/perl/ui/Themes.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" static void printformat_perl(TEXT_DEST_REC *dest, char *format, char **arglist) diff --git a/src/perl/ui/UI.xs b/src/perl/ui/UI.xs index d8c7f7ae..2e32762c 100644 --- a/src/perl/ui/UI.xs +++ b/src/perl/ui/UI.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" void perl_themes_init(void); diff --git a/src/perl/ui/Window.xs b/src/perl/ui/Window.xs index ea3735a6..8c994cc2 100644 --- a/src/perl/ui/Window.xs +++ b/src/perl/ui/Window.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" #include "window-activity.h" -- cgit v1.2.3