From cdb323b1dbfccbcff5c63804ff73e6e86e4d05e8 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sun, 31 Jul 2016 17:17:00 +0200 Subject: Rewrite scan error messages: use formatting. --- src/libraries.adb | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'src/libraries.adb') diff --git a/src/libraries.adb b/src/libraries.adb index 71ae71e46..0a91dbc8c 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -1007,12 +1007,14 @@ package body Libraries is -- Warns only if we are not re-analyzing the file. if Is_Warning_Enabled (Warnid_Library) then Warning_Msg_Sem - ("redefinition of a library unit in " - & "same design file:", Unit, Warnid_Library); + (Warnid_Library, +Unit, + "redefinition of a library unit in " + & "same design file:"); Warning_Msg_Sem - (Disp_Node (Library_Unit) & " defined at " - & Disp_Location (Library_Unit) & " is now " - & Disp_Node (New_Library_Unit), Unit, Warnid_Library); + (Warnid_Library, +Unit, + Disp_Node (Library_Unit) & " defined at " + & Disp_Location (Library_Unit) & " is now " + & Disp_Node (New_Library_Unit)); end if; else -- Free the stub. -- cgit v1.2.3