From fba9ebfc51f21a9ba4848c721bb925078737b024 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 22 Jan 2014 17:53:24 +0100 Subject: [multiple changes] 2014-01-22 Thomas Quinot * rtsfind.adb: Update comment. 2014-01-22 Hristian Kirtchev * sem_aux.ads, sem_aux.adb (Is_Body): New routine. * sem_ch3.adb (Analyze_Declarations): Add local variable Body_Seen. Generate the spec of a late controlled primitive body that is about to freeze its related type. (Handle_Late_Controlled_Primitive): New routine. 2014-01-22 Robert Dewar * a-stream.adb: Minor reformatting. 2014-01-22 Ed Schonberg * sem_ch8.adb (From_Actual_Package): Introduce a recursive sub-procedure Declared_In_Actual to handle properly the visibility of actuals in actual packages, that are themselves actuals to a actual package of the current instance. This mimics properly the visibility of formals of formal packages declared with a box, within the corresponding generic unit. 2014-01-22 Robert Dewar * checks.adb: Do not assume that a volatile variable is valid. 2014-01-22 Thomas Quinot * g-catiio.ads (Image, Value): Clarify that these functions operate in the local time zone. Minor documentation update. 2014-01-22 Thomas Quinot * csets.adb, csets.ads, opt.ads: Minor documentation fixes. From-SVN: r206930 --- gcc/ada/csets.ads | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'gcc/ada/csets.ads') diff --git a/gcc/ada/csets.ads b/gcc/ada/csets.ads index 2f40e36..bae2347 100644 --- a/gcc/ada/csets.ads +++ b/gcc/ada/csets.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -60,14 +60,14 @@ package Csets is -- The character set in use is specified by the value stored in -- Opt.Identifier_Character_Set, which has the following settings: - -- '1' Latin-1 (ISO-8859-1) - -- '2' Latin-2 (ISO-8859-2) - -- '3' Latin-3 (ISO-8859-3) - -- '4' Latin-4 (ISO-8859-4) - -- '5' Latin-5 (ISO-8859-5, Cyrillic) - -- 'p' IBM PC (code page 437) - -- '8' IBM PC (code page 850) - -- '9' Latin-9 (ISO-9959-9) + -- '1' Latin-1 (ISO-8859-1) + -- '2' Latin-2 (ISO-8859-2) + -- '3' Latin-3 (ISO-8859-3) + -- '4' Latin-4 (ISO-8859-4) + -- '5' Cyrillic (ISO-8859-5) + -- 'p' IBM PC (code page 437) + -- '8' IBM PC (code page 850) + -- '9' Latin-9 (ISO-8859-15) -- 'f' Full upper set (all distinct) -- 'n' No upper characters (Ada/83 rules) -- 'w' Latin-1 plus wide characters also allowed -- cgit v1.1