From 37614e632530b255437d8ed2b6258a5bbc23e522 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 13 May 2017 18:35:09 +0200 Subject: Translation: separate subprogram translation spec and body. --- src/vhdl/translate/trans-chap1.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/vhdl/translate/trans-chap1.adb') 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); -- cgit v1.2.3