From 2f9dd1c6ae96ae1c53f2ad88d3ea2a8cc298fa24 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 29 May 2014 13:42:22 +0200
Subject: Add_Dependence: noop if no current design.

---
 sem.adb | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'sem.adb')

diff --git a/sem.adb b/sem.adb
index f90b29b95..042df9d2e 100644
--- a/sem.adb
+++ b/sem.adb
@@ -44,9 +44,17 @@ package body Sem is
    procedure Sem_Component_Configuration
      (Conf : Iir_Component_Configuration; Father : Iir);
 
-   procedure Add_Dependence (Unit : Iir) is
+   procedure Add_Dependence (Unit : Iir)
+   is
+      Targ : constant Iir := Get_Current_Design_Unit;
    begin
-      Add_Dependence (Get_Current_Design_Unit, Unit);
+      --  During normal analysis, there is a current design unit.  But not
+      --  during debugging outside of any context.
+      if Targ = Null_Iir then
+         return;
+      end if;
+
+      Add_Dependence (Targ, Unit);
    end Add_Dependence;
 
    --  LRM 1.1  Entity declaration.
-- 
cgit v1.2.3