diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-09-08 12:05:18 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-09-08 12:05:18 +0200 |
| commit | f63adaa7a4ae18c7b0dc420f9e298f5b0746da6f (patch) | |
| tree | 358956872032be9a0511fbfcc6dd5eb0659c861c /gcc/ada/errout.ads | |
| parent | 4ac62786d6fb3b28c157fe9e6292842aa201d904 (diff) | |
| download | gcc-f63adaa7a4ae18c7b0dc420f9e298f5b0746da6f.zip gcc-f63adaa7a4ae18c7b0dc420f9e298f5b0746da6f.tar.gz gcc-f63adaa7a4ae18c7b0dc420f9e298f5b0746da6f.tar.bz2 | |
[multiple changes]
2017-09-08 Yannick Moy <moy@adacore.com>
* sem_prag.adb: Use System.Case_Util.To_Lower to simplify code.
2017-09-08 Arnaud Charlet <charlet@adacore.com>
* opt.ads (Include_Subprogram_In_Messages): New variable.
* errout.ads (Current_Subprogram_Ptr): New variable.
* errout.adb (Error_Msg): Prepend current subprogram info
in messages if Include_Subprogram_In_Messages is set.
* sem_util.adb (elab code): Initialize Current_Subprogram_Ptr to
Current_Subprogram.
* gnat1drv.adb (Adjust_Global_Switches): Set
Include_Subprogram_In_Messages when -gnatdJ is set.
* debug.adb: Document and reserve -gnatdJ.
2017-09-08 Georges-Axel Jaloyan <jaloyan@adacore.com>
* g-dynhta.adb, g-dynhta.ads (Get_First_Key, Get_Next_Key): New
functions to iterate over simple hastables.
(Load_Factor_HTable): Remove obsolete and inefficient implementation.
2017-09-08 Javier Miranda <miranda@adacore.com>
* exp_ch6.adb (Unqual_BIP_Function_Call): Adding
missing checks on the presence of Entity() before checking the
entity attributes.
2017-09-08 Eric Botcazou <ebotcazou@adacore.com>
* sem_ch6.adb (Analyze_Expression_Function): Reorder some
statements, use local variable and remove unnecessary processing.
From-SVN: r251880
Diffstat (limited to 'gcc/ada/errout.ads')
| -rw-r--r-- | gcc/ada/errout.ads | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index a8e4d6c..ad33673 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2017, 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- -- @@ -68,6 +68,11 @@ package Errout is -- error message tag. The -gnatw.d switch sets this flag True, -gnatw.D -- sets this flag False. + type Current_Subprogram_Type is access function return Entity_Id; + Current_Subprogram_Ptr : Current_Subprogram_Type := null; + -- Indirect call to Sem_Util.Current_Subprogram to break circular + -- dependency with the static elaboration model. + ----------------------------------- -- Suppression of Error Messages -- ----------------------------------- |