From 1c0b63df5eafabc931d29c477b75bc28be9a854f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 16 Jan 2020 06:13:50 +0100
Subject: synth-decls: add comments.

---
 src/synth/synth-decls.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb
index 2eb9897d7..2e6426ed5 100644
--- a/src/synth/synth-decls.adb
+++ b/src/synth/synth-decls.adb
@@ -457,10 +457,13 @@ package body Synth.Decls is
       end if;
       --  Initialize the value (except for a deferred declaration).
       if Deferred_Decl = Null_Node then
+         --  A normal constant declaration
          First_Decl := Decl;
       elsif not Get_Deferred_Declaration_Flag (Decl) then
+         --  The full declaration of a deferred constant.
          First_Decl := Deferred_Decl;
       else
+         --  The first declaration of a deferred constant.
          First_Decl := Null_Node;
       end if;
       if First_Decl /= Null_Node then
-- 
cgit v1.2.3