diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-01-25 21:08:14 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-01-25 21:08:14 +0100 |
| commit | f114f2391a64032a3824a65d0813dd20500a2a86 (patch) | |
| tree | e06817da13b534a1c300c6c745a0f53634149ec5 /src | |
| parent | 5aa273c620cc11176de64b545c54e3482a814bd6 (diff) | |
| download | ghdl-f114f2391a64032a3824a65d0813dd20500a2a86.tar.gz ghdl-f114f2391a64032a3824a65d0813dd20500a2a86.tar.bz2 ghdl-f114f2391a64032a3824a65d0813dd20500a2a86.zip | |
grt rtis_addr: handle B1 ranges.
Diffstat (limited to 'src')
| -rw-r--r-- | src/grt/grt-disp_rti.adb | 35 | ||||
| -rw-r--r-- | src/grt/grt-rtis_addr.adb | 4 |
2 files changed, 34 insertions, 5 deletions
diff --git a/src/grt/grt-disp_rti.adb b/src/grt/grt-disp_rti.adb index 93787edb2..1e6389f0c 100644 --- a/src/grt/grt-disp_rti.adb +++ b/src/grt/grt-disp_rti.adb @@ -448,10 +448,9 @@ package body Grt.Disp_Rti is (Def : Ghdl_Rti_Access; Ctxt : Rti_Context; Obj : Address); procedure Disp_Range - (Stream : FILEs; Kind : Ghdl_Rtik; Rng : Ghdl_Range_Ptr) - is + (Stream : FILEs; Def : Ghdl_Rti_Access; Rng : Ghdl_Range_Ptr) is begin - case Kind is + case Def.Kind is when Ghdl_Rtik_Type_I32 | Ghdl_Rtik_Type_P32 => Put_I32 (Stream, Rng.I32.Left); @@ -465,6 +464,24 @@ package body Grt.Disp_Rti is Put_I64 (Stream, Rng.P64.Left); Put_Dir (Stream, Rng.P64.Dir); Put_I64 (Stream, Rng.P64.Right); + when Ghdl_Rtik_Type_B1 => + declare + Enum : constant Ghdl_Rtin_Type_Enum_Acc := + To_Ghdl_Rtin_Type_Enum_Acc (Def); + begin + Disp_Name (Enum.Names (Ghdl_B1'Pos (Rng.B1.Left))); + Put_Dir (Stream, Rng.B1.Dir); + Disp_Name (Enum.Names (Ghdl_B1'Pos (Rng.B1.Right))); + end; + when Ghdl_Rtik_Type_E8 => + declare + Enum : constant Ghdl_Rtin_Type_Enum_Acc := + To_Ghdl_Rtin_Type_Enum_Acc (Def); + begin + Disp_Name (Enum.Names (Ghdl_E8'Pos (Rng.E8.Left))); + Put_Dir (Stream, Rng.E8.Dir); + Disp_Name (Enum.Names (Ghdl_E8'Pos (Rng.E8.Right))); + end; when others => Put ("?Scal"); end case; @@ -526,8 +543,16 @@ package body Grt.Disp_Rti is case Ndef.Kind is when Ghdl_Rtik_Type_I32 => Align (Ghdl_Range_I32'Alignment); - Disp_Range (stdout, Ndef.Kind, To_Ghdl_Range_Ptr (Bounds)); + Disp_Range (stdout, Ndef, To_Ghdl_Range_Ptr (Bounds)); Update (Ghdl_Range_I32'Size); + when Ghdl_Rtik_Type_B1 => + Align (Ghdl_Range_B1'Alignment); + Disp_Range (stdout, Ndef, To_Ghdl_Range_Ptr (Bounds)); + Update (Ghdl_Range_B1'Size); + when Ghdl_Rtik_Type_E8 => + Align (Ghdl_Range_E8'Alignment); + Disp_Range (stdout, Ndef, To_Ghdl_Range_Ptr (Bounds)); + Update (Ghdl_Range_E8'Size); when others => Disp_Kind (Ndef.Kind); -- Bounds are not known anymore. @@ -562,7 +587,7 @@ package body Grt.Disp_Rti is Range_Addr := Loc_To_Addr (Def.Common.Depth, Def.Range_Loc, Ctxt); Rng := To_Ghdl_Range_Ptr (Range_Addr); - Disp_Range (Stream, Def.Basetype.Kind, Rng); + Disp_Range (Stream, Def.Basetype, Rng); end Disp_Subtype_Scalar_Range; procedure Disp_Subtype_Indication diff --git a/src/grt/grt-rtis_addr.adb b/src/grt/grt-rtis_addr.adb index 48ab477c7..f8a35bd1f 100644 --- a/src/grt/grt-rtis_addr.adb +++ b/src/grt/grt-rtis_addr.adb @@ -274,6 +274,10 @@ package body Grt.Rtis_Addr is Align (Ghdl_Range_I32'Alignment); Res (I) := To_Ghdl_Range_Ptr (Bounds); Update (Ghdl_Range_I32'Size); + when Ghdl_Rtik_Type_B1 => + Align (Ghdl_Range_B1'Alignment); + Res (I) := To_Ghdl_Range_Ptr (Bounds); + Update (Ghdl_Range_B1'Size); when Ghdl_Rtik_Type_E8 => Align (Ghdl_Range_E8'Alignment); Res (I) := To_Ghdl_Range_Ptr (Bounds); |