From 899b21d6fc1f59b13260678900563448eeca0cb9 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
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/translation.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'translate/translation.adb')

diff --git a/translate/translation.adb b/translate/translation.adb
index d6f85bfe0..7d5c84b17 100644
--- a/translate/translation.adb
+++ b/translate/translation.adb
@@ -26537,8 +26537,7 @@ package body Translation is
             when others =>
                raise Internal_Error;
          end case;
-         New_Record_Aggr_El
-           (List, Generate_Common_Type (Rti_Kind, 0, 0, 0));
+         New_Record_Aggr_El (List, Generate_Common_Type (Rti_Kind, 0, 0, 0));
          New_Record_Aggr_El (List, New_Name_Address (Name));
          New_Record_Aggr_El
            (List,
-- 
cgit v1.2.3