[Ada] Document recognition of : in place of #

Message ID	20150106092442.GA16996@adacore.com
State	New
Headers	show Return-Path: <gcc-patches-return-388385-incoming=patchwork.ozlabs.org@gcc.gnu.org> DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:date :from:to:cc:subject:message-id:mime-version:content-type; q=dns; s=default; b=WylFuEFU1gsrSbajvhoUfGTsULfQJh+JQTkksaYGZUptmhiMg4 vAYu1okOV7i52miHEBfmNOKYtqJzuZ0rEyEgMcTwRWyc6FOCZ0B0eOt7w7Tzwa6R 8ukJxfthGPq6wq4Mft7WgjPIF403PKcGx0GM1TttADSk05ksGaX0+cMqo= Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk Sender: gcc-patches-owner@gcc.gnu.org Date: Tue, 6 Jan 2015 04:24:42 -0500 From: Arnaud Charlet <charlet@adacore.com> To: gcc-patches@gcc.gnu.org Cc: Robert Dewar <dewar@adacore.com> Subject: [Ada] Document recognition of : in place of # Message-ID: <20150106092442.GA16996@adacore.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="GvXjxJ+pjyke8COw" Content-Disposition: inline User-Agent: Mutt/1.5.21 (2010-09-15)

Index: s-valllu.adb =================================================================== --- s-valllu.adb (revision 219191) +++ s-valllu.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -119,9 +119,10 @@ Ptr.all := P; - -- Deal with based case + -- Deal with based case. We recognize either the standard '#' or the + -- allowed alternative replacement ':' (see RM J.2(3)). - if P < Max and then (Str (P) = ':' or else Str (P) = '#') then + if P < Max and then (Str (P) = '#' or else Str (P) = ':') then Base_Char := Str (P); P := P + 1; Base := Uval; Index: a-tiinau.adb =================================================================== --- a-tiinau.adb (revision 219191) +++ a-tiinau.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -166,7 +166,8 @@ if Loaded then - -- Deal with based literal (note : is ok replacement for #) + -- Deal with based literal. We recognize either the standard '#' or + -- the allowed alternative replacement ':' (see RM J.2(3)). Load (File, Buf, Ptr, '#', ':', Loaded); Index: a-timoau.adb =================================================================== --- a-timoau.adb (revision 219191) +++ a-timoau.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -173,6 +173,10 @@ Load_Digits (File, Buf, Ptr, Loaded); if Loaded then + + -- Deal with based case. We recognize either the standard '#' or the + -- allowed alternative replacement ':' (see RM J.2(3)). + Load (File, Buf, Ptr, '#', ':', Loaded); if Loaded then Index: a-ztinau.adb =================================================================== --- a-ztinau.adb (revision 219191) +++ a-ztinau.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -165,6 +165,10 @@ Load_Digits (File, Buf, Ptr, Loaded); if Loaded then + + -- Deal with based case. We recognize either the standard '#' or the + -- allowed alternative replacement ':' (see RM J.2(3)). + Load (File, Buf, Ptr, '#', ':', Loaded); if Loaded then Index: a-ztmoau.adb =================================================================== --- a-ztmoau.adb (revision 219191) +++ a-ztmoau.adb (working copy) @@ -173,6 +173,10 @@ Load_Digits (File, Buf, Ptr, Loaded); if Loaded then + + -- Deal with based case. We recognize either the standard '#' or the + -- allowed alternative replacement ':' (see RM J.2(3)). + Load (File, Buf, Ptr, '#', ':', Loaded); if Loaded then Index: s-valuns.adb =================================================================== --- s-valuns.adb (revision 219191) +++ s-valuns.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -119,9 +119,10 @@ Ptr.all := P; - -- Deal with based case + -- Deal with based case. We recognize either the standard '#' or the + -- allowed alternative replacement ':' (see RM J.2(3)). - if P < Max and then (Str (P) = ':' or else Str (P) = '#') then + if P < Max and then (Str (P) = '#' or else Str (P) = ':') then Base_Char := Str (P); P := P + 1; Base := Uval; Index: s-valrea.adb =================================================================== --- s-valrea.adb (revision 219191) +++ s-valrea.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -183,9 +183,10 @@ Bad_Value (Str); end if; - -- Deal with based case + -- Deal with based case. We reognize either the standard '#' or the + -- allowed alternative replacement ':' (see RM J.2(3)). - if P < Max and then (Str (P) = ':' or else Str (P) = '#') then + if P < Max and then (Str (P) = '#' or else Str (P) = ':') then declare Base_Char : constant Character := Str (P); Digit : Natural; Index: a-wtflau.adb =================================================================== --- a-wtflau.adb (revision 219191) +++ a-wtflau.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -124,7 +124,8 @@ return; end if; - -- Based cases + -- Deal with based case. We recognize either the standard '#' or the + -- allowed alternative replacement ':' (see RM J.2(3)). Load (File, Buf, Ptr, '#', ':', Loaded); Index: a-tiflau.adb =================================================================== --- a-tiflau.adb (revision 219191) +++ a-tiflau.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -124,7 +124,8 @@ return; end if; - -- Based cases + -- Based cases. We recognize either the standard '#' or the + -- allowed alternative replacement ':' (see RM J.2(3)). Load (File, Buf, Ptr, '#', ':', Loaded); Index: a-ztflau.adb =================================================================== --- a-ztflau.adb (revision 219191) +++ a-ztflau.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -124,7 +124,8 @@ return; end if; - -- Based cases + -- Deal with based case. We recognize either the standard '#' or the + -- allowed alternative replacement ':' (see RM J.2(3)). Load (File, Buf, Ptr, '#', ':', Loaded); Index: a-wtinau.adb =================================================================== --- a-wtinau.adb (revision 219191) +++ a-wtinau.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -165,6 +165,10 @@ Load_Digits (File, Buf, Ptr, Loaded); if Loaded then + + -- Deal with based case. We recognize either the standard '#' or the + -- allowed alternative replacement ':' (see RM J.2(3)). + Load (File, Buf, Ptr, '#', ':', Loaded); if Loaded then Index: a-wtmoau.adb =================================================================== --- a-wtmoau.adb (revision 219191) +++ a-wtmoau.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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- -- @@ -173,6 +173,10 @@ Load_Digits (File, Buf, Ptr, Loaded); if Loaded then + + -- Deal with based case. We recognize either the standard '#' or the + -- allowed alternative replacement ':' (see RM J.2(3)). + Load (File, Buf, Ptr, '#', ':', Loaded); if Loaded then

[Ada] Document recognition of : in place of #

Commit Message

Patch