From a7f63a8a08aeaef263c7d4a404d7d827cac89b9a Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 1 Sep 2016 06:25:29 +0200
Subject: ghdlprint: remove useless duplicate call.

---
 src/ghdldrv/ghdlprint.adb | 2 --
 1 file changed, 2 deletions(-)

(limited to 'src/ghdldrv')

diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index 76a423bcb..9df87930b 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -762,8 +762,6 @@ package body Ghdlprint is
                   raise Internal_Error;
                end if;
 
-               Location_To_File_Pos
-                 (Get_End_Location (Unit), File_Entry, Lend);
                --  Find the ';'.
                while Buffer (Lend) /= ';' loop
                   Lend := Lend + 1;
-- 
cgit v1.2.3