diff options
| author | Tristan Gingold | 2014-01-25 10:29:44 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-01-25 10:29:44 +0100 |
| commit | 899b21d6fc1f59b13260678900563448eeca0cb9 (patch) | |
| tree | 08c67379402c7847af57b9e854aab2fe42e7b990 /translate/grt/grt-errors.ads | |
| parent | ee043778d9323fa1879389dee570c87d8f3903a7 (diff) | |
| download | ghdl-899b21d6fc1f59b13260678900563448eeca0cb9.tar.gz ghdl-899b21d6fc1f59b13260678900563448eeca0cb9.tar.bz2 ghdl-899b21d6fc1f59b13260678900563448eeca0cb9.zip | |
Fix 'value on physical types with whitespaces.
Fix style and simplify grt-values.adb. Add tests.
Diffstat (limited to 'translate/grt/grt-errors.ads')
| -rw-r--r-- | translate/grt/grt-errors.ads | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/translate/grt/grt-errors.ads b/translate/grt/grt-errors.ads index b839023..d5b79a6 100644 --- a/translate/grt/grt-errors.ads +++ b/translate/grt/grt-errors.ads @@ -25,9 +25,10 @@ package Grt.Errors is procedure Error_C (Str : String); procedure Error_C (N : Integer); procedure Error_C (Str : Ghdl_C_String); + procedure Error_C_Std (Str : Std_String_Uncons); --procedure Error_C (Inst : Ghdl_Instance_Name_Acc); - procedure Error_E (Str : String); - procedure Error_E_Std (Str : Std_String_Uncons); + procedure Error_E (Str : String := ""); + -- procedure Error_E_Std (Str : Std_String_Uncons); pragma No_Return (Error_E); -- Multi-call report procedure. Do not exit at end. |