From 2c5ce4b3aab14d67e97623e8dfe31cf27a043e7c Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 10 May 2019 06:32:11 +0200 Subject: Extract psl-errors from errorout. --- src/psl/psl-errors.adb | 35 +++++++++++++++++++++++++++++++++++ src/psl/psl-errors.ads | 29 +++++++++++++++++++++++++++++ 2 files changed, 64 insertions(+) create mode 100644 src/psl/psl-errors.adb create mode 100644 src/psl/psl-errors.ads (limited to 'src/psl') diff --git a/src/psl/psl-errors.adb b/src/psl/psl-errors.adb new file mode 100644 index 000000000..a71b18e86 --- /dev/null +++ b/src/psl/psl-errors.adb @@ -0,0 +1,35 @@ +-- Error message handling for PSL. +-- Copyright (C) 2002-2019 Tristan Gingold +-- +-- GHDL is free software; you can redistribute it and/or modify it under +-- the terms of the GNU General Public License as published by the Free +-- Software Foundation; either version 2, or (at your option) any later +-- version. +-- +-- GHDL is distributed in the hope that it will be useful, but WITHOUT ANY +-- WARRANTY; without even the implied warranty of MERCHANTABILITY or +-- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +-- for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with GHDL; see the file COPYING. If not, write to the Free +-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA +-- 02111-1307, USA. +with Logging; use Logging; +with Errorout; use Errorout; +with PSL.Nodes; + +package body PSL.Errors 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; + + procedure Error_Msg_Sem (Msg: String; Loc : PSL_Node) is + begin + Report_Msg (Msgid_Error, Semantic, +Loc, Msg, No_Eargs, False); + end Error_Msg_Sem; +end PSL.Errors; diff --git a/src/psl/psl-errors.ads b/src/psl/psl-errors.ads new file mode 100644 index 000000000..b4b88d1da --- /dev/null +++ b/src/psl/psl-errors.ads @@ -0,0 +1,29 @@ +-- Error message handling for PSL. +-- Copyright (C) 2002-2019 Tristan Gingold +-- +-- GHDL is free software; you can redistribute it and/or modify it under +-- the terms of the GNU General Public License as published by the Free +-- Software Foundation; either version 2, or (at your option) any later +-- version. +-- +-- GHDL is distributed in the hope that it will be useful, but WITHOUT ANY +-- WARRANTY; without even the implied warranty of MERCHANTABILITY or +-- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +-- for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with GHDL; see the file COPYING. If not, write to the Free +-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA +-- 02111-1307, USA. +with Types; use Types; +with Files_Map; + +package PSL.Errors is + function Image (Loc : Location_Type; Filename : Boolean := True) + return String renames Files_Map.Image; + + procedure Error_Kind (Msg : String; N : PSL_Node); + pragma No_Return (Error_Kind); + + procedure Error_Msg_Sem (Msg: String; Loc: PSL_Node); +end PSL.Errors; -- cgit v1.2.3