diff options
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) |