diff options
Diffstat (limited to 'src/grt/grt-wave_opt-file-debug.adb')
-rw-r--r-- | src/grt/grt-wave_opt-file-debug.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/grt/grt-wave_opt-file-debug.adb b/src/grt/grt-wave_opt-file-debug.adb index 44878077a..0ecc1e840 100644 --- a/src/grt/grt-wave_opt-file-debug.adb +++ b/src/grt/grt-wave_opt-file-debug.adb @@ -56,7 +56,7 @@ package body Grt.Wave_Opt.File.Debug is while Sibling_Cursor /= null loop Put ((3 .. 2 * Sibling_Cursor.Level => ' ')); Put ('/'); - Put_Line (Sibling_Cursor.Name.all); + Put_Line (Sibling_Cursor.Expr.all); Dump_Sub_Tree (Sibling_Cursor.Next_Child); Sibling_Cursor := Sibling_Cursor.Next_Sibling; end loop; |