diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2012-01-27 09:22:36 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-01-27 09:22:36 +0000 |
| commit | 1228a6a69b9fddc0aaa2b462db44d3d2bef4f22f (patch) | |
| tree | 27220aacc35df038cd025daf85b09ead96c9cc36 /gcc/ada/gcc-interface/gigi.h | |
| parent | 88a94e2bba73b6eeb77d82f5bb18d990d2f63b10 (diff) | |
| download | gcc-1228a6a69b9fddc0aaa2b462db44d3d2bef4f22f.zip gcc-1228a6a69b9fddc0aaa2b462db44d3d2bef4f22f.tar.gz gcc-1228a6a69b9fddc0aaa2b462db44d3d2bef4f22f.tar.bz2 | |
gigi.h (get_minimal_subprog_decl): Declare.
* gcc-interface/gigi.h (get_minimal_subprog_decl): Declare.
* gcc-interface/decl.c (get_minimal_subprog_decl): New function.
* gcc-interface/trans.c (Attribute_to_gnu): Use it for the prefix of an
Access-like attribute in a dispatch table if the subprogram is public.
From-SVN: r183607
Diffstat (limited to 'gcc/ada/gcc-interface/gigi.h')
| -rw-r--r-- | gcc/ada/gcc-interface/gigi.h | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index 9b14743..00f6465 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -6,7 +6,7 @@ * * * C Header File * * * - * Copyright (C) 1992-2011, Free Software Foundation, Inc. * + * Copyright (C) 1992-2012, 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- * @@ -118,6 +118,11 @@ extern void mark_out_of_scope (Entity_Id gnat_entity); /* Get the unpadded version of a GNAT type. */ extern tree get_unpadded_type (Entity_Id gnat_entity); +/* Return the DECL associated with the public subprogram GNAT_ENTITY but whose + type has been changed to that of the parameterless procedure, except if an + alias is already present, in which case it is returned instead. */ +extern tree get_minimal_subprog_decl (Entity_Id gnat_entity); + /* Create a record type that contains a SIZE bytes long field of TYPE with a starting bit position so that it is aligned to ALIGN bits, and leaving at least ROOM bytes free before the field. BASE_ALIGN is the alignment the |