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-chap2.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-chap2.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 83bc97b31..df3298347 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -528,7 +528,8 @@ package body Trans.Chap2 is Subprgs.Start_Prev_Subprg_Instance_Use_Via_Field (Prev_Subprg_Instances, Upframe_Field); - Chap4.Translate_Declaration_Chain_Subprograms (Subprg); + Chap4.Translate_Declaration_Chain_Subprograms + (Subprg, Subprg_Translate_Spec_And_Body); -- Link to previous frame Subprgs.Finish_Prev_Subprg_Instance_Use_Via_Field @@ -556,7 +557,8 @@ package body Trans.Chap2 is if not Has_Suspend and not Has_Nested then Chap4.Translate_Declaration_Chain (Subprg); Rtis.Generate_Subprogram_Body (Subprg); - Chap4.Translate_Declaration_Chain_Subprograms (Subprg); + Chap4.Translate_Declaration_Chain_Subprograms + (Subprg, Subprg_Translate_Spec_And_Body); else New_Var_Decl (Frame_Ptr, Get_Identifier ("FRAMEPTR"), O_Storage_Local, Frame_Ptr_Type); @@ -827,7 +829,8 @@ package body Trans.Chap2 is if not Is_Nested then -- For nested package, this will be translated when translating -- subprograms. - Chap4.Translate_Declaration_Chain_Subprograms (Decl); + Chap4.Translate_Declaration_Chain_Subprograms + (Decl, Subprg_Translate_Spec_And_Body); end if; -- Declare elaborator for the body. @@ -963,7 +966,8 @@ package body Trans.Chap2 is if not Is_Nested then -- Translate subprograms. For nested package, this has to be called -- when translating subprograms. - Chap4.Translate_Declaration_Chain_Subprograms (Bod); + Chap4.Translate_Declaration_Chain_Subprograms + (Bod, Subprg_Translate_Spec_And_Body); end if; if Is_Spec_Decl and then Is_Uninstantiated_Package (Spec) then |