From 613875e219013b5860700144832fdde49efb15f2 Mon Sep 17 00:00:00 2001 From: Daniel Dragan Date: Tue, 9 Oct 2012 19:00:24 -0400 Subject: add const to Perl_boot_core_UNIVERSAL's xsub registration struct Move struct xsub_details details to RO memory from RW memory. This increases the amount of bytes of the image that can be shared between Perl processes by the OS. The inverse is each perl process takes less process specific memory. I saw no change in .text, .rdata went from 0x21121 to 0x21391 (+0x270), .data went from 0x3b18 to 0x38b8 (-0x260). 32 bit Visual C. --- universal.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'universal.c') diff --git a/universal.c b/universal.c index 6bae5bdf00..e71745968c 100644 --- a/universal.c +++ b/universal.c @@ -1355,7 +1355,7 @@ struct xsub_details { const char *proto; }; -struct xsub_details details[] = { +const struct xsub_details details[] = { {"UNIVERSAL::isa", XS_UNIVERSAL_isa, NULL}, {"UNIVERSAL::can", XS_UNIVERSAL_can, NULL}, {"UNIVERSAL::DOES", XS_UNIVERSAL_DOES, NULL}, -- cgit v1.2.1