diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 09:36:59 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-29 09:36:59 +0000 |
| commit | 836b51a0d106e6977d75202a4e4275b97fdcdf93 (patch) | |
| tree | ab3ea9abe2874400f41876854678114635a331a2 /gcc/ada/frontend.adb | |
| parent | 5a4d11b2bd5f068cfa47f8e959df9e02172e4fdc (diff) | |
| download | ppe42-gcc-836b51a0d106e6977d75202a4e4275b97fdcdf93.tar.gz ppe42-gcc-836b51a0d106e6977d75202a4e4275b97fdcdf93.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178180 138bc75d-0d04-0410-961f-82ee72b054a4
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 c6dd8cb5991..f849d31ecf9 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; |
