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-chap1.adb | |
| 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-chap1.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap1.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap1.adb b/src/vhdl/translate/trans-chap1.adb index 68f4acd57..93534f028 100644 --- a/src/vhdl/translate/trans-chap1.adb +++ b/src/vhdl/translate/trans-chap1.adb @@ -163,7 +163,8 @@ package body Trans.Chap1 is if Global_Storage = O_Storage_External then -- Entity declaration subprograms. - Chap4.Translate_Declaration_Chain_Subprograms (Entity); + Chap4.Translate_Declaration_Chain_Subprograms + (Entity, Subprg_Translate_Spec_And_Body); else -- Entity declaration and process subprograms. Chap9.Translate_Block_Subprograms (Entity, Entity); |