diff options
author | Tristan Gingold <tgingold@free.fr> | 2019-05-10 06:32:11 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2019-05-10 18:14:47 +0200 |
commit | 2c5ce4b3aab14d67e97623e8dfe31cf27a043e7c (patch) | |
tree | cc9c7920faaf066098206973df852c1a7bed999a /src/errorout.adb | |
parent | 0f995708288bb330cefeac11187ce064c2ec3bb1 (diff) | |
download | ghdl-2c5ce4b3aab14d67e97623e8dfe31cf27a043e7c.tar.gz ghdl-2c5ce4b3aab14d67e97623e8dfe31cf27a043e7c.tar.bz2 ghdl-2c5ce4b3aab14d67e97623e8dfe31cf27a043e7c.zip |
Extract psl-errors from errorout.
Diffstat (limited to 'src/errorout.adb')
-rw-r--r-- | src/errorout.adb | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/src/errorout.adb b/src/errorout.adb index 1b022391d..d921a9040 100644 --- a/src/errorout.adb +++ b/src/errorout.adb @@ -16,7 +16,6 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Logging; use Logging; with Vhdl.Scanner; with Name_Table; with Files_Map; use Files_Map; @@ -27,14 +26,6 @@ with Str_Table; with Vhdl.Errors; use Vhdl.Errors; package body Errorout is - procedure Error_Kind (Msg : String; N : PSL_Node) is - begin - Log (Msg); - Log (": cannot handle "); - Log_Line (PSL.Nodes.Nkind'Image (PSL.Nodes.Get_Kind (N))); - raise Internal_Error; - end Error_Kind; - function Natural_Image (Val: Natural) return String is Str: constant String := Natural'Image (Val); |