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/translation.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/translation.adb')
-rw-r--r-- | translate/translation.adb | 3 |
1 files changed, 1 insertions, 2 deletions
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, |