1 files changed, 10 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlmain.adb b/src/ghdldrv/ghdlmain.adb
index 025f04f7e..5baf46e54 100644
--- a/src/ghdldrv/ghdlmain.adb
+++ b/src/ghdldrv/ghdlmain.adb
@@ -244,9 +244,18 @@ package body Ghdlmain is
       Put (Standard_Error, Command_Name);
       Put (Standard_Error, ": ");
       Put_Line (Standard_Error, Msg);
-      --Has_Error := True;
    end Error;
 
+   procedure Warning (Msg : String)
+   is
+      use Ada.Command_Line;
+      use Ada.Text_IO;
+   begin
+      Put (Standard_Error, Command_Name);
+      Put (Standard_Error, ":warning: ");
+      Put_Line (Standard_Error, Msg);
+   end Warning;
+
    procedure Main
    is
       use Ada.Command_Line;
@@ -358,4 +367,3 @@ package body Ghdlmain is
       Register_Command (new Command_Option_Help);
    end Register_Commands;
 end Ghdlmain;
-