15821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* Alloc.c -- Memory allocation functions 25821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)2008-09-24 35821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)Igor Pavlov 45821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)Public domain */ 55821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 65821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef _WIN32 75821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <windows.h> 85821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 95821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <stdlib.h> 105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "Alloc.h" 125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* #define _SZ_ALLOC_DEBUG */ 145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* use _SZ_ALLOC_DEBUG to debug alloc/free operations */ 165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef _SZ_ALLOC_DEBUG 175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <stdio.h> 185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)int g_allocCount = 0; 195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)int g_allocCountMid = 0; 205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)int g_allocCountBig = 0; 215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)void *MyAlloc(size_t size) 245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles){ 255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (size == 0) 265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return 0; 275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #ifdef _SZ_ALLOC_DEBUG 285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) { 295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) void *p = malloc(size); 305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) fprintf(stderr, "\nAlloc %10d bytes, count = %10d, addr = %8X", size, g_allocCount++, (unsigned)p); 315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return p; 325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #else 345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return malloc(size); 355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #endif 365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)void MyFree(void *address) 395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles){ 405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #ifdef _SZ_ALLOC_DEBUG 415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (address != 0) 425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) fprintf(stderr, "\nFree; count = %10d, addr = %8X", --g_allocCount, (unsigned)address); 435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #endif 445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) free(address); 455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef _WIN32 485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)void *MidAlloc(size_t size) 505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles){ 515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (size == 0) 525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return 0; 535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #ifdef _SZ_ALLOC_DEBUG 545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) fprintf(stderr, "\nAlloc_Mid %10d bytes; count = %10d", size, g_allocCountMid++); 555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #endif 565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return VirtualAlloc(0, size, MEM_COMMIT, PAGE_READWRITE); 575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)void MidFree(void *address) 605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles){ 615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #ifdef _SZ_ALLOC_DEBUG 625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (address != 0) 635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) fprintf(stderr, "\nFree_Mid; count = %10d", --g_allocCountMid); 645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #endif 655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (address == 0) 665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) VirtualFree(address, 0, MEM_RELEASE); 685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifndef MEM_LARGE_PAGES 715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#undef _7ZIP_LARGE_PAGES 725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#ifdef _7ZIP_LARGE_PAGES 755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)SIZE_T g_LargePageSize = 0; 765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)typedef SIZE_T (WINAPI *GetLargePageMinimumP)(); 775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)void SetLargePageSize() 805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles){ 815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #ifdef _7ZIP_LARGE_PAGES 825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) SIZE_T size = 0; 835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) GetLargePageMinimumP largePageMinimum = (GetLargePageMinimumP) 845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) GetProcAddress(GetModuleHandle(TEXT("kernel32.dll")), "GetLargePageMinimum"); 855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (largePageMinimum == 0) 865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) size = largePageMinimum(); 885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (size == 0 || (size & (size - 1)) != 0) 895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) g_LargePageSize = size; 915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #endif 925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)void *BigAlloc(size_t size) 965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles){ 975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (size == 0) 985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return 0; 995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #ifdef _SZ_ALLOC_DEBUG 1005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) fprintf(stderr, "\nAlloc_Big %10d bytes; count = %10d", size, g_allocCountBig++); 1015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #endif 1025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #ifdef _7ZIP_LARGE_PAGES 1045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (g_LargePageSize != 0 && g_LargePageSize <= (1 << 30) && size >= (1 << 18)) 1055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) { 1065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) void *res = VirtualAlloc(0, (size + g_LargePageSize - 1) & (~(g_LargePageSize - 1)), 1075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) MEM_COMMIT | MEM_LARGE_PAGES, PAGE_READWRITE); 1085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (res != 0) 1095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return res; 1105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #endif 1125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return VirtualAlloc(0, size, MEM_COMMIT, PAGE_READWRITE); 1135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 1145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)void BigFree(void *address) 1165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles){ 1175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #ifdef _SZ_ALLOC_DEBUG 1185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (address != 0) 1195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) fprintf(stderr, "\nFree_Big; count = %10d", --g_allocCountBig); 1205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) #endif 1215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (address == 0) 1235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 1245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) VirtualFree(address, 0, MEM_RELEASE); 1255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 1265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 128