diff options
Diffstat (limited to 'gcc/ada/back_end.adb')
| -rw-r--r-- | gcc/ada/back_end.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb index fa7c54d2f19..0cfd45fac30 100644 --- a/gcc/ada/back_end.adb +++ b/gcc/ada/back_end.adb @@ -76,6 +76,7 @@ package body Back_End is type File_Info_Type is record File_Name : File_Name_Type; + Instance : Instance_Id; Num_Source_Lines : Nat; end record; @@ -119,6 +120,7 @@ package body Back_End is for J in 1 .. Last_Source_File loop File_Info_Array (J).File_Name := Full_Debug_Name (J); + File_Info_Array (J).Instance := Instance (J); File_Info_Array (J).Num_Source_Lines := Nat (Physical_To_Logical (Last_Source_Line (J), J)); end loop; @@ -243,6 +245,12 @@ package body Back_End is elsif Switch_Chars (First .. Last) = "fdump-scos" then Opt.Generate_SCO := True; + -- Back end switch -fdebug-instances also enables instance table + -- SCO generation. + + elsif Switch_Chars (First .. Last) = "fdebug-instances" then + Opt.Generate_SCO_Instance_Table := True; + end if; end if; end Scan_Back_End_Switches; |