From 13b255a60d2dc00a1cecc2a2f3dbbd4b2313a919 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 17 Jul 2019 06:12:59 +0200
Subject: synth: add comments.

---
 src/synth/synth-environment.adb | 1 +
 src/synth/synth-environment.ads | 1 +
 2 files changed, 2 insertions(+)

diff --git a/src/synth/synth-environment.adb b/src/synth/synth-environment.adb
index 0331ae4c9..6a6229e9f 100644
--- a/src/synth/synth-environment.adb
+++ b/src/synth/synth-environment.adb
@@ -297,6 +297,7 @@ package body Synth.Environment is
       pragma Assert (Asgn_Rec.Chain = No_Assign);
       P : Phi_Type renames Phis_Table.Table (Phis_Table.Last);
    begin
+      --  Chain assignment in the current sequence.
       Asgn_Rec.Chain := P.First;
       P.First := Asgn;
       P.Nbr := P.Nbr + 1;
diff --git a/src/synth/synth-environment.ads b/src/synth/synth-environment.ads
index 6dc040c11..83c1d9866 100644
--- a/src/synth/synth-environment.ads
+++ b/src/synth/synth-environment.ads
@@ -67,6 +67,7 @@ package Synth.Environment is
       --  The initial net for the wire.
       Gate : Net;
 
+      --  Current assignment (if there is one).
       Cur_Assign : Assign;
    end record;
 
-- 
cgit v1.2.3