diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 11:14:04 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 11:14:04 +0200 |
| commit | d0f8d157fe68d5b224ba52e8891e17c1eb38d4de (patch) | |
| tree | 74c14ff78cae4b78f867d2b3c54dd6dade631222 /gcc/ada/initialize.c | |
| parent | 34c25b321fd7f1ac6c86300c2dba377c723b6524 (diff) | |
| download | gcc-d0f8d157fe68d5b224ba52e8891e17c1eb38d4de.zip gcc-d0f8d157fe68d5b224ba52e8891e17c1eb38d4de.tar.gz gcc-d0f8d157fe68d5b224ba52e8891e17c1eb38d4de.tar.bz2 | |
[multiple changes]
2009-04-20 Robert Dewar <dewar@adacore.com>
* s-conca5.adb, s-conca5.ads, s-conca7.adb, s-conca7.ads, s-conca9.adb,
s-conca9.ads, rtsfind.ads, s-conca2.adb, s-conca2.ads, s-conca4.adb,
s-conca4.ads, s-conca6.adb, s-conca6.ads, s-conca8.adb, s-conca8.ads,
s-conca3.adb, s-conca3.ads (Str_Concat_Bounds_x): New functions.
* exp_ch4.adb (Expand_Concatenate): Minor code reorganization
2009-04-20 Pascal Obry <obry@adacore.com>
* initialize.c (__gnat_initialize): Add braces to kill warning.
* adaint.c: Minor reformatting, untabify, remove trailing spaces.
From-SVN: r146379
Diffstat (limited to 'gcc/ada/initialize.c')
| -rw-r--r-- | gcc/ada/initialize.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/gcc/ada/initialize.c b/gcc/ada/initialize.c index f5acbe6..8ad15bd 100644 --- a/gcc/ada/initialize.c +++ b/gcc/ada/initialize.c @@ -97,7 +97,7 @@ append_arg (int *index, LPWSTR value, char ***argv, int *last) #endif void -__gnat_initialize (void *eh) +__gnat_initialize (void *eh ATTRIBUTE_UNUSED) { /* Initialize floating-point coprocessor. This call is needed because the MS libraries default to 64-bit precision instead of 80-bit @@ -114,10 +114,12 @@ __gnat_initialize (void *eh) CurrentCodePage = CP_UTF8; if (codepage != NULL) - if (strcmp (codepage, "CP_ACP") == 0) - CurrentCodePage = CP_ACP; - else if (strcmp (codepage, "CP_UTF8") == 0) - CurrentCodePage = CP_UTF8; + { + if (strcmp (codepage, "CP_ACP") == 0) + CurrentCodePage = CP_ACP; + else if (strcmp (codepage, "CP_UTF8") == 0) + CurrentCodePage = CP_UTF8; + } } /* Adjust gnat_argv to support Unicode characters. */ |