diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-01-13 21:05:36 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-01-13 21:05:36 +0100 |
| commit | db75f19a083661e1473a91181e90ead3fa54a875 (patch) | |
| tree | 25c8eb9582b9dd7ca6d1fbbdcc63f043656f0293 /src | |
| parent | 8ab3c6e57e7f11eb79d1d7f948fb29a16225c9f2 (diff) | |
| download | ghdl-db75f19a083661e1473a91181e90ead3fa54a875.tar.gz ghdl-db75f19a083661e1473a91181e90ead3fa54a875.tar.bz2 ghdl-db75f19a083661e1473a91181e90ead3fa54a875.zip | |
grt.avhpi: adjust after rti change.
Diffstat (limited to 'src')
| -rw-r--r-- | src/grt/grt-avhpi.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/src/grt/grt-avhpi.adb b/src/grt/grt-avhpi.adb index dd7d588c5..af2dc1b05 100644 --- a/src/grt/grt-avhpi.adb +++ b/src/grt/grt-avhpi.adb @@ -263,16 +263,17 @@ package body Grt.Avhpi is Iterator.It_Cur := Iterator.It_Cur + 1; goto Again; else + pragma Assert (Ch.Kind = Ghdl_Rtik_For_Generate); declare Gen : constant Ghdl_Rtin_Generate_Acc := - To_Ghdl_Rtin_Generate_Acc (Nblk.Parent); + To_Ghdl_Rtin_Generate_Acc (Ch); Base : Address; begin - Base := To_Addr_Acc (Iterator.Ctxt.Base + Nblk.Loc).all; + Base := To_Addr_Acc (Iterator.Ctxt.Base + Gen.Loc).all; Base := Base + Iterator.It2 * Gen.Size; Res := (Kind => VhpiForGenerateK, Ctxt => (Base => Base, - Block => Ch)); + Block => Gen.Child)); Error := AvhpiErrorOk; return; @@ -826,10 +827,10 @@ package body Grt.Avhpi is case Ref.Kind is when VhpiForGenerateK => declare - Blk : Ghdl_Rtin_Block_Acc; + Blk : constant Ghdl_Rtin_Block_Acc := + To_Ghdl_Rtin_Block_Acc (Ref.Ctxt.Block); Iter : Ghdl_Rtin_Object_Acc; begin - Blk := To_Ghdl_Rtin_Block_Acc (Ref.Ctxt.Block); Iter := To_Ghdl_Rtin_Object_Acc (Blk.Children (0)); Res := (Kind => VhpiConstDeclK, Ctxt => Ref.Ctxt, |