From d0f8d157fe68d5b224ba52e8891e17c1eb38d4de Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 20 Apr 2009 11:14:04 +0200 Subject: [multiple changes] 2009-04-20 Robert Dewar * 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 * initialize.c (__gnat_initialize): Add braces to kill warning. * adaint.c: Minor reformatting, untabify, remove trailing spaces. From-SVN: r146379 --- gcc/ada/initialize.c | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'gcc/ada/initialize.c') 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. */ -- cgit v1.1