diff options
Diffstat (limited to 'gcc/ada/exp_ch11.adb')
| -rw-r--r-- | gcc/ada/exp_ch11.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch11.adb b/gcc/ada/exp_ch11.adb index c41a95f4973..cd33300341f 100644 --- a/gcc/ada/exp_ch11.adb +++ b/gcc/ada/exp_ch11.adb @@ -1250,6 +1250,12 @@ package body Exp_Ch11 is -- Start of processing for Expand_N_Exception_Declaration begin + -- Nothing to do when generating C code + + if Generate_C_Code then + return; + end if; + -- Definition of the external name: nam : constant String := "A.B.NAME"; Ex_Id := |