From 12169d369435296598cf0b1c41ee2f1af6bb1ef2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 14 Feb 2016 07:52:57 +0100
Subject: ghdl --lines: fix incorrect conversion.

---
 src/ghdldrv/ghdlprint.adb | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb
index 6d2ea4b55..ca0722a78 100644
--- a/src/ghdldrv/ghdlprint.adb
+++ b/src/ghdldrv/ghdlprint.adb
@@ -942,7 +942,11 @@ package body Ghdlprint is
             --  Disp line.
             if Eptr > Ptr then
                --  Avoid constraint error on conversion of nul array.
-               Put (String (Buf (Ptr .. Eptr - 1)));
+               declare
+                  subtype Conv_Subtype is String (1 .. Natural (Eptr - Ptr));
+               begin
+                  Put (Conv_Subtype (Buf (Ptr .. Eptr - 1)));
+               end;
             end if;
             New_Line;
          end loop;
-- 
cgit v1.2.3