]>
Commit | Line | Data |
---|---|---|
90aa6719 | 1 | /* mingw32 host-specific hook definitions. |
818ab71a | 2 | Copyright (C) 2004-2016 Free Software Foundation, Inc. |
90aa6719 DS |
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 | |
2f83c7d6 | 8 | by the Free Software Foundation; either version 3, or (at your |
90aa6719 DS |
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 | |
2f83c7d6 NC |
17 | along with GCC; see the file COPYING3. If not see |
18 | <http://www.gnu.org/licenses/>. */ | |
90aa6719 DS |
19 | |
20 | #include "config.h" | |
21 | #include "system.h" | |
22 | #include "coretypes.h" | |
e11c4407 | 23 | #include "diagnostic.h" |
90aa6719 DS |
24 | #include "hosthooks.h" |
25 | #include "hosthooks-def.h" | |
90aa6719 DS |
26 | |
27 | ||
28 | #define WIN32_LEAN_AND_MEAN /* Not so important if we have windows.h.gch. */ | |
29 | #include <windows.h> | |
e7b0b62d | 30 | #include <stdlib.h> |
90aa6719 DS |
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. */ | |
e7b0b62d | 49 | static size_t va_granularity = 0x10000; |
90aa6719 DS |
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. */ | |
e7b0b62d KT |
70 | static size_t |
71 | mingw32_gt_pch_alloc_granularity (void) | |
90aa6719 | 72 | { |
e7b0b62d KT |
73 | SYSTEM_INFO si; |
74 | ||
75 | GetSystemInfo (&si); | |
76 | va_granularity = (size_t) si.dwAllocationGranularity; | |
77 | ||
90aa6719 DS |
78 | return va_granularity; |
79 | } | |
80 | ||
81 | /* Identify an address that's likely to be free in a subsequent invocation | |
82 | of the compiler. The area should be able to hold SIZE bytes. FD is an | |
83 | open file descriptor if the host would like to probe with mmap. */ | |
84 | ||
85 | static void * | |
997ef9e7 | 86 | mingw32_gt_pch_get_address (size_t size, int) |
90aa6719 DS |
87 | { |
88 | void* res; | |
89 | size = (size + va_granularity - 1) & ~(va_granularity - 1); | |
90 | if (size > pch_VA_max_size) | |
91 | return NULL; | |
92 | ||
93 | /* FIXME: We let system determine base by setting first arg to NULL. | |
94 | Allocating at top of available address space avoids unnecessary | |
b8a10943 CW |
95 | fragmentation of "ordinary" (malloc's) address space but may not |
96 | be safe with delayed load of system dll's. Preferred addresses | |
97 | for NT system dlls is in 0x70000000 to 0x78000000 range. | |
98 | If we allocate at bottom we need to reserve the address as early | |
99 | as possible and at the same point in each invocation. */ | |
90aa6719 DS |
100 | |
101 | res = VirtualAlloc (NULL, pch_VA_max_size, | |
102 | MEM_RESERVE | MEM_TOP_DOWN, | |
103 | PAGE_NOACCESS); | |
104 | if (!res) | |
105 | w32_error (__FUNCTION__, __FILE__, __LINE__, "VirtualAlloc"); | |
106 | else | |
107 | /* We do not need the address space for now, so free it. */ | |
108 | VirtualFree (res, 0, MEM_RELEASE); | |
109 | ||
110 | return res; | |
111 | } | |
112 | ||
113 | /* ADDR is an address returned by gt_pch_get_address. Attempt to allocate | |
114 | SIZE bytes at the same address and load it with the data from FD at | |
115 | OFFSET. Return -1 if we couldn't allocate memory at ADDR, return 0 | |
116 | if the memory is allocated but the data not loaded, return 1 if done. */ | |
117 | ||
118 | static int | |
119 | mingw32_gt_pch_use_address (void *addr, size_t size, int fd, | |
120 | size_t offset) | |
121 | { | |
122 | void * mmap_addr; | |
b8a10943 | 123 | HANDLE mmap_handle; |
e7b0b62d | 124 | |
b8a10943 CW |
125 | /* Apparently, MS Vista puts unnamed file mapping objects into Global |
126 | namespace when running an application in a Terminal Server | |
127 | session. This causes failure since, by default, applications | |
128 | don't get SeCreateGlobalPrivilege. We don't need global | |
73d21f56 KT |
129 | memory sharing so explicitly put object into Local namespace. |
130 | ||
8e481a2c DS |
131 | If multiple concurrent GCC processes are using PCH functionality, |
132 | MapViewOfFileEx returns "Access Denied" error. So we ensure the | |
133 | session-wide mapping name is unique by appending process ID. */ | |
73d21f56 | 134 | |
8e481a2c | 135 | #define OBJECT_NAME_FMT "Local\\MinGWGCCPCH-" |
b8a10943 | 136 | |
8e481a2c | 137 | char* object_name = NULL; |
b8a10943 CW |
138 | /* However, the documentation for CreateFileMapping says that on NT4 |
139 | and earlier, backslashes are invalid in object name. So, we need | |
140 | to check if we are on Windows2000 or higher. */ | |
141 | OSVERSIONINFO version_info; | |
e7b0b62d KT |
142 | int r; |
143 | ||
8e481a2c DS |
144 | version_info.dwOSVersionInfoSize = sizeof (version_info); |
145 | ||
b8a10943 CW |
146 | if (size == 0) |
147 | return 0; | |
148 | ||
90aa6719 DS |
149 | /* Offset must be also be a multiple of allocation granularity for |
150 | this to work. We can't change the offset. */ | |
151 | if ((offset & (va_granularity - 1)) != 0 || size > pch_VA_max_size) | |
152 | return -1; | |
153 | ||
b8a10943 | 154 | |
8e481a2c DS |
155 | /* Determine the version of Windows we are running on and use a |
156 | uniquely-named local object if running > 4. */ | |
157 | GetVersionEx (&version_info); | |
158 | if (version_info.dwMajorVersion > 4) | |
159 | { | |
160 | char local_object_name [sizeof (OBJECT_NAME_FMT) | |
161 | + sizeof (DWORD) * 2]; | |
162 | snprintf (local_object_name, sizeof (local_object_name), | |
163 | OBJECT_NAME_FMT "%lx", GetCurrentProcessId()); | |
164 | object_name = local_object_name; | |
165 | } | |
b8a10943 CW |
166 | mmap_handle = CreateFileMappingA ((HANDLE) _get_osfhandle (fd), NULL, |
167 | PAGE_WRITECOPY | SEC_COMMIT, 0, 0, | |
8e481a2c DS |
168 | object_name); |
169 | ||
90aa6719 DS |
170 | if (mmap_handle == NULL) |
171 | { | |
172 | w32_error (__FUNCTION__, __FILE__, __LINE__, "CreateFileMapping"); | |
173 | return -1; | |
174 | } | |
e7b0b62d KT |
175 | |
176 | /* Retry five times, as here might occure a race with multiple gcc's | |
177 | instances at same time. */ | |
178 | for (r = 0; r < 5; r++) | |
179 | { | |
180 | mmap_addr = MapViewOfFileEx (mmap_handle, FILE_MAP_COPY, 0, offset, | |
181 | size, addr); | |
182 | if (mmap_addr == addr) | |
183 | break; | |
184 | if (r != 4) | |
185 | Sleep (500); | |
186 | } | |
187 | ||
90aa6719 DS |
188 | if (mmap_addr != addr) |
189 | { | |
190 | w32_error (__FUNCTION__, __FILE__, __LINE__, "MapViewOfFileEx"); | |
191 | CloseHandle(mmap_handle); | |
192 | return -1; | |
193 | } | |
194 | ||
195 | return 1; | |
196 | } | |
197 | ||
198 | const struct host_hooks host_hooks = HOST_HOOKS_INITIALIZER; |