diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-02-23 06:55:52 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-02-23 18:52:23 +0100 |
commit | f8181550a62857bf2d73710b0952af16726eba6c (patch) | |
tree | cbdc7df3a25e6c727c9b203cc61cd0512837081b /src/vhdl/translate/trans.adb | |
parent | 7969ec4835be2e8745b648bf47cd97c30ae71ade (diff) | |
download | ghdl-f8181550a62857bf2d73710b0952af16726eba6c.tar.gz ghdl-f8181550a62857bf2d73710b0952af16726eba6c.tar.bz2 ghdl-f8181550a62857bf2d73710b0952af16726eba6c.zip |
translate: separate decl and stmt elab subprograms.
Diffstat (limited to 'src/vhdl/translate/trans.adb')
-rw-r--r-- | src/vhdl/translate/trans.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans.adb b/src/vhdl/translate/trans.adb index 481870f89..6efa94701 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -889,6 +889,16 @@ package body Trans is return Get_Identifier (Identifier_Buffer (1 .. Identifier_Len - 2)); end Create_Identifier; + function Create_Elab_Identifier (Kind : Elab_Kind) return O_Ident is + begin + case Kind is + when Elab_Decls => + return Create_Identifier ("DECL_ELAB"); + when Elab_Stmts => + return Create_Identifier ("STMT_ELAB"); + end case; + end Create_Elab_Identifier; + function Create_Var_Identifier_From_Buffer (L : Natural) return Var_Ident_Type is |