diff options
| author | David Leadbeater <dgl@dgl.cx> | 2014-06-24 20:20:27 +0100 |
|---|---|---|
| committer | David Leadbeater <dgl@dgl.cx> | 2014-06-24 20:20:27 +0100 |
| commit | 43df6e424e468bd16da076bf01c848b89a7dbf60 (patch) | |
| tree | 4502ac50dd30f1829c99ecc11211f7f343ca1020 /src/perl/common | |
| parent | c26a634fe6f65f44cdd036d2657fe4335ed6e309 (diff) | |
| download | irssi-43df6e424e468bd16da076bf01c848b89a7dbf60.zip | |
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).
Diffstat (limited to 'src/perl/common')
| -rw-r--r-- | src/perl/common/Channel.xs | 1 | ||||
| -rw-r--r-- | src/perl/common/Core.xs | 1 | ||||
| -rw-r--r-- | src/perl/common/Expando.xs | 1 | ||||
| -rw-r--r-- | src/perl/common/Ignore.xs | 1 | ||||
| -rw-r--r-- | src/perl/common/Irssi.xs | 1 | ||||
| -rw-r--r-- | src/perl/common/Log.xs | 1 | ||||
| -rw-r--r-- | src/perl/common/Masks.xs | 1 | ||||
| -rw-r--r-- | src/perl/common/Query.xs | 1 | ||||
| -rw-r--r-- | src/perl/common/Rawlog.xs | 1 | ||||
| -rw-r--r-- | src/perl/common/Server.xs | 1 | ||||
| -rw-r--r-- | src/perl/common/Settings.xs | 1 |
11 files changed, 11 insertions, 0 deletions
diff --git a/src/perl/common/Channel.xs b/src/perl/common/Channel.xs index 0692a7cc..69141c7c 100644 --- a/src/perl/common/Channel.xs +++ b/src/perl/common/Channel.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" MODULE = Irssi::Channel PACKAGE = Irssi diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index 76ea0093..84f660ba 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" #include "irssi-version.h" #include "core.h" diff --git a/src/perl/common/Expando.xs b/src/perl/common/Expando.xs index 31b4f990..e1dd89ab 100644 --- a/src/perl/common/Expando.xs +++ b/src/perl/common/Expando.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" #include "expandos.h" diff --git a/src/perl/common/Ignore.xs b/src/perl/common/Ignore.xs index e4452c78..8dfd0ad3 100644 --- a/src/perl/common/Ignore.xs +++ b/src/perl/common/Ignore.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" MODULE = Irssi::Ignore PACKAGE = Irssi diff --git a/src/perl/common/Irssi.xs b/src/perl/common/Irssi.xs index 9f33d557..dc354bbd 100644 --- a/src/perl/common/Irssi.xs +++ b/src/perl/common/Irssi.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" static int initialized = FALSE; diff --git a/src/perl/common/Log.xs b/src/perl/common/Log.xs index c87ee45b..cdcdbd90 100644 --- a/src/perl/common/Log.xs +++ b/src/perl/common/Log.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" MODULE = Irssi::Log PACKAGE = Irssi diff --git a/src/perl/common/Masks.xs b/src/perl/common/Masks.xs index 1ea13969..9612911a 100644 --- a/src/perl/common/Masks.xs +++ b/src/perl/common/Masks.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" MODULE = Irssi::Masks PACKAGE = Irssi diff --git a/src/perl/common/Query.xs b/src/perl/common/Query.xs index 54a0582c..9d8cd523 100644 --- a/src/perl/common/Query.xs +++ b/src/perl/common/Query.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" MODULE = Irssi::Query PACKAGE = Irssi diff --git a/src/perl/common/Rawlog.xs b/src/perl/common/Rawlog.xs index dd95ce50..c405bc37 100644 --- a/src/perl/common/Rawlog.xs +++ b/src/perl/common/Rawlog.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" MODULE = Irssi::Rawlog PACKAGE = Irssi diff --git a/src/perl/common/Server.xs b/src/perl/common/Server.xs index 76ea7812..7ed41109 100644 --- a/src/perl/common/Server.xs +++ b/src/perl/common/Server.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" MODULE = Irssi::Server PACKAGE = Irssi diff --git a/src/perl/common/Settings.xs b/src/perl/common/Settings.xs index dc5507cf..eb81b627 100644 --- a/src/perl/common/Settings.xs +++ b/src/perl/common/Settings.xs @@ -1,3 +1,4 @@ +#define PERL_NO_GET_CONTEXT #include "module.h" #include "misc.h" |