diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-08-26 05:01:31 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-08-26 05:01:31 +0200 |
| commit | 867de6778790ed2007f5f6e8a18d14619969a257 (patch) | |
| tree | 06f0082c12f428ac94532b7218cfdf44a4f7ea6a | |
| parent | 7e8b023ade5609762a455cc9d567cbd0f2dbea48 (diff) | |
| download | ghdl-867de6778790ed2007f5f6e8a18d14619969a257.tar.gz ghdl-867de6778790ed2007f5f6e8a18d14619969a257.tar.bz2 ghdl-867de6778790ed2007f5f6e8a18d14619969a257.zip | |
Avoid redudant quote in error message
| -rw-r--r-- | src/vhdl/errorout.adb | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb index 3e490517f..c7b9ef528 100644 --- a/src/vhdl/errorout.adb +++ b/src/vhdl/errorout.adb @@ -397,7 +397,6 @@ package body Errorout is declare Arg : Earg_Type renames Args (Argn); begin - Put ('''); case Arg.Kind is when Earg_Iir => Put (Disp_Node (Arg.Val_Iir)); @@ -405,7 +404,6 @@ package body Errorout is -- Invalid conversion to node. raise Internal_Error; end case; - Put ('''); end; when others => -- Unknown format. |