diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-09-16 07:46:55 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-09-16 07:46:55 +0200 |
| commit | a03179ad2abff33d21fb5d18bcb13b2d8aa11c21 (patch) | |
| tree | 794fae015232319a3188c54b188d50425f578604 /src/grt/grt-vcd.adb | |
| parent | bb151c2bd6f6ab39c70c92828c4591ddb6a594a4 (diff) | |
| download | ghdl-a03179ad2abff33d21fb5d18bcb13b2d8aa11c21.tar.gz ghdl-a03179ad2abff33d21fb5d18bcb13b2d8aa11c21.tar.bz2 ghdl-a03179ad2abff33d21fb5d18bcb13b2d8aa11c21.zip | |
grt: rework error API (WIP).
Diffstat (limited to 'src/grt/grt-vcd.adb')
| -rw-r--r-- | src/grt/grt-vcd.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/grt/grt-vcd.adb b/src/grt/grt-vcd.adb index 1337fdc76..180bfeeb9 100644 --- a/src/grt/grt-vcd.adb +++ b/src/grt/grt-vcd.adb @@ -121,7 +121,7 @@ package body Grt.Vcd is else Stream := fopen (Vcd_Filename.all'Address, Mode'Address); if Stream = NULL_Stream then - Error_C ("cannot open "); + Error_S ("cannot open "); Error_E (Vcd_Filename (Vcd_Filename'First .. Vcd_Filename'Last - 1)); return True; |