1 files changed, 7 insertions, 1 deletions
diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb
index 67969be..0bf2b7f 100644
--- a/src/vhdl/errorout.adb
+++ b/src/vhdl/errorout.adb
@@ -156,7 +156,13 @@ package body Errorout is
                Location_To_Position (Loc, File, Line, Col);
             end if;
          when Semantic =>
-            Location_To_Position (Loc, File, Line, Col);
+            if Loc = No_Location then
+               File := No_Source_File_Entry;
+               Line := 0;
+               Col := 0;
+            else
+               Location_To_Position (Loc, File, Line, Col);
+            end if;
       end case;
 
       if Progname then