From e8fa3dcdd50c6c532d9dab2da73b3dd23f5c27cb Mon Sep 17 00:00:00 2001 From: Pierre-Marie de Rodat Date: Wed, 30 Jul 2014 14:52:44 +0200 Subject: decl.c (gnat_to_gnu_entity): Create a mere scalar constant instead of a reference for a renaming of scalar... 2014-07-30 Pierre-Marie Derodat * gcc-interface/decl.c (gnat_to_gnu_entity) : Create a mere scalar constant instead of a reference for a renaming of scalar literal. * gcc-interface/utils.c (renaming_from_generic_instantiation_p): New. * gcc-interface/gigi.h (renaming_from_generic_instantiation_p): New. From-SVN: r213258 --- gcc/ada/gcc-interface/gigi.h | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gcc/ada/gcc-interface/gigi.h') diff --git a/gcc/ada/gcc-interface/gigi.h b/gcc/ada/gcc-interface/gigi.h index 76fa2ab..6d83203 100644 --- a/gcc/ada/gcc-interface/gigi.h +++ b/gcc/ada/gcc-interface/gigi.h @@ -1017,6 +1017,12 @@ extern int fp_prec_to_size (int prec); /* Return the precision of the FP mode with size SIZE. */ extern int fp_size_to_prec (int size); +/* Return whether GNAT_NODE is a defining identifier for a renaming that comes + from the parameter association for the instantiation of a generic. We do + not want to emit source location for them: the code generated for their + initialization is likely to disturb debugging. */ +extern bool renaming_from_generic_instantiation_p (Node_Id gnat_node); + #ifdef __cplusplus extern "C" { #endif -- cgit v1.1