diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-05-13 18:35:09 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-05-18 07:59:34 +0200 |
commit | 37614e632530b255437d8ed2b6258a5bbc23e522 (patch) | |
tree | 4c94f189a22ed0164c7fa212abaa2030f4ce0527 /src/vhdl/translate/trans.ads | |
parent | 095eb34ca4a8fbda0ed2aaaa90bb5aec1d10d621 (diff) | |
download | ghdl-37614e632530b255437d8ed2b6258a5bbc23e522.tar.gz ghdl-37614e632530b255437d8ed2b6258a5bbc23e522.tar.bz2 ghdl-37614e632530b255437d8ed2b6258a5bbc23e522.zip |
Translation: separate subprogram translation spec and body.
Diffstat (limited to 'src/vhdl/translate/trans.ads')
-rw-r--r-- | src/vhdl/translate/trans.ads | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index 80392c86e..598e662f4 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -171,6 +171,16 @@ package Trans is type Allocation_Kind is (Alloc_Stack, Alloc_Return, Alloc_Heap, Alloc_System); + -- Sometimes useful to factorize code. Defines what has to be translated. + type Subprg_Translate_Kind is + (Subprg_Translate_Only_Spec, + Subprg_Translate_Spec_And_Body, + Subprg_Translate_Only_Body); + subtype Subprg_Translate_Spec is Subprg_Translate_Kind range + Subprg_Translate_Only_Spec .. Subprg_Translate_Spec_And_Body; + subtype Subprg_Translate_Body is Subprg_Translate_Kind range + Subprg_Translate_Spec_And_Body .. Subprg_Translate_Only_Body; + -- Return the value of field FIELD of lnode L that is contains -- a pointer to a record. -- This is equivalent to: |