diff options
| author | Daniel Dragan <bulk88@hotmail.com> | 2015-10-19 17:47:16 -0400 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2015-10-20 15:50:19 +1100 |
| commit | af2f850fb5b3bd37dab6742ca16cce6aa5482fb9 (patch) | |
| tree | 19c3357a0f393543a71a0e10f815ac4d815aa644 /win32/perlhost.h | |
| parent | 174c9902b4705cef6307f83a226a0cb315b09ea7 (diff) | |
| download | perl-af2f850fb5b3bd37dab6742ca16cce6aa5482fb9.tar.gz | |
const vtables in win32/perlhost.h
This allows some more memory to be shared between 2 perl processes since
it is const. VC 2013 32b build, before Virtual Size of perl523.dll
sections, .rdata 0x3DE00 bytes .data 0x1B90, after .rdata 0x3E140
.data 0x18B0.
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index ce31f6995e..9963319a92 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -329,7 +329,7 @@ PerlMemIsLocked(struct IPerlMem* piPerl) return IPERL2HOST(piPerl)->IsLocked(); } -struct IPerlMem perlMem = +const struct IPerlMem perlMem = { PerlMemMalloc, PerlMemRealloc, @@ -383,7 +383,7 @@ PerlMemSharedIsLocked(struct IPerlMem* piPerl) return IPERL2HOST(piPerl)->IsLockedShared(); } -struct IPerlMem perlMemShared = +const struct IPerlMem perlMemShared = { PerlMemSharedMalloc, PerlMemSharedRealloc, @@ -437,7 +437,7 @@ PerlMemParseIsLocked(struct IPerlMem* piPerl) return IPERL2HOST(piPerl)->IsLockedParse(); } -struct IPerlMem perlMemParse = +const struct IPerlMem perlMemParse = { PerlMemParseMalloc, PerlMemParseRealloc, @@ -538,7 +538,7 @@ PerlEnvGetChildIO(struct IPerlEnv* piPerl, child_IO_table* ptr) win32_get_child_IO(ptr); } -struct IPerlEnv perlEnv = +const struct IPerlEnv perlEnv = { PerlEnvGetenv, PerlEnvPutenv, @@ -866,7 +866,7 @@ PerlStdIOFdupopen(struct IPerlStdIO* piPerl, FILE* pf) #endif } -struct IPerlStdIO perlStdIO = +const struct IPerlStdIO perlStdIO = { PerlStdIOStdin, PerlStdIOStdout, @@ -1077,7 +1077,7 @@ PerlLIOWrite(struct IPerlLIO* piPerl, int handle, const void *buffer, unsigned i return win32_write(handle, buffer, count); } -struct IPerlLIO perlLIO = +const struct IPerlLIO perlLIO = { PerlLIOAccess, PerlLIOChmod, @@ -1178,7 +1178,7 @@ PerlDirMapPathW(struct IPerlDir* piPerl, const WCHAR* path) return IPERL2HOST(piPerl)->MapPathW(path); } -struct IPerlDir perlDir = +const struct IPerlDir perlDir = { PerlDirMakedir, PerlDirChdir, @@ -1464,7 +1464,7 @@ PerlSockIoctlsocket(struct IPerlSock* piPerl, SOCKET s, long cmd, u_long *argp) return win32_ioctlsocket(s, cmd, argp); } -struct IPerlSock perlSock = +const struct IPerlSock perlSock = { PerlSockHtonl, PerlSockHtons, @@ -1898,7 +1898,7 @@ PerlProcLastHost(struct IPerlProc* piPerl) return h->LastHost(); } -struct IPerlProc perlProc = +const struct IPerlProc perlProc = { PerlProcAbort, PerlProcCrypt, |