mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

const vtables in win32/perlhost.h

Browse Source 
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.
This commit is contained in:
Daniel Dragan 2015-10-19 17:47:16 -04:00 committed by Tony Cook
parent 174c9902b4
commit af2f850fb5
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
win32/perlhost.h
View File

@ -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,