From 899b21d6fc1f59b13260678900563448eeca0cb9 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 25 Jan 2014 10:29:44 +0100 Subject: Fix 'value on physical types with whitespaces. Fix style and simplify grt-values.adb. Add tests. --- translate/grt/grt-errors.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'translate/grt/grt-errors.adb') 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 -- cgit v1.2.3