mirror of
https://github.com/irssi/irssi.git
synced 2026-08-17 07:32:04 +02:00
43df6e424e
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).
44 lines
762 B
Text
44 lines
762 B
Text
#define PERL_NO_GET_CONTEXT
|
|
#include "module.h"
|
|
|
|
static int initialized = FALSE;
|
|
|
|
void perl_expando_init(void);
|
|
void perl_expando_deinit(void);
|
|
|
|
void perl_settings_init(void);
|
|
void perl_settings_deinit(void);
|
|
|
|
MODULE = Irssi PACKAGE = Irssi
|
|
|
|
PROTOTYPES: ENABLE
|
|
|
|
void
|
|
init()
|
|
CODE:
|
|
if (initialized) return;
|
|
perl_api_version_check("Irssi");
|
|
initialized = TRUE;
|
|
|
|
perl_settings_init();
|
|
perl_expando_init();
|
|
|
|
void
|
|
deinit()
|
|
CODE:
|
|
if (!initialized) return;
|
|
perl_expando_deinit();
|
|
perl_settings_deinit();
|
|
initialized = FALSE;
|
|
|
|
BOOT:
|
|
irssi_boot(Channel);
|
|
irssi_boot(Core);
|
|
irssi_boot(Expando);
|
|
irssi_boot(Ignore);
|
|
irssi_boot(Log);
|
|
irssi_boot(Masks);
|
|
irssi_boot(Query);
|
|
irssi_boot(Rawlog);
|
|
irssi_boot(Server);
|
|
irssi_boot(Settings);
|