aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2016-02-02 20:48:07 +0100
committerTristan Gingold <tgingold@free.fr>2016-02-06 04:45:29 +0100
commite332c2d9a3b29f3a8606be7c912a4a8ada45d5da (patch)
treef606deb05297b4858cb0bf745066d242818ccee3
parent849e3fbd7e0c85715cdd09a504f5adeafe932d21 (diff)
downloadghdl-e332c2d9a3b29f3a8606be7c912a4a8ada45d5da.tar.gz
ghdl-e332c2d9a3b29f3a8606be7c912a4a8ada45d5da.tar.bz2
ghdl-e332c2d9a3b29f3a8606be7c912a4a8ada45d5da.zip
sem_inst: add a comment.
-rw-r--r--src/vhdl/sem_inst.adb2
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: