From bfa5245bb96ce98cc4ff275d544196368baa38ac Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 17 Nov 2018 12:14:34 +0100
Subject: ghdlprint: pass a location.

---
 src/ghdldrv/ghdlprint.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/ghdldrv/ghdlprint.adb')

diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index 04e7bd207..29d7f7e29 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -1281,7 +1281,7 @@ package body Ghdlprint is
               | Date_Disk =>
                raise Internal_Error;
             when Date_Parse =>
-               Sem_Lib.Load_Design_Unit (Unit, Null_Iir);
+               Sem_Lib.Load_Design_Unit (Unit, Unit);
             when Date_Analyze =>
                null;
          end case;
-- 
cgit v1.2.3