]>
Commit | Line | Data |
---|---|---|
90aa6719 | 1 | /* mingw32 host-specific hook definitions. |
b8a10943 | 2 | Copyright (C) 2004, 2007 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" | |
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 | |
b8a10943 CW |
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. */ | |
90aa6719 DS |
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; | |
b8a10943 CW |
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 | const char object_name[] = "Local\\MinGWGCCPCH"; | |
125 | ||
126 | /* However, the documentation for CreateFileMapping says that on NT4 | |
127 | and earlier, backslashes are invalid in object name. So, we need | |
128 | to check if we are on Windows2000 or higher. */ | |
129 | OSVERSIONINFO version_info; | |
90aa6719 | 130 | |
b8a10943 CW |
131 | if (size == 0) |
132 | return 0; | |
133 | ||
90aa6719 DS |
134 | /* Offset must be also be a multiple of allocation granularity for |
135 | this to work. We can't change the offset. */ | |
136 | if ((offset & (va_granularity - 1)) != 0 || size > pch_VA_max_size) | |
137 | return -1; | |
138 | ||
b8a10943 CW |
139 | /* Determine the version of Windows we are running on. */ |
140 | version_info.dwOSVersionInfoSize = sizeof (version_info); | |
141 | GetVersionEx (&version_info); | |
142 | ||
143 | mmap_handle = CreateFileMappingA ((HANDLE) _get_osfhandle (fd), NULL, | |
144 | PAGE_WRITECOPY | SEC_COMMIT, 0, 0, | |
145 | version_info.dwMajorVersion > 4 | |
146 | ? object_name : NULL); | |
90aa6719 DS |
147 | if (mmap_handle == NULL) |
148 | { | |
149 | w32_error (__FUNCTION__, __FILE__, __LINE__, "CreateFileMapping"); | |
150 | return -1; | |
151 | } | |
152 | mmap_addr = MapViewOfFileEx (mmap_handle, FILE_MAP_COPY, 0, offset, | |
153 | size, addr); | |
154 | if (mmap_addr != addr) | |
155 | { | |
156 | w32_error (__FUNCTION__, __FILE__, __LINE__, "MapViewOfFileEx"); | |
157 | CloseHandle(mmap_handle); | |
158 | return -1; | |
159 | } | |
160 | ||
161 | return 1; | |
162 | } | |
163 | ||
164 | const struct host_hooks host_hooks = HOST_HOOKS_INITIALIZER; |