diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-04 03:58:14 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-04 13:39:09 +0200 |
commit | 25c87cda93867626e73fe95476e8c7acfeabf23f (patch) | |
tree | 7867c879c07c7b66ad93a68338ebe4f19eaa10fc /src/grt | |
parent | 2223b28208687b1c6e969907365b2dbb34d6677d (diff) | |
download | ghdl-25c87cda93867626e73fe95476e8c7acfeabf23f.tar.gz ghdl-25c87cda93867626e73fe95476e8c7acfeabf23f.tar.bz2 ghdl-25c87cda93867626e73fe95476e8c7acfeabf23f.zip |
grt-lib: minor reformatting.
Diffstat (limited to 'src/grt')
-rw-r--r-- | src/grt/grt-lib.adb | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/grt/grt-lib.adb b/src/grt/grt-lib.adb index 9908d581c..653606a31 100644 --- a/src/grt/grt-lib.adb +++ b/src/grt/grt-lib.adb @@ -145,11 +145,9 @@ package body Grt.Lib is Str, "sequence not covered", Severity, Loc); end Ghdl_Psl_Cover_Failed; - procedure Ghdl_Report - (Str : Std_String_Ptr; - Severity : Integer; - Loc : Ghdl_Location_Ptr) - is + procedure Ghdl_Report (Str : Std_String_Ptr; + Severity : Integer; + Loc : Ghdl_Location_Ptr) is begin Do_Report ("report", Str, "Assertion violation", Severity, Loc); end Ghdl_Report; |