diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-01-19 03:16:04 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-01-19 03:16:04 +0100 |
| commit | 53b8394dd2edefa084924c5c6537865751bd5024 (patch) | |
| tree | a12976247c06f55253b4957b7f541b4476fe6902 | |
| parent | 533c3e35d66131ae93e3f521c5da85ecb24b64a4 (diff) | |
| download | ghdl-53b8394dd2edefa084924c5c6537865751bd5024.tar.gz ghdl-53b8394dd2edefa084924c5c6537865751bd5024.tar.bz2 ghdl-53b8394dd2edefa084924c5c6537865751bd5024.zip | |
Fix obscure crash with complex type (attributes).
| -rw-r--r-- | translate/translation.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/translate/translation.adb b/translate/translation.adb index 64d1313f0..69d10fabd 100644 --- a/translate/translation.adb +++ b/translate/translation.adb @@ -10599,7 +10599,7 @@ package body Translation is Stabilize (Name_Node); New_Assign_Stmt (Get_Var (Alias_Info.Alias_Var), - New_Value (M2Lp (Chap3.Get_Array_Base (Name_Node)))); + M2E (Chap3.Get_Array_Base (Name_Node))); Chap3.Check_Array_Match (Decl_Type, T2M (Decl_Type, Kind), Name_Type, Name_Node, Decl); @@ -11844,7 +11844,7 @@ package body Translation is Info := Add_Info (Spec, Kind_Object); Info.Object_Var := Create_Var (Create_Var_Identifier (Attr), - Atinfo.Ortho_Type (Mode_Value), + Chap4.Get_Object_Type (Atinfo, Mode_Value), Global_Storage); Pop_Identifier_Prefix (Mark); end Translate_Attribute_Specification; |