From bbb8b126da93d6a156dd19e37e7faa4aa3d199a1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Fri, 23 Jan 2015 06:20:38 +0100
Subject: simulation: rework scope_level.

---
 src/vhdl/simulate/elaboration.ads | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/vhdl/simulate/elaboration.ads')

diff --git a/src/vhdl/simulate/elaboration.ads b/src/vhdl/simulate/elaboration.ads
index 5a9ea8d..8d6afc8 100644
--- a/src/vhdl/simulate/elaboration.ads
+++ b/src/vhdl/simulate/elaboration.ads
@@ -128,7 +128,10 @@ package Elaboration is
      Block_Instance_Acc;
    type Block_Instance_Acc_Array_Acc is access Block_Instance_Acc_Array;
 
-   Package_Instances : Block_Instance_Acc_Array_Acc;
+   type Package_Instances_Array is array (Pkg_Index_Type range <>) of
+     Block_Instance_Acc;
+   type Package_Instances_Array_Acc is access Package_Instances_Array;
+   Package_Instances : Package_Instances_Array_Acc;
 
    --  Disconnections.  For each disconnection specification, the elaborator
    --  adds an entry in the table.
-- 
cgit