aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2014-01-21 21:12:43 +0100
committerTristan Gingold <tgingold@free.fr>2014-01-21 21:12:43 +0100
commita5ab19a20dce3e46f73176b3b0534f71f2c44ef3 (patch)
tree6f8a63f0fb6e4b5e965e56cd3f4c705a505454ac
parent53bccc62d510f2a1df7500b3a5d916ec08d99c91 (diff)
downloadghdl-a5ab19a20dce3e46f73176b3b0534f71f2c44ef3.tar.gz
ghdl-a5ab19a20dce3e46f73176b3b0534f71f2c44ef3.tar.bz2
ghdl-a5ab19a20dce3e46f73176b3b0534f71f2c44ef3.zip
Avoid use before declaration.
-rw-r--r--translate/translation.adb7
1 files changed, 4 insertions, 3 deletions
diff --git a/translate/translation.adb b/translate/translation.adb
index 7b9b6f385..ecc4a0684 100644
--- a/translate/translation.adb
+++ b/translate/translation.adb
@@ -25263,6 +25263,7 @@ package body Translation is
Prefix : Iir;
Res : O_Dnode;
Name_Cst : O_Dnode;
+ Str_Cst : O_Cnode;
Constr : O_Assoc_List;
Is_Instance : Boolean;
begin
@@ -25313,12 +25314,12 @@ package body Translation is
Create_Temp_Stack2_Mark;
Res := Create_Temp (Std_String_Node);
+ Str_Cst := Create_String_Len (Path_Str (1 .. Path_Len),
+ Create_Uniq_Identifier);
New_Const_Decl (Name_Cst, Create_Uniq_Identifier, O_Storage_Private,
Ghdl_Str_Len_Type_Node);
Start_Const_Value (Name_Cst);
- Finish_Const_Value (Name_Cst,
- Create_String_Len (Path_Str (1 .. Path_Len),
- Create_Uniq_Identifier));
+ Finish_Const_Value (Name_Cst, Str_Cst);
if Is_Instance then
Start_Association (Constr, Ghdl_Get_Instance_Name);
else