diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-01-25 10:29:44 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-01-25 10:29:44 +0100 |
| commit | 899b21d6fc1f59b13260678900563448eeca0cb9 (patch) | |
| tree | 08c67379402c7847af57b9e854aab2fe42e7b990 /translate/grt/grt-errors.adb | |
| 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.adb')
| -rw-r--r-- | translate/grt/grt-errors.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/translate/grt/grt-errors.adb b/translate/grt/grt-errors.adb index 5b541af1e..5238b53f1 100644 --- a/translate/grt/grt-errors.adb +++ b/translate/grt/grt-errors.adb @@ -194,7 +194,7 @@ package body Grt.Errors is -- end case; -- end Error_C; - procedure Error_E (Str : String) is + procedure Error_E (Str : String := "") is begin Put_Err (Str); Newline_Err; @@ -202,12 +202,12 @@ package body Grt.Errors is Fatal_Error; end Error_E; - procedure Error_E_Std (Str : Std_String_Uncons) + procedure Error_C_Std (Str : Std_String_Uncons) is subtype Str_Subtype is String (1 .. Str'Length); begin - Error_E (Str_Subtype (Str)); - end Error_E_Std; + Error_C (Str_Subtype (Str)); + end Error_C_Std; procedure Error (Str : String) is begin |