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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
|
-- 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;
with Vhdl.Tokens;
package Errorout is
Option_Error: exception;
Compilation_Error: exception;
-- This kind can't be handled.
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;
-- Maximum number of errors, before silent them.
Max_Nbr_Errors : constant Natural := 100;
type Msgid_Type is
(
-- Any note
Msgid_Note,
-- Specific warnings
-- Design unit redefines another design unit.
Warnid_Library,
-- Missing Xref in pretty print.
Warnid_Missing_Xref,
-- No default binding for a component instantiation.
Warnid_Default_Binding,
-- Unbound component.
Warnid_Binding,
-- Unconnected IN port without defaults (in relaxed mode).
Warnid_Port,
-- Vhdl93 reserved word is used as a vhdl87 identifier.
Warnid_Reserved_Word,
-- Start of block comment ('/*') appears in a block comment.
Warnid_Nested_Comment,
-- Use of a tool directive.
Warnid_Directive,
-- Weird use of parenthesis.
Warnid_Parenthesis,
-- Generic of a vital entity is not a vital name.
Warnid_Vital_Generic,
-- Delayed checks (checks performed at elaboration time).
Warnid_Delayed_Checks,
-- Package body is not required but is analyzed.
Warnid_Body,
-- An all/others specification does not apply, because there is no such
-- named entities.
Warnid_Specs,
-- Incorrect use of universal value.
Warnid_Universal,
-- Mismatch of bounds between actual and formal in a scalar port
-- association
Warnid_Port_Bounds,
-- Runtime error detected at analysis time.
Warnid_Runtime_Error,
-- Signal assignment creates a delta cycle in a postponed process.
Warnid_Delta_Cycle,
-- Declaration of a shared variable with a non-protected type.
Warnid_Shared,
-- A declaration hides a previous one.
Warnid_Hide,
-- Emit a warning when a declaration is never used.
-- FIXME: currently only subprograms are handled.
Warnid_Unused,
-- Others choice is not needed, all values are already covered.
Warnid_Others,
-- Violation of pure rules.
Warnid_Pure,
-- Violation of staticness rules
Warnid_Static,
-- Any warning
Msgid_Warning,
-- Any error
Msgid_Error,
-- Any fatal error
Msgid_Fatal
);
-- All specific warning messages.
subtype Msgid_Warnings is Msgid_Type
range Warnid_Library .. Warnid_Static;
-- Get the image of a warning. This correspond the the identifier of ID,
-- in lower case, without the Msgid_Warn_ prefix and with '_' replaced
-- by '-'.
function Warning_Image (Id : Msgid_Warnings) return String;
-- Enable or disable a warning.
procedure Enable_Warning (Id : Msgid_Warnings; Enable : Boolean);
-- Get enable status of a warning.
function Is_Warning_Enabled (Id : Msgid_Warnings) return Boolean;
-- State of warnings.
type Warnings_Setting is private;
-- Global control of warnings.
-- Used to disable warnings while a referenced unit is analyzed.
procedure Save_Warnings_Setting (Res : out Warnings_Setting);
procedure Disable_All_Warnings;
procedure Restore_Warnings_Setting (Res : Warnings_Setting);
type Earg_Type is private;
type Earg_Arr is array (Natural range <>) of Earg_Type;
-- An empty array (for no arguments).
No_Eargs : constant Earg_Arr;
-- Report display:
-- %%: %
-- %i: identifier
-- %c: character
-- %t: token
-- %l: location
-- %n: node name
-- %s: a string
-- TODO: %m: mode, %y: type of
function "+" (V : Iir) return Earg_Type;
function "+" (V : Location_Type) return Earg_Type;
function "+" (V : Name_Id) return Earg_Type;
function "+" (V : Vhdl.Tokens.Token_Type) return Earg_Type;
function "+" (V : Character) return Earg_Type;
function "+" (V : String8_Len_Type) return Earg_Type;
-- Convert location.
function "+" (L : Iir) return Location_Type;
function "+" (L : PSL_Node) return Location_Type;
-- Pass that detected the error.
type Report_Origin is
(Option, Library, Scan, Parse, Semantic, Elaboration);
type Error_Record is record
Origin : Report_Origin;
Id : Msgid_Type;
Cont : Boolean;
File : Source_File_Entry;
-- The first line is line 1, 0 can be used when line number is not
-- relevant.
Line : Natural;
-- Offset in the line. The first character is at offset 0.
Offset : Natural;
-- Length of the location (for a range). It is assumed to be on the
-- same line; use 0 when unknown.
Length : Natural;
end record;
type Error_Start_Handler is access procedure (Err : Error_Record);
type Message_Handler is access procedure (Str : String);
type Message_End_Handler is access procedure;
type Report_Msg_Handler is record
Error_Start : Error_Start_Handler;
Message : Message_Handler;
Message_End : Message_End_Handler;
end record;
procedure Set_Report_Handler (Handler : Report_Msg_Handler);
-- 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 (Id : Msgid_Type;
Origin : Report_Origin;
Loc : Location_Type;
Msg : String;
Args : Earg_Arr := No_Eargs;
Cont : Boolean := False);
-- 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);
-- Warn about an option.
procedure Warning_Msg_Option (Id : Msgid_Warnings; Msg: String);
-- Disp a message during semantic analysis.
procedure Warning_Msg_Sem (Id : Msgid_Warnings;
Loc : Location_Type;
Msg: String;
Args : Earg_Arr := No_Eargs;
Cont : Boolean := False);
procedure Warning_Msg_Sem (Id : Msgid_Warnings;
Loc : Location_Type;
Msg: String;
Arg1 : Earg_Type;
Cont : Boolean := False);
procedure Error_Msg_Sem (Loc: Location_Type;
Msg: String;
Args : Earg_Arr := No_Eargs;
Cont : Boolean := False);
procedure Error_Msg_Sem
(Loc: Location_Type; Msg: String; Arg1 : Earg_Type);
procedure Error_Msg_Sem_1 (Msg: String; Loc : PSL_Node);
-- Like Error_Msg_Sem, but a warning if -frelaxed or --std=93c.
procedure Error_Msg_Sem_Relaxed (Loc : Iir;
Id : Msgid_Warnings;
Msg : String;
Args : Earg_Arr := No_Eargs);
-- Disp a message during elaboration (or configuration).
procedure Error_Msg_Elab
(Msg: String; Args : Earg_Arr := No_Eargs);
procedure Error_Msg_Elab
(Msg: String; Arg1 : Earg_Type);
procedure Error_Msg_Elab
(Loc: Iir; Msg: String; Args : Earg_Arr := No_Eargs);
procedure Error_Msg_Elab
(Loc: Iir; Msg: String; Arg1 : Earg_Type);
-- Like Error_Msg_Elab, but a warning if -frelaxed or --std=93c.
procedure Error_Msg_Elab_Relaxed (Loc : Iir;
Id : Msgid_Warnings;
Msg : String;
Args : Earg_Arr := No_Eargs);
-- Disp a warning durig elaboration (or configuration).
procedure Warning_Msg_Elab (Id : Msgid_Warnings;
Loc : Iir;
Msg: String;
Arg1 : Earg_Type;
Cont : Boolean := False);
procedure Warning_Msg_Elab (Id : Msgid_Warnings;
Loc : Iir;
Msg: String;
Args : Earg_Arr := No_Eargs;
Cont : Boolean := False);
-- 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 EXPR.
procedure Error_Not_Match (Expr: Iir; A_Type: Iir);
-- Disp interface mode MODE.
function Get_Mode_Name (Mode : Iir_Mode) return String;
private
type Earg_Kind is
(Earg_None,
Earg_Iir, Earg_Location, Earg_Id, Earg_Char, Earg_Token, Earg_String8);
type Earg_Type (Kind : Earg_Kind := Earg_None) is record
case Kind is
when Earg_None =>
null;
when Earg_Iir =>
Val_Iir : Iir;
when Earg_Location =>
Val_Loc : Location_Type;
when Earg_Id =>
Val_Id : Name_Id;
when Earg_Char =>
Val_Char : Character;
when Earg_Token =>
Val_Tok : Vhdl.Tokens.Token_Type;
when Earg_String8 =>
Val_Str8 : String8_Len_Type;
end case;
end record;
No_Eargs : constant Earg_Arr := (1 .. 0 => (Kind => Earg_None));
type Warning_Control_Type is record
Enabled : Boolean;
Error : Boolean;
end record;
type Warnings_Setting is array (Msgid_Warnings) of Warning_Control_Type;
Default_Warnings : constant Warnings_Setting :=
(Warnid_Binding | Warnid_Library | Warnid_Shared
| Warnid_Pure | Warnid_Specs | Warnid_Hide
| Warnid_Port => (Enabled => True, Error => False),
others => (Enabled => False, Error => False));
-- Compute the column from Error_Record E.
function Get_Error_Col (E : Error_Record) return Natural;
-- Image of VAL, without the leading space.
function Natural_Image (Val: Natural) return String;
end Errorout;
|