From e332c2d9a3b29f3a8606be7c912a4a8ada45d5da Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 2 Feb 2016 20:48:07 +0100
Subject: sem_inst: add a comment.

---
 src/vhdl/sem_inst.adb | 2 ++
 1 file changed, 2 insertions(+)

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:
-- 
cgit v1.2.3