1 /* mingw32 host-specific hook definitions. 2 Copyright (C) 2004, 2007, 2009 Free Software Foundation, Inc. 3 4 This file is part of GCC. 5 6 GCC is free software; you can redistribute it and/or modify it 7 under the terms of the GNU General Public License as published 8 by the Free Software Foundation; either version 3, or (at your 9 option) any later version. 10 11 GCC is distributed in the hope that it will be useful, but WITHOUT 12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 13 or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public 14 License for more details. 15 16 You should have received a copy of the GNU General Public License 17 along with GCC; see the file COPYING3. If not see 18 <http://www.gnu.org/licenses/>. */ 19 20 #include "config.h" 21 #include "system.h" 22 #include "coretypes.h" 23 #include "hosthooks.h" 24 #include "hosthooks-def.h" 25 #include "toplev.h" 26 #include "diagnostic.h" 27 28 29 #define WIN32_LEAN_AND_MEAN /* Not so important if we have windows.h.gch. */ 30 #include <windows.h> 31 32 static void * mingw32_gt_pch_get_address (size_t, int); 33 static int mingw32_gt_pch_use_address (void *, size_t, int, size_t); 34 static size_t mingw32_gt_pch_alloc_granularity (void); 35 36 #undef HOST_HOOKS_GT_PCH_GET_ADDRESS 37 #define HOST_HOOKS_GT_PCH_GET_ADDRESS mingw32_gt_pch_get_address 38 #undef HOST_HOOKS_GT_PCH_USE_ADDRESS 39 #define HOST_HOOKS_GT_PCH_USE_ADDRESS mingw32_gt_pch_use_address 40 #undef HOST_HOOKS_GT_PCH_ALLOC_GRANULARITY 41 #define HOST_HOOKS_GT_PCH_ALLOC_GRANULARITY mingw32_gt_pch_alloc_granularity 42 43 static inline void w32_error(const char*, const char*, int, const char*); 44 45 /* FIXME: Is this big enough? */ 46 static const size_t pch_VA_max_size = 128 * 1024 * 1024; 47 48 /* Granularity for reserving address space. */ 49 static const size_t va_granularity = 0x10000; 50 51 /* Print out the GetLastError() translation. */ 52 static inline void 53 w32_error (const char* function, const char* file, int line, 54 const char* my_msg) 55 { 56 LPSTR w32_msgbuf; 57 FormatMessageA (FORMAT_MESSAGE_ALLOCATE_BUFFER 58 | FORMAT_MESSAGE_FROM_SYSTEM 59 | FORMAT_MESSAGE_IGNORE_INSERTS 60 | FORMAT_MESSAGE_MAX_WIDTH_MASK, 61 NULL, GetLastError(), 62 MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), 63 (LPSTR) &w32_msgbuf, 0, NULL); 64 fprintf(stderr, "internal error in %s, at %s:%d: %s: %s\n", 65 function, trim_filename (file), line, my_msg, w32_msgbuf); 66 LocalFree ((HLOCAL)w32_msgbuf); 67 } 68 69 /* Granularity for reserving address space. */ 70 static size_t mingw32_gt_pch_alloc_granularity (void) 71 { 72 return va_granularity; 73 } 74 75 /* Identify an address that's likely to be free in a subsequent invocation 76 of the compiler. The area should be able to hold SIZE bytes. FD is an 77 open file descriptor if the host would like to probe with mmap. */ 78 79 static void * 80 mingw32_gt_pch_get_address (size_t size, int fd ATTRIBUTE_UNUSED) 81 { 82 void* res; 83 size = (size + va_granularity - 1) & ~(va_granularity - 1); 84 if (size > pch_VA_max_size) 85 return NULL; 86 87 /* FIXME: We let system determine base by setting first arg to NULL. 88 Allocating at top of available address space avoids unnecessary 89 fragmentation of "ordinary" (malloc's) address space but may not 90 be safe with delayed load of system dll's. Preferred addresses 91 for NT system dlls is in 0x70000000 to 0x78000000 range. 92 If we allocate at bottom we need to reserve the address as early 93 as possible and at the same point in each invocation. */ 94 95 res = VirtualAlloc (NULL, pch_VA_max_size, 96 MEM_RESERVE | MEM_TOP_DOWN, 97 PAGE_NOACCESS); 98 if (!res) 99 w32_error (__FUNCTION__, __FILE__, __LINE__, "VirtualAlloc"); 100 else 101 /* We do not need the address space for now, so free it. */ 102 VirtualFree (res, 0, MEM_RELEASE); 103 104 return res; 105 } 106 107 /* ADDR is an address returned by gt_pch_get_address. Attempt to allocate 108 SIZE bytes at the same address and load it with the data from FD at 109 OFFSET. Return -1 if we couldn't allocate memory at ADDR, return 0 110 if the memory is allocated but the data not loaded, return 1 if done. */ 111 112 static int 113 mingw32_gt_pch_use_address (void *addr, size_t size, int fd, 114 size_t offset) 115 { 116 void * mmap_addr; 117 HANDLE mmap_handle; 118 119 /* Apparently, MS Vista puts unnamed file mapping objects into Global 120 namespace when running an application in a Terminal Server 121 session. This causes failure since, by default, applications 122 don't get SeCreateGlobalPrivilege. We don't need global 123 memory sharing so explicitly put object into Local namespace. 124 125 If multiple concurrent GCC processes are using PCH functionality, 126 MapViewOfFileEx returns "Access Denied" error. So we ensure the 127 session-wide mapping name is unique by appending process ID. */ 128 129 #define OBJECT_NAME_FMT "Local\\MinGWGCCPCH-" 130 131 char* object_name = NULL; 132 /* However, the documentation for CreateFileMapping says that on NT4 133 and earlier, backslashes are invalid in object name. So, we need 134 to check if we are on Windows2000 or higher. */ 135 OSVERSIONINFO version_info; 136 version_info.dwOSVersionInfoSize = sizeof (version_info); 137 138 if (size == 0) 139 return 0; 140 141 /* Offset must be also be a multiple of allocation granularity for 142 this to work. We can't change the offset. */ 143 if ((offset & (va_granularity - 1)) != 0 || size > pch_VA_max_size) 144 return -1; 145 146 147 /* Determine the version of Windows we are running on and use a 148 uniquely-named local object if running > 4. */ 149 GetVersionEx (&version_info); 150 if (version_info.dwMajorVersion > 4) 151 { 152 char local_object_name [sizeof (OBJECT_NAME_FMT) 153 + sizeof (DWORD) * 2]; 154 snprintf (local_object_name, sizeof (local_object_name), 155 OBJECT_NAME_FMT "%lx", GetCurrentProcessId()); 156 object_name = local_object_name; 157 } 158 159 mmap_handle = CreateFileMappingA ((HANDLE) _get_osfhandle (fd), NULL, 160 PAGE_WRITECOPY | SEC_COMMIT, 0, 0, 161 object_name); 162 163 if (mmap_handle == NULL) 164 { 165 w32_error (__FUNCTION__, __FILE__, __LINE__, "CreateFileMapping"); 166 return -1; 167 } 168 mmap_addr = MapViewOfFileEx (mmap_handle, FILE_MAP_COPY, 0, offset, 169 size, addr); 170 if (mmap_addr != addr) 171 { 172 w32_error (__FUNCTION__, __FILE__, __LINE__, "MapViewOfFileEx"); 173 CloseHandle(mmap_handle); 174 return -1; 175 } 176 177 return 1; 178 } 179 180 const struct host_hooks host_hooks = HOST_HOOKS_INITIALIZER; 181