1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
-- Error message handling.
-- Copyright (C) 2002, 2003, 2004, 2005 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 Iirs; use Iirs;
package Errorout is
Option_Error: exception;
Parse_Error: exception;
Compilation_Error: exception;
-- This kind can't be handled.
--procedure Error_Kind (Msg: String; Kind: Iir_Kind);
procedure Error_Kind (Msg: String; An_Iir: in Iir);
procedure Error_Kind (Msg: String; Def : Iir_Predefined_Functions);
procedure Error_Kind (Msg : String; N : PSL_Node);
pragma No_Return (Error_Kind);
-- The number of errors (ie, number of calls to error_msg*).
Nbr_Errors: Natural := 0;
type Report_Level is (Note, Warning, Error, Fatal);
type Report_Origin is
(Option, Library, Scan, Parse, Semantic, Elaboration);
-- Generic report message. LOC maybe No_Location.
-- If ORIGIN is Option or Library, LOC must be No_Location and the program
-- name is displayed.
procedure Report_Msg (Level : Report_Level;
Origin : Report_Origin;
Loc : Location_Type;
Msg : String);
-- Disp an error, prepended with program name, and raise option_error.
-- This is used for errors before initialisation, such as bad option or
-- bad filename.
procedure Error_Msg_Option (Msg: String);
pragma No_Return (Error_Msg_Option);
-- Same as Error_Msg_Option but do not raise Option_Error.
procedure Error_Msg_Option_NR (Msg: String);
-- Disp an error location (using AN_IIR location) using the standard
-- format `file:line:col: '.
procedure Disp_Iir_Location (An_Iir: Iir);
-- Disp a warning.
procedure Warning_Msg_Sem (Msg: String; Loc : Iir);
procedure Warning_Msg_Sem (Msg: String; Loc : Location_Type);
-- Disp a message during scan.
-- The current location is automatically displayed before the message.
procedure Error_Msg_Scan (Msg: String);
procedure Error_Msg_Scan (Msg: String; Loc : Location_Type);
procedure Warning_Msg_Scan (Msg: String);
-- Disp a message during parse
-- The location of the current token is automatically displayed before
-- the message.
procedure Error_Msg_Parse (Msg: String);
procedure Error_Msg_Parse (Msg: String; Loc : Iir);
procedure Error_Msg_Parse (Msg: String; Loc : Location_Type);
-- Disp a message during semantic analysis.
-- an_iir is used for location and current token.
procedure Error_Msg_Sem (Msg: String; Loc: Iir);
procedure Error_Msg_Sem (Msg: String; Loc: PSL_Node);
procedure Error_Msg_Sem (Msg: String; Loc: Location_Type);
-- Like Error_Msg_Sem, but a warning if -frelaxed or --std=93c.
procedure Error_Msg_Sem_Relaxed (Msg : String; Loc : Iir);
-- Disp a message during elaboration (or configuration).
procedure Error_Msg_Elab (Msg: String);
procedure Error_Msg_Elab (Msg: String; Loc: Iir);
-- Disp a warning durig elaboration (or configuration).
procedure Warning_Msg_Elab (Msg: String; Loc : Iir);
-- Disp a bug message.
procedure Error_Internal (Expr: Iir; Msg: String := "");
pragma No_Return (Error_Internal);
-- Disp a node.
-- Used for output of message.
function Disp_Node (Node: Iir) return String;
-- Disp a node location.
-- Used for output of message.
function Disp_Location (Node: Iir) return String;
-- Disp non-terminal name from KIND.
function Disp_Name (Kind : Iir_Kind) return String;
-- SUBPRG must be a subprogram declaration or an enumeration literal
-- declaration.
-- Returns:
-- "enumeration literal XX [ return TYPE ]"
-- "function XXX [ TYPE1, TYPE2 return TYPE ]"
-- "procedure XXX [ TYPE1, TYPE2 ]"
-- "implicit function XXX [ TYPE1, TYPE2 return TYPE ]"
-- "implicit procedure XXX [ TYPE1, TYPE2 ]"
function Disp_Subprg (Subprg : Iir) return String;
-- Print element POS of discrete type DTYPE.
function Disp_Discrete (Dtype : Iir; Pos : Iir_Int64) return String;
-- Disp the name of the type of NODE if known.
-- Disp "unknown" if it is not known.
-- Disp all possible types if it is an overload list.
function Disp_Type_Of (Node : Iir) return String;
-- Disp an error message when a pure function CALLER calls impure CALLEE.
procedure Error_Pure
(Origin : Report_Origin; Caller : Iir; Callee : Iir; Loc : Iir);
-- Report an error message as type of EXPR does not match A_TYPE.
-- Location is LOC.
procedure Error_Not_Match (Expr: Iir; A_Type: Iir; Loc : Iir);
-- Disp interface mode MODE.
function Get_Mode_Name (Mode : Iir_Mode) return String;
end Errorout;
|
