diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-09 21:24:04 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-09 21:24:36 +0200 |
commit | 32a60efc00452a5eb037f5d1f5dabb687c170c99 (patch) | |
tree | f38b3337d35da9479255e5a7e97934eb1ff2731a /src/synth/synth-environment-debug.adb | |
parent | db918fedf1af6da741bb6dd280719cb0f139b583 (diff) | |
download | ghdl-32a60efc00452a5eb037f5d1f5dabb687c170c99.tar.gz ghdl-32a60efc00452a5eb037f5d1f5dabb687c170c99.tar.bz2 ghdl-32a60efc00452a5eb037f5d1f5dabb687c170c99.zip |
synth: refactoring to store static values in wires.
Diffstat (limited to 'src/synth/synth-environment-debug.adb')
-rw-r--r-- | src/synth/synth-environment-debug.adb | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/synth/synth-environment-debug.adb b/src/synth/synth-environment-debug.adb index 2eec6f3b0..09eb9024f 100644 --- a/src/synth/synth-environment-debug.adb +++ b/src/synth/synth-environment-debug.adb @@ -77,7 +77,11 @@ package body Synth.Environment.Debug is Put (", chain:" & Seq_Assign'Image (Rec.Chain)); New_Line; Put_Line (" value:"); - Dump_Partial_Assign (Rec.Asgns); + if Rec.Val.Is_Static then + Put_Line (" static"); + else + Dump_Partial_Assign (Rec.Val.Asgns); + end if; end Dump_Assign; procedure Dump_Phi (Id : Phi_Id) |