Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/rtinit.c @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 /****************************************************************************
2 * *
3 * GNAT COMPILER COMPONENTS *
4 * *
5 * I N I T I A L I Z E *
6 * *
7 * C Implementation File *
8 * *
9 * Copyright (C) 2014-2016, Free Software Foundation, Inc. *
10 * *
11 * GNAT is free software; you can redistribute it and/or modify it under *
12 * terms of the GNU General Public License as published by the Free Soft- *
13 * ware Foundation; either version 3, or (at your option) any later ver- *
14 * sion. GNAT is distributed in the hope that it will be useful, but WITH- *
15 * OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
16 * or FITNESS FOR A PARTICULAR PURPOSE. *
17 * *
18 * As a special exception under Section 7 of GPL version 3, you are granted *
19 * additional permissions described in the GCC Runtime Library Exception, *
20 * version 3.1, as published by the Free Software Foundation. *
21 * *
22 * You should have received a copy of the GNU General Public License and *
23 * a copy of the GCC Runtime Library Exception along with this program; *
24 * see the files COPYING3 and COPYING.RUNTIME respectively. If not, see *
25 * <http://www.gnu.org/licenses/>. *
26 * *
27 * GNAT was originally developed by the GNAT team at New York University. *
28 * Extensive contributions were provided by Ada Core Technologies Inc. *
29 * *
30 ****************************************************************************/
31
32 /* This unit provides implementation for __gnat_runtime_initialize ()
33 which is called in adainit() to do special initialization needed by
34 the GNAT runtime. */
35
36
37 /* The following include is here to meet the published VxWorks requirement
38 that the __vxworks header appear before any other include. */
39 #ifdef __vxworks
40 #include "vxWorks.h"
41 #endif
42
43 #ifdef IN_RTS
44 #include "tconfig.h"
45 #include "tsystem.h"
46 /* We don't have libiberty, so use malloc. */
47 #define xmalloc(S) malloc (S)
48 #define xrealloc(V,S) realloc (V,S)
49 #else
50 #include "config.h"
51 #include "system.h"
52 #endif
53
54 #include "raise.h"
55 #include <fcntl.h>
56
57 #ifdef __cplusplus
58 extern "C" {
59 #endif
60
61 /**************************************************/
62 /* __gnat_runtime_initialize (NT-mingw32 Version) */
63 /**************************************************/
64
65 extern void __gnat_install_handler(void);
66
67 int __gnat_wide_text_translation_required = 0;
68 /* wide text translation, 0=none, 1=activated */
69
70 int __gnat_rt_init_count = 0;
71 /* number of references to the GNAT runtime, this is used to initialize
72 and finalize properly the run-time. */
73
74 #if defined (__MINGW32__)
75 #include "mingw32.h"
76 #include <windows.h>
77
78 extern void __gnat_init_float (void);
79
80 extern int gnat_argc;
81 extern char **gnat_argv;
82 extern CRITICAL_SECTION ProcListCS;
83 extern HANDLE ProcListEvt;
84
85 #ifdef GNAT_UNICODE_SUPPORT
86
87 #define EXPAND_ARGV_RATE 128
88
89 int __gnat_do_argv_expansion = 1;
90 #pragma weak __gnat_do_argv_expansion
91
92 static void
93 append_arg (int *index, LPWSTR dir, LPWSTR value,
94 char ***argv, int *last, int quoted)
95 {
96 int size;
97 LPWSTR fullvalue;
98 int vallen = _tcslen (value);
99 int dirlen;
100
101 if (dir == NULL)
102 {
103 /* no dir prefix */
104 dirlen = 0;
105 fullvalue = (LPWSTR) xmalloc ((vallen + 1) * sizeof(TCHAR));
106 }
107 else
108 {
109 /* Add dir first */
110 dirlen = _tcslen (dir);
111
112 fullvalue = (LPWSTR) xmalloc ((dirlen + vallen + 1) * sizeof(TCHAR));
113 _tcscpy (fullvalue, dir);
114 }
115
116 /* Append value */
117
118 if (quoted)
119 {
120 _tcsncpy (fullvalue + dirlen, value + 1, vallen - 1);
121 fullvalue [dirlen + vallen - sizeof(TCHAR)] = _T('\0');
122 }
123 else
124 _tcscpy (fullvalue + dirlen, value);
125
126 if (*last <= *index)
127 {
128 *last += EXPAND_ARGV_RATE;
129 *argv = (char **) xrealloc (*argv, (*last) * sizeof (char *));
130 }
131
132 size = WS2SC (NULL, fullvalue, 0);
133 (*argv)[*index] = (char *) xmalloc (size + sizeof(TCHAR));
134 WS2SC ((*argv)[*index], fullvalue, size);
135
136 free (fullvalue);
137
138 (*index)++;
139 }
140 #endif
141
142 void
143 __gnat_runtime_initialize(int install_handler)
144 {
145 /* increment the reference counter */
146
147 __gnat_rt_init_count++;
148
149 /* if already initialized return now */
150 if (__gnat_rt_init_count > 1)
151 return;
152
153 /* Initialize floating-point coprocessor. This call is needed because
154 the MS libraries default to 64-bit precision instead of 80-bit
155 precision, and we require the full precision for proper operation,
156 given that we have set Max_Digits etc with this in mind */
157
158 __gnat_init_float ();
159
160 /* Initialize the critical section and event handle for the win32_wait()
161 implementation, see adaint.c */
162
163 InitializeCriticalSection (&ProcListCS);
164 ProcListEvt = CreateEvent (NULL, FALSE, FALSE, NULL);
165
166 #ifdef GNAT_UNICODE_SUPPORT
167 /* Set current code page for filenames handling. */
168 {
169 char *codepage = getenv ("GNAT_CODE_PAGE");
170
171 /* Default code page is UTF-8. */
172 __gnat_current_codepage = CP_UTF8;
173
174 if (codepage != NULL)
175 {
176 if (strcmp (codepage, "CP_ACP") == 0)
177 __gnat_current_codepage = CP_ACP;
178 else if (strcmp (codepage, "CP_UTF8") == 0)
179 __gnat_current_codepage = CP_UTF8;
180 }
181 }
182
183 /* Set current encoding for the IO. */
184 {
185 char *ccsencoding = getenv ("GNAT_CCS_ENCODING");
186
187 /* Default CCS Encoding. */
188 __gnat_current_ccs_encoding = _O_TEXT;
189 __gnat_wide_text_translation_required = 0;
190
191 if (ccsencoding != NULL)
192 {
193 if (strcmp (ccsencoding, "U16TEXT") == 0)
194 {
195 __gnat_current_ccs_encoding = _O_U16TEXT;
196 __gnat_wide_text_translation_required = 1;
197 }
198 else if (strcmp (ccsencoding, "TEXT") == 0)
199 {
200 __gnat_current_ccs_encoding = _O_TEXT;
201 __gnat_wide_text_translation_required = 0;
202 }
203 else if (strcmp (ccsencoding, "WTEXT") == 0)
204 {
205 __gnat_current_ccs_encoding = _O_WTEXT;
206 __gnat_wide_text_translation_required = 1;
207 }
208 else if (strcmp (ccsencoding, "U8TEXT") == 0)
209 {
210 __gnat_current_ccs_encoding = _O_U8TEXT;
211 __gnat_wide_text_translation_required = 1;
212 }
213 }
214 }
215
216 /* Adjust gnat_argv to support Unicode characters. */
217 {
218 LPWSTR *wargv;
219 int wargc;
220 int k;
221 int last;
222 int argc_expanded = 0;
223 TCHAR result [MAX_PATH];
224 int quoted;
225
226 wargv = CommandLineToArgvW (GetCommandLineW(), &wargc);
227
228 if (wargv != NULL)
229 {
230 /* Set gnat_argv with arguments encoded in UTF-8. */
231 last = wargc + 1;
232 gnat_argv = (char **) xmalloc ((last) * sizeof (char *));
233
234 /* argv[0] is the executable full path-name. */
235
236 SearchPath (NULL, wargv[0], _T(".exe"), MAX_PATH, result, NULL);
237 append_arg (&argc_expanded, NULL, result, &gnat_argv, &last, 0);
238
239 for (k=1; k<wargc; k++)
240 {
241 quoted = (wargv[k][0] == _T('\''));
242
243 /* Check for wildcard expansion if the argument is not quoted. */
244 if (!quoted && __gnat_do_argv_expansion
245 && (_tcsstr (wargv[k], _T("?")) != 0 ||
246 _tcsstr (wargv[k], _T("*")) != 0))
247 {
248 /* Wilcards are present, append all corresponding matches. */
249 WIN32_FIND_DATA FileData;
250 HANDLE hDir = FindFirstFile (wargv[k], &FileData);
251 LPWSTR dir = NULL;
252 LPWSTR ldir = _tcsrchr (wargv[k], _T('\\'));
253
254 if (ldir == NULL)
255 ldir = _tcsrchr (wargv[k], _T('/'));
256
257 if (hDir == INVALID_HANDLE_VALUE)
258 {
259 /* No match, append arg as-is. */
260 append_arg (&argc_expanded, NULL, wargv[k],
261 &gnat_argv, &last, quoted);
262 }
263 else
264 {
265 if (ldir != NULL)
266 {
267 int n = ldir - wargv[k] + 1;
268 dir = (LPWSTR) xmalloc ((n + 1) * sizeof (TCHAR));
269 _tcsncpy (dir, wargv[k], n);
270 dir[n] = _T('\0');
271 }
272
273 /* Append first match and all remaining ones. */
274
275 do {
276 /* Do not add . and .. special entries */
277
278 if (_tcscmp (FileData.cFileName, _T(".")) != 0
279 && _tcscmp (FileData.cFileName, _T("..")) != 0)
280 append_arg (&argc_expanded, dir, FileData.cFileName,
281 &gnat_argv, &last, 0);
282 } while (FindNextFile (hDir, &FileData));
283
284 FindClose (hDir);
285
286 if (dir != NULL)
287 free (dir);
288 }
289 }
290 else
291 {
292 /* No wildcard. Store parameter as-is. Remove quote if
293 needed. */
294 append_arg (&argc_expanded, NULL, wargv[k],
295 &gnat_argv, &last,
296 quoted && __gnat_do_argv_expansion);
297 }
298 }
299
300 LocalFree (wargv);
301 gnat_argc = argc_expanded;
302 gnat_argv = (char **) xrealloc
303 (gnat_argv, argc_expanded * sizeof (char *));
304 }
305 }
306 #endif
307
308 if (install_handler)
309 __gnat_install_handler();
310 }
311
312 /**************************************************/
313 /* __gnat_runtime_initialize (init_float version) */
314 /**************************************************/
315
316 #elif defined (__Lynx__) || defined (__FreeBSD__) || defined(__NetBSD__) \
317 || defined (__OpenBSD__)
318
319 extern void __gnat_init_float (void);
320
321 void
322 __gnat_runtime_initialize(int install_handler)
323 {
324 /* increment the reference counter */
325
326 __gnat_rt_init_count++;
327
328 /* if already initialized return now */
329 if (__gnat_rt_init_count > 1)
330 return;
331
332 __gnat_init_float ();
333
334 if (install_handler)
335 __gnat_install_handler();
336 }
337
338 /***********************************************/
339 /* __gnat_runtime_initialize (VxWorks Version) */
340 /***********************************************/
341
342 #elif defined(__vxworks)
343
344 extern void __gnat_init_float (void);
345
346 void
347 __gnat_runtime_initialize(int install_handler)
348 {
349 /* increment the reference counter */
350
351 __gnat_rt_init_count++;
352
353 /* if already initialized return now */
354 if (__gnat_rt_init_count > 1)
355 return;
356
357 __gnat_init_float ();
358
359 if (install_handler)
360 __gnat_install_handler();
361 }
362
363 #else
364
365 /***********************************************/
366 /* __gnat_runtime_initialize (default version) */
367 /***********************************************/
368
369 void
370 __gnat_runtime_initialize(int install_handler)
371 {
372 /* increment the reference counter */
373
374 __gnat_rt_init_count++;
375
376 /* if already initialized return now */
377 if (__gnat_rt_init_count > 1)
378 return;
379
380 if (install_handler)
381 __gnat_install_handler();
382 }
383
384 #endif
385
386 #ifdef __cplusplus
387 }
388 #endif