diff options
Diffstat (limited to 'gcc/ada/ali.adb')
| -rw-r--r-- | gcc/ada/ali.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index 3326ecaafad..c1e51b4d472 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -815,6 +815,12 @@ package body ALI is Checkc ('E'); ALIs.Table (Id).Compile_Errors := True; + -- Processing for DB + + elsif C = 'D' then + Checkc ('B'); + Detect_Blocking := True; + -- Processing for FD/FG/FI elsif C = 'F' then |