diff options
| author | gingold | 2006-10-02 04:33:36 +0000 |
|---|---|---|
| committer | gingold | 2006-10-02 04:33:36 +0000 |
| commit | a81f695b15865268fea6ee062a381ba8e43a02b4 (patch) | |
| tree | 8bc86734eda054c31b705ceab4f4762e96422750 /translate/grt/grt-disp.adb | |
| parent | f51d97cdfbb61a3c1b0456b32b5076d03ba5f8ac (diff) | |
| download | ghdl-a81f695b15865268fea6ee062a381ba8e43a02b4.tar.gz ghdl-a81f695b15865268fea6ee062a381ba8e43a02b4.tar.bz2 ghdl-a81f695b15865268fea6ee062a381ba8e43a02b4.zip | |
direct drivers and bugs fix
Diffstat (limited to 'translate/grt/grt-disp.adb')
| -rw-r--r-- | translate/grt/grt-disp.adb | 31 |
1 files changed, 24 insertions, 7 deletions
diff --git a/translate/grt/grt-disp.adb b/translate/grt/grt-disp.adb index a40f0ed..075c8b4 100644 --- a/translate/grt/grt-disp.adb +++ b/translate/grt/grt-disp.adb @@ -86,16 +86,20 @@ package body Grt.Disp is Put ("Drv (1 prt) "); when Eff_One_Port => Put ("Eff (1 prt) "); + when Imp_Forward => + Put ("Forward "); + when Imp_Forward_Build => + Put ("Forward_Build "); when Imp_Guard => Put ("Guard "); when Imp_Stable => Put ("Stable "); when Imp_Quiet => - Put ("imp quiet "); + Put ("Quiet "); when Imp_Transaction => - Put ("imp transaction "); + Put ("Transaction "); when Imp_Delayed => - Put ("imp delayed "); + Put ("Delayed "); when Eff_Actual => Put ("Eff Actual "); when Eff_Multiple => @@ -132,9 +136,25 @@ package body Grt.Disp is | Eff_One_Resolved | Imp_Guard | Imp_Stable + | Imp_Quiet + | Imp_Transaction + | Imp_Delayed | Eff_Actual => Put_Sig_Index (Signal_Ptr_To_Index (Propagation.Table (I).Sig)); New_Line; + when Imp_Forward => + Put_I32 (stdout, Ghdl_I32 (Propagation.Table (I).Sig.Net)); + New_Line; + when Imp_Forward_Build => + declare + Forward : Forward_Build_Acc; + begin + Forward := Propagation.Table (I).Forward; + Put_Sig_Index (Signal_Ptr_To_Index (Forward.Src)); + Put (" -> "); + Put_Sig_Index (Signal_Ptr_To_Index (Forward.Targ)); + New_Line; + end; when Eff_Multiple | Drv_Multiple => Put_Sig_Range (Propagation.Table (I).Resolv.Sig_Range); @@ -150,10 +170,7 @@ package body Grt.Disp is Put_Sig_Range (Conv.Dest); New_Line; end; - when Imp_Quiet - | Imp_Transaction - | Imp_Delayed - | Prop_End => + when Prop_End => New_Line; when Drv_Error => null; |