Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/xeinfo.adb @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
4 -- -- 4 -- --
5 -- X E I N F O -- 5 -- X E I N F O --
6 -- -- 6 -- --
7 -- B o d y -- 7 -- B o d y --
8 -- -- 8 -- --
9 -- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- 9 -- Copyright (C) 1992-2018, Free Software Foundation, Inc. --
10 -- -- 10 -- --
11 -- GNAT is free software; you can redistribute it and/or modify it under -- 11 -- GNAT is free software; you can redistribute it and/or modify it under --
12 -- terms of the GNU General Public License as published by the Free Soft- -- 12 -- terms of the GNU General Public License as published by the Free Soft- --
13 -- ware Foundation; either version 3, or (at your option) any later ver- -- 13 -- ware Foundation; either version 3, or (at your option) any later ver- --
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
149 -- Inlined<N> = True for inlined function, False otherwise 149 -- Inlined<N> = True for inlined function, False otherwise
150 150
151 Lastinlined : Boolean; 151 Lastinlined : Boolean;
152 152
153 procedure Badfunc; 153 procedure Badfunc;
154 pragma No_Return (Badfunc);
154 -- Signal bad function in body 155 -- Signal bad function in body
155 156
156 function Getlin return VString; 157 function Getlin return VString;
157 -- Get non-comment line (comment lines skipped, also skips FOR rep clauses) 158 -- Get non-comment line (comment lines skipped, also skips FOR rep clauses)
158 -- Fatal error (raises End_Error exception) if end of file encountered 159 -- Fatal error (raises End_Error exception) if end of file encountered