diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-14 07:52:57 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-14 13:52:34 +0100 |
| commit | 12169d369435296598cf0b1c41ee2f1af6bb1ef2 (patch) | |
| tree | 169be913547f3746a68ba06d694feee9e1ba84d0 /src/ghdldrv/ghdlprint.adb | |
| parent | 03a502169b3a3656018236ec4d4952a3fd4ec880 (diff) | |
| download | ghdl-12169d369435296598cf0b1c41ee2f1af6bb1ef2.tar.gz ghdl-12169d369435296598cf0b1c41ee2f1af6bb1ef2.tar.bz2 ghdl-12169d369435296598cf0b1c41ee2f1af6bb1ef2.zip | |
ghdl --lines: fix incorrect conversion.
Diffstat (limited to 'src/ghdldrv/ghdlprint.adb')
| -rw-r--r-- | src/ghdldrv/ghdlprint.adb | 6 |
1 files changed, 5 insertions, 1 deletions
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; |