diff options
Diffstat (limited to 'gcc/ada/gnatbind.adb')
| -rw-r--r-- | gcc/ada/gnatbind.adb | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/gcc/ada/gnatbind.adb b/gcc/ada/gnatbind.adb index e4af0c3..cb5c695 100644 --- a/gcc/ada/gnatbind.adb +++ b/gcc/ada/gnatbind.adb @@ -34,6 +34,7 @@ with Bindusg; with Butil; use Butil; with Casing; use Casing; with Csets; +with Debug; use Debug; with Fmap; with Gnatvsn; use Gnatvsn; with Namet; use Namet; @@ -532,10 +533,11 @@ begin begin Id := Scan_ALI - (F => Main_Lib_File, - T => Text, - Ignore_ED => Force_RM_Elaboration_Order, - Err => False); + (F => Main_Lib_File, + T => Text, + Ignore_ED => Force_RM_Elaboration_Order, + Err => False, + Ignore_Errors => Debug_Flag_I); end; Free (Text); @@ -576,10 +578,11 @@ begin begin Id := Scan_ALI - (F => Std_Lib_File, - T => Text, - Ignore_ED => Force_RM_Elaboration_Order, - Err => False); + (F => Std_Lib_File, + T => Text, + Ignore_ED => Force_RM_Elaboration_Order, + Err => False, + Ignore_Errors => Debug_Flag_I); end; Free (Text); |