diff options
Diffstat (limited to 'gcc/ada/fmap.adb')
| -rw-r--r-- | gcc/ada/fmap.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/fmap.adb b/gcc/ada/fmap.adb index d517c2a..4345dfa8 100644 --- a/gcc/ada/fmap.adb +++ b/gcc/ada/fmap.adb @@ -175,6 +175,7 @@ package body Fmap is ---------------- procedure Initialize (File_Name : String) is + FD : File_Descriptor; Src : Source_Buffer_Ptr; Hi : Source_Ptr; @@ -297,10 +298,14 @@ package body Fmap is begin Empty_Tables; - Read_Source_File (Name_Enter (File_Name), 1, Hi, Src, Config); + Read_Source_File (Name_Enter (File_Name), 1, Hi, Src, FD, Config); if Null_Source_Buffer_Ptr (Src) then - Write_Str ("warning: could not read mapping file """); + if FD = Null_FD then + Write_Str ("warning: could not locate mapping file """); + else + Write_Str ("warning: no read access for mapping file """); + end if; Write_Str (File_Name); Write_Line (""""); No_Mapping_File := True; |