Mercurial > hg > CbC > CbC_gcc
comparison gcc/ada/exp_disp.ads @ 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 -- E X P _ D I S P -- | 5 -- E X P _ D I S P -- |
6 -- -- | 6 -- -- |
7 -- S p e c -- | 7 -- S p e c -- |
8 -- -- | 8 -- -- |
9 -- Copyright (C) 1992-2017, 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- -- |
256 -- Returns true if the type has CPP constructors | 256 -- Returns true if the type has CPP constructors |
257 | 257 |
258 function Is_Expanded_Dispatching_Call (N : Node_Id) return Boolean; | 258 function Is_Expanded_Dispatching_Call (N : Node_Id) return Boolean; |
259 -- Returns true if N is the expanded code of a dispatching call | 259 -- Returns true if N is the expanded code of a dispatching call |
260 | 260 |
261 function Is_Predefined_Dispatching_Operation (E : Entity_Id) return Boolean; | |
262 -- Ada 2005 (AI-251): Determines if E is a predefined primitive operation | |
263 | |
264 function Is_Predefined_Internal_Operation (E : Entity_Id) return Boolean; | |
265 -- Similar to the previous one, but excludes stream operations, because | |
266 -- these may be overridden, and need extra formals, like user-defined | |
267 -- operations. | |
268 | |
269 function Is_Predefined_Interface_Primitive (E : Entity_Id) return Boolean; | |
270 -- Ada 2005 (AI-345): Returns True if E is one of the predefined primitives | |
271 -- required to implement interfaces. | |
272 | |
273 function Make_DT (Typ : Entity_Id; N : Node_Id := Empty) return List_Id; | 261 function Make_DT (Typ : Entity_Id; N : Node_Id := Empty) return List_Id; |
274 -- Expand the declarations for the Dispatch Table. The node N is the | 262 -- Expand the declarations for the Dispatch Table. The node N is the |
275 -- declaration that forces the generation of the table. It is used to place | 263 -- declaration that forces the generation of the table. It is used to place |
276 -- error messages when the declaration leads to the freezing of a given | 264 -- error messages when the declaration leads to the freezing of a given |
277 -- primitive operation that has an incomplete non- tagged formal. | 265 -- primitive operation that has an incomplete non- tagged formal. |