diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/sem_inst.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/sem_inst.adb b/src/vhdl/sem_inst.adb index cb46b833d..4fd153c32 100644 --- a/src/vhdl/sem_inst.adb +++ b/src/vhdl/sem_inst.adb @@ -388,6 +388,8 @@ package body Sem_Inst is when Iir_Kind_Function_Declaration | Iir_Kind_Procedure_Declaration => -- Subprogram body is a forward declaration. + -- Clear Subprogram_Body so that the node is seen as a + -- declaration and not a specification of a body. Set_Subprogram_Body (Res, Null_Iir); when others => -- TODO: other forward references: |