From 54bb89caeab2b2ce71f935e2f290fa1402942529 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 29 Jan 2013 15:17:44 +0100 Subject: [multiple changes] 2013-01-29 Robert Dewar * a-calend-vms.adb: Minor comment fix. 2013-01-29 Robert Dewar * mlib-utl.adb, gnatlink.adb: Avoid reference to ASCII.Back_Slash because of casing issues. * sem_util.ads: Minor comment fix. * style.adb (Check_Identifier): Set proper casing for entities in ASCII. * styleg.adb: Minor comment improvement. * stylesw.ads (Style_Check_Standard): Fix bad comments. 2013-01-29 Hristian Kirtchev * sem_prag.adb: Add the grammar for pragmas Abstract_State and Global. (Analyze_Pragma): Push the scope of the related subprogram and install its formals once before starting the analysis of the [moded] global list. 2013-01-29 Pascal Obry * prj-proc.adb (Process_Expression_Variable_Decl): Always handle relative paths in Project_Path as relative to the aggregate project location. Note that this was what was documented. 2013-01-29 Vincent Celier * gnatcmd.adb: For "gnat stub -P ...", do not check the naming scheme for Ada, when Ada is not a language for the project. From-SVN: r195539 --- gcc/ada/mlib-utl.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'gcc/ada/mlib-utl.adb') diff --git a/gcc/ada/mlib-utl.adb b/gcc/ada/mlib-utl.adb index edd6749..756add1 100644 --- a/gcc/ada/mlib-utl.adb +++ b/gcc/ada/mlib-utl.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2002-2012, AdaCore -- +-- Copyright (C) 2002-2013, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -396,7 +396,8 @@ package body MLib.Utl is -------------- procedure Write_RF (S : String) is - Success : Boolean := True; + Success : Boolean := True; + Back_Slash : constant Character := '\'; begin -- If a GNU response file is used, space and backslash need to be @@ -408,7 +409,7 @@ package body MLib.Utl is if Using_GNU_response_file then for J in S'Range loop if S (J) = ' ' or else S (J) = '\' then - if Write (Tname_FD, ASCII.BACK_SLASH'Address, 1) /= 1 then + if Write (Tname_FD, Back_Slash'Address, 1) /= 1 then Success := False; end if; end if; -- cgit v1.1