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

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 -- I T Y P E S -- 5 -- I T Y P E S --
6 -- -- 6 -- --
7 -- B o d y -- 7 -- B o d y --
8 -- -- 8 -- --
9 -- Copyright (C) 1992-2013, 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- --
40 function Create_Itype 40 function Create_Itype
41 (Ekind : Entity_Kind; 41 (Ekind : Entity_Kind;
42 Related_Nod : Node_Id; 42 Related_Nod : Node_Id;
43 Related_Id : Entity_Id := Empty; 43 Related_Id : Entity_Id := Empty;
44 Suffix : Character := ' '; 44 Suffix : Character := ' ';
45 Suffix_Index : Nat := 0; 45 Suffix_Index : Int := 0;
46 Scope_Id : Entity_Id := Current_Scope) return Entity_Id 46 Scope_Id : Entity_Id := Current_Scope) return Entity_Id
47 is 47 is
48 Typ : Entity_Id; 48 Typ : Entity_Id;
49 49
50 begin 50 begin