[Ada] Small enhancement in XEinfo utility
authorEric Botcazou <ebotcazou@adacore.com>
Tue, 3 Mar 2020 15:13:20 +0000 (16:13 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 9 Jun 2020 08:09:07 +0000 (04:09 -0400)
commita2048d055bfe230b7074c492245ac041f739e471
tree5477e8132d41b739f4d9c0a0e7d0db08ef1b2624
parentfd66407104b2133f0e55deb84db787c692a21948
[Ada] Small enhancement in XEinfo utility

2020-06-09  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

* einfo.ads (XEINFO section): Update format description.
(Is_Subprogram_Or_Entry): Move pragma to regular section.
(Is_Subprogram_Or_Generic_Subprogram): Likewise.
* xeinfo.adb (Get_B4): Rename to...
(Get_B0): ...this.
(Translate_Expr): New procedure extracted from...
(XEinfo): ...here.  Try to apply Get_B0 first and then
call Translate_Expr to translate supported constructs.
gcc/ada/einfo.ads
gcc/ada/xeinfo.adb