diff options
Diffstat (limited to 'gcc/ada/gnatlink.adb')
-rw-r--r-- | gcc/ada/gnatlink.adb | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/gcc/ada/gnatlink.adb b/gcc/ada/gnatlink.adb index 9388fe4a82e..bb65a0f95a6 100644 --- a/gcc/ada/gnatlink.adb +++ b/gcc/ada/gnatlink.adb @@ -1409,9 +1409,17 @@ begin T := Read_Library_Info (F, True); - -- Read it - - A := Scan_ALI (F, T, Ignore_ED => False, Err => False); + -- Read it. Note that we ignore errors, since we only want very + -- limited information from the ali file, and likely a slightly + -- wrong version will be just fine, though in normal operation + -- we don't expect this to happen! + + A := Scan_ALI + (F, + T, + Ignore_ED => False, + Err => False, + Ignore_Errors => True); if A /= No_ALI_Id then for |