Mercurial > hg > CbC > CbC_gcc

comparison gcc/config/i386/host-mingw32.c @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children 77e2b8dfacca
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 /* mingw32 host-specific hook definitions.
2 Copyright (C) 2004, 2007 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 There is also another issue, which appears if multiple concurrent
126 GCC processes are using PCH functionality. MapViewOfFileEx returns
127 "Access Denied" error. So we need to make the session-wide mapping
128 name unique. Let's use current process ID for that. */
129 #define OBJECT_NAME_FMT "Local\\MinGWGCCPCH-"
130
131 /* Allocate enough space for name prefix and max possible DWORD
132 hexadecimal representation. */
133 char object_name[sizeof (OBJECT_NAME_FMT) + sizeof (DWORD) * 2];
134 snprintf (object_name, sizeof (object_name), OBJECT_NAME_FMT "%lx",
135 GetCurrentProcessId());
136
137 /* However, the documentation for CreateFileMapping says that on NT4
138 and earlier, backslashes are invalid in object name. So, we need
139 to check if we are on Windows2000 or higher. */
140 OSVERSIONINFO version_info;
141
142 if (size == 0)
143 return 0;
144
145 /* Offset must be also be a multiple of allocation granularity for
146 this to work. We can't change the offset. */
147 if ((offset & (va_granularity - 1)) != 0 || size > pch_VA_max_size)
148 return -1;
149
150 /* Determine the version of Windows we are running on. */
151 version_info.dwOSVersionInfoSize = sizeof (version_info);
152 GetVersionEx (&version_info);
153
154 mmap_handle = CreateFileMappingA ((HANDLE) _get_osfhandle (fd), NULL,
155 PAGE_WRITECOPY | SEC_COMMIT, 0, 0,
156 version_info.dwMajorVersion > 4
157 ? object_name : NULL);
158 if (mmap_handle == NULL)
159 {
160 w32_error (__FUNCTION__, __FILE__, __LINE__, "CreateFileMapping");
161 return -1;
162 }
163 mmap_addr = MapViewOfFileEx (mmap_handle, FILE_MAP_COPY, 0, offset,
164 size, addr);
165 if (mmap_addr != addr)
166 {
167 w32_error (__FUNCTION__, __FILE__, __LINE__, "MapViewOfFileEx");
168 CloseHandle(mmap_handle);
169 return -1;
170 }
171
172 return 1;
173 }
174
175 const struct host_hooks host_hooks = HOST_HOOKS_INITIALIZER;