diff options
| author | Johannes Kanig <kanig@adacore.com> | 2011-08-29 09:36:59 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-29 11:36:59 +0200 |
| commit | 4bcd6411417e4bd46d5f6416f72c71bf69cd577a (patch) | |
| tree | ab3ea9abe2874400f41876854678114635a331a2 /gcc/ada/frontend.adb | |
| parent | f0f88eb6da6cebf88ec1b3fc2d75b6b350c1bfba (diff) | |
| download | gcc-4bcd6411417e4bd46d5f6416f72c71bf69cd577a.zip gcc-4bcd6411417e4bd46d5f6416f72c71bf69cd577a.tar.gz gcc-4bcd6411417e4bd46d5f6416f72c71bf69cd577a.tar.bz2 | |
frontend.adb (Frontend): Exit after creating Standard package when -gnatd.H is present.
2011-08-29 Johannes Kanig <kanig@adacore.com>
* frontend.adb (Frontend): Exit after creating Standard package when
-gnatd.H is present.
* gnat1drv.adb (Gnat1drv): Call Backend right away when -gnatd.H is
present.
From-SVN: r178180
Diffstat (limited to 'gcc/ada/frontend.adb')
| -rw-r--r-- | gcc/ada/frontend.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index c6dd8cb..f849d31 100644 --- a/gcc/ada/frontend.adb +++ b/gcc/ada/frontend.adb @@ -98,6 +98,12 @@ begin CStand.Create_Standard; + -- If the -gnatd.H flag is present, we are only interested in the Standard + -- package, so the frontend has done its job here. + if Debug_Flag_Dot_HH then + return; + end if; + -- Check possible symbol definitions specified by -gnateD switches Prepcomp.Process_Command_Line_Symbol_Definitions; |