diff options
Diffstat (limited to 'src/synth/netlists-errors.adb')
| -rw-r--r-- | src/synth/netlists-errors.adb | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/synth/netlists-errors.adb b/src/synth/netlists-errors.adb index b67af38d1..86f703ca7 100644 --- a/src/synth/netlists-errors.adb +++ b/src/synth/netlists-errors.adb @@ -61,6 +61,13 @@ package body Netlists.Errors is end case; end Output_Name_1; + procedure Output_Name (N : Sname) is + begin + Output_Message (""""); + Output_Name_1 (N); + Output_Message (""""); + end Output_Name; + procedure Synth_Instance_Handler (Format : Character; Err : Error_Record; Val : Uns32) is @@ -69,7 +76,7 @@ package body Netlists.Errors is begin case Format is when 'n' => - Output_Name_1 (Get_Instance_Name (Inst)); + Output_Name (Get_Instance_Name (Inst)); when 'i' => Output_Message ("i"); Output_Uns32 (Uns32 (Inst)); @@ -96,7 +103,7 @@ package body Netlists.Errors is else Name := Get_Output_Desc (Get_Module (Inst), Idx).Name; end if; - Output_Name_1 (Name); + Output_Name (Name); end; when others => raise Internal_Error; @@ -110,7 +117,7 @@ package body Netlists.Errors is N : constant Sname := Sname (Val); begin if Format = 'n' then - Output_Name_1 (N); + Output_Name (N); else raise Internal_Error; end if; |