diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-02-02 20:48:07 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-02-06 04:45:29 +0100 |
| commit | e332c2d9a3b29f3a8606be7c912a4a8ada45d5da (patch) | |
| tree | f606deb05297b4858cb0bf745066d242818ccee3 | |
| parent | 849e3fbd7e0c85715cdd09a504f5adeafe932d21 (diff) | |
| download | ghdl-e332c2d9a3b29f3a8606be7c912a4a8ada45d5da.tar.gz ghdl-e332c2d9a3b29f3a8606be7c912a4a8ada45d5da.tar.bz2 ghdl-e332c2d9a3b29f3a8606be7c912a4a8ada45d5da.zip | |
sem_inst: add a comment.
| -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: |