diff options
Diffstat (limited to 'src/grt/grt-errors.ads')
| -rw-r--r-- | src/grt/grt-errors.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/grt/grt-errors.ads b/src/grt/grt-errors.ads index 33c9932..8dcf55b 100644 --- a/src/grt/grt-errors.ads +++ b/src/grt/grt-errors.ads @@ -51,6 +51,9 @@ package Grt.Errors is -- Complete error message. procedure Error (Str : String); + -- Warning message. + procedure Warning (Str : String); + -- Internal error. The message must contain the subprogram name which -- has called this procedure. procedure Internal_Error (Msg : String); |